02 aprile 2003 alle 13:12:32

Sub DisplayArticlesSearchhome(iCategory, iTop)
Dim oCn, oRs, rSQL, bFirst, iNbPages

bFirst = True

Set oCn = DBConnexion(DB_MAIN)

If iCategory = "" Then iCategory = 0

If iTop = "" Then iTop = 1

rSQL = "SELECT TOP " & iTop & " arId, arTitle, arAuthor, arDescription, arDate, count(apID) as NbPages FROM articles, articlespages, versions WHERE arID=apArticle AND arVersion=vID AND arValid=1 AND apValid=1 AND arCategory=" & iCategory
If sXMLVersion <> "" Then rSQL = rSQL & " AND vCode='" & sXMLVersion & "'"
rSQL = rSQL & " GROUP BY arID, arDate, arTitle, arAuthor, arDescription, arDate ORDER BY arDate DESC"

Set oRs = DBRecordSet(oCn, rSQL)

If Not oRs.EOF Then
CreateTopTable "ArticlesByCategory", GetTranslation("LANG_ARTICLES")

While Not oRs.EOF

If Not bFirst Then Response.Write "<br><br>" & vbCRLF
iNbPages = oRs("NbPages")

If iNbPages > 0 Then
Response.Write "<b><a href=""" & GLOBAL_SITE_PATH & "articles.asp" & "?id=" & oRs("arID") & """>" & CodeMessage(oRs("arTitle"), True) & "</a></b><br>" & vbCRLF
Else
Response.Write "<b>" & CodeMessage(oRs("arTitle"), True) & "</b><br>" & vbCRLF
End If
Response.Write "<span class=""small"">"
Response.Write Replace(Replace(GetTranslation("LANG_POST_DATE_BY"), "%1%", GetDateLitteralDDMMYYYYHHMMSS(StringToDate(oRs("arDate")))), "%2%", "<a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_PROFILE_PAGE & "?id=" & Server.URLEncode(oRs("arAuthor")) & """>" & Server.HTMLEncode(oRs("arAuthor")) & "</a>") & " | " & vbCRLF
Response.Write " " & iNbPages & " "
If iNbPages > 1 Then
Response.Write GetTranslation("LANG_ARTICLE_PAGES")
Else
Response.Write GetTranslation("LANG_ARTICLE_PAGE")
End If
Response.Write "</span><br>" & vbCRLF
Response.Write oRs("arDescription") & vbCRLF

bFirst = False

oRs.MoveNext
WEnd

CreateBottomTable ""
End If

oCn.Close
Set oCn = Nothing
Set oRs = Nothing
End Sub