<%@LANGUAGE="VBSCRIPT"%> <% Dim iMonth, iYear, giorno, archivio iMonth=Request ("month") iYear=Request ("year") if iMonth = "" then iMonth = Month(Now) sMonth=NameFromMonth(iMonth) if iYear = "" then iYear = Year(Now) giorno=request.querystring("giorno") archivio=request.querystring("archivio") Dim rsblog Dim rscommenti Dim blog_id Dim rscommenticount Dim commenti_presenti If isNull(Request.QueryString("blog_id")) = True Or isNumeric(Request.QueryString("blog_id")) = False Then Response.redirect "index.asp?month=" & iMonth &"&year=" & iYear &"&giorno=" & giorno & "&archivio="& archivio &"" Else blog_id = CLng(Request.QueryString("blog_id")) End If Set rsblog = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT blog.* FROM blog " strSQL = strSQL & "WHERE blog.blog_id = " & blog_id rsblog.Open strSQL, adoCon If NOT rsblog.EOF Then commenti_presenti = CBool(rsblog("commenti")) Set rscommenticount = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT Count(commenti.blog_id) AS numerocommenti " strSQL = strSQL & "FROM commenti " strSQL = strSQL & "WHERE commenti.blog_id = " & CLng(blog_id) & ";" rscommenticount.Open strSQL, adoCon %>

<% = strLangNavBlogDetails %>     <% = rsblog("data") %>

	<% = UCase(rsblog("blog_titolo")) %>   <% = strLangGlobBy %> <%If rsblog("blog_email") <> "" Then Response.Write("" & rsblog("blog_autore") & "") Else Response.Write(rsblog("blog_autore")) %> <% = rsblog("data")%> <% = strLangGlobAt %> <% = FormatDateTime(rsblog("ora"),vbShortTime) %> <% = rsblog("blog_testo")%> <% If commenti_presenti = True Then If NOT rscommenticount.EOF Then Response.Write " [ " & strLangGlobNumberOfComment & " " & rscommenticount("numerocommenti") & " ]" Else Response.Write " [ " & strLangGlobNumberOfComment & " 0 ]" End If End If %> <% If commenti_presenti = True Then %> <% If NOT rscommenticount.EOF Then %> <% = UCase(strLangNavAddComment) %> :   <% = rsblog("blog_titolo") %> <% end if %> <% = strLangGlobAddComment %> <% end if %> <% rsblog.Close Set rsblog = Nothing rscommenticount.Close Set rscommenticount = Nothing End If %> <% If commenti_presenti = True Then %> <% Set rscommenti = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT commenti.* FROM commenti WHERE commenti.blog_id = " & blog_id & " ORDER BY data DESC;" rscommenti.Open strSQL, adoCon Do While NOT rscommenti.EOF %> <% = strLangGlobPostedBy %>   <%If rscommenti("commento_email") <> "" Then Response.Write("" & rscommenti("commento_autore") & "") Else Response.Write(rscommenti("commento_autore")) %> <% = FormatDateTime(rscommenti("data"), vbShortDate) %> <% = strLangGlobAt %> <% = FormatDateTime(rscommenti("data"),vbShortTime) %> <% = rscommenti("commento_testo") %> <% rscommenti.MoveNext Loop rscommenti.Close Set rscommenti = Nothing Set strCon = Nothing Set adoCon = Nothing %> <% = UCase(strLangFormSubmitComment) %> <% = strLangFormRequiredFields %> <% = strLangFormAuthor %> (*) : <% = strLangFormEmail %> :       <% = strLangFormComment %> (*) : html code ubb code       <% end if %>