12 ottobre 2004 alle 17:14:59

Response.Write " <img border=""0"" src=""http://www.valchisone.it/web/imgs/freccia.gif"" width=""50"" height=""50"">" & vbCRLF

CreateTopTable "TopPosts", GetTranslation("LANG_TOP") & " " & iTop & " - " & GetTranslation("LANG_FORUM")
Response.Write " <img border=""0"" src=""http://www.valchisone.it/web/imgs/freccia.gif"" width=""50"" height=""50"">" & vbCRLF
If Not oRs.EOF Then
While Not oRs.EOF
Response.Write " <span class=""small"">" & Server.HTMLEncode(oRs("PostUser")) & " - " & GetDateDDMMYYHHMMSS(StringToDate(oRs("PostDate"))) & "</span><br>" & vbCRLF
Response.Write " <a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_FORUM_PAGE & "?forum=" & oRs("SectionForum") & "&section=" & oRs("PostSection") & "&post=" & oRs("PostParent") & "&page=last"
If oRs("PostID") <> oRs("PostParent") Then Response.Write "#" & oRs("PostID")
Response.Write """>"
Response.Write CodeMessageEx(oRs("PostMessage"), 40, True, oRs("PostSmileys").Value) & "</a>" & vbCRLF
Response.Write "<br>" & vbCRLF

oRs.MoveNext
WEnd
Else
Response.Write GetTranslation("LANG_EMPTY_SECTION")
End If
CreateBottomTable ""