<% Dim rsDetail__MMColParam rsDetail__MMColParam = "0" if (Request.QueryString("iArt") <> "") then rsDetail__MMColParam = Request.QueryString("iArt") %> <% set rsDetail = Server.CreateObject("ADODB.Recordset") rsDetail.ActiveConnection = MM_connDUarticle_STRING rsDetail.Source = "SELECT * FROM BARZELLETTE, BARZELLETTE_TYPES WHERE ART_ID = " + Replace(rsDetail__MMColParam, "'", "''") + " AND ART_TYPE = TYPE_ID" rsDetail.CursorType = 0 rsDetail.CursorLocation = 2 rsDetail.LockType = 3 rsDetail.Open() rsDetail_numRows = 0 %> <% Dim article_rated Dim article_rate_count Dim article_rate_value article_rate_count = rsDetail.Fields.Item("ART_RATES").Value article_rate_value = rsDetail.Fields.Item("ART_RATED").Value If article_rate_count > 0 Then article_rated = (article_rate_value/article_rate_count) else article_rated = 0 end if %> <% Dim rsRelated__MMColParam rsRelated__MMColParam = "0" if (Request.QueryString("iType") <> "") then rsRelated__MMColParam = Request.QueryString("iType") %> <% Dim rsRelated__var_id rsRelated__var_id = "0" if (Request.QueryString("iArt") <> "") then rsRelated__var_id = Request.QueryString("iArt") %> <% set rsRelated = Server.CreateObject("ADODB.Recordset") rsRelated.ActiveConnection = MM_connDUarticle_STRING rsRelated.Source = "SELECT * FROM BARZELLETTE WHERE ART_TYPE = " + Replace(rsRelated__MMColParam, "'", "''") + " AND ART_ID <> " + Replace(rsRelated__var_id, "'", "''") + " AND ART_APPROVED=1 ORDER BY ART_DATED DESC" rsRelated.CursorType = 0 rsRelated.CursorLocation = 2 rsRelated.LockType = 3 rsRelated.Open() rsRelated_numRows = 0 %> <% Dim rsRelated__numRows Dim rsRelated__index rsRelated__numRows = 25 rsRelated__index = 0 rsRelated_numRows = rsRelated_numRows + rsRelated__numRows %>
<% If Request.Cookies(Request.QueryString("iArt")) = "" Then %> <% End If %>
barzellette » "><%=UCASE(rsDetail.Fields.Item("TYPE_NAME").Value)%> » detaglio
"> ">
<% If Len(rsDetail.Fields.Item("ART_NAME").Value) > 13 Then %> <% End If %>
Titolo: <%=(rsDetail.Fields.Item("ART_NAME").Value)%> Aggiunta: <%=(rsDetail.Fields.Item("ART_DATED").Value)%>
Categoria: <%=(rsDetail.Fields.Item("TYPE_NAME").Value)%> visite: <%=(rsDetail.Fields.Item("ART_VIEWS").Value)%>
Voto: (<%= FormatNumber(article_rated, 1, -2, -2, -2) %>) da: <%=(rsDetail.Fields.Item("ART_RATES").Value)%> utenti
Descrizione: <% = DoSpace(rsDetail.Fields.Item("ART_DESCRIPTION").Value) %>
<% If Request.QueryString("action") = "" then %> <% End If %> <% If Request.QueryString("action") = "report" then %> <% End If %>
REPORT BROKEN LINK
Email Address:
Message:
  "> "> "> ">
Barzellette | Invia Barzellette
<% if(Request.QueryString("iArt") <> "") then cmdArticles__varLink = Request.QueryString("iArt") %> <% set cmdArticles = Server.CreateObject("ADODB.Command") cmdArticles.ActiveConnection = MM_connDUarticle_STRING cmdArticles.CommandText = "UPDATE BARZELLETTE SET ART_VIEWS = ART_VIEWS + 1 WHERE ART_ID = " + Replace(cmdArticles__varLink, "'", "''") + "" cmdArticles.CommandType = 1 cmdArticles.CommandTimeout = 0 cmdArticles.Prepared = true cmdArticles.Execute() %> <% rsDetail.Close() %> <% rsRelated.Close() %>