30 novembre 2007 alle 00:19:47

Sub DisplayTopNewsLinksAB(iTop, iCategory)
Dim oCn, oRs, rSQL
Dim titreNews, texteNews, dateNews, sCategory, sTitleCat, iLoop

Set oCn = DBConnexion(DB_MAIN)

If iCategory <> "" and iCategory <> 0 Then
sCategory = "?cat=" & iCategory
rSQL = "SELECT cTitle FROM categories WHERE cID=" & iCategory
Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then
sTitleCat = " - " & Server.HTMLEncode(oRs(0))
end if
oRs.Close
Set oRs = Nothing
End If

rSQL = "SELECT nID, nDate, nTitle FROM news, versions WHERE nVersion=vID AND nDate < '" & DateTimeToString(Now()) & "' AND nValid=1"
If sXMLVersion <> "" Then
rSQL = rSQL & " AND vCode='" & sXMLVersion & "'"
end if
If sCategory <> "" Then
rSQL = rSQL & " AND nCategory=" & iCategory
end if
rSQL = rSQL & " ORDER BY nTitle DESC"

Set oRs = DBRecordSet(oCn, rSQL)

CreateTopTable "TopNewsLinks", GetTranslation("LANG_TOP") & " " & iTop & " - " & GetTranslation("LANG_NEWS") & sTitleCat
If Not oRs.EOF Then
iLoop = 0
While Not oRs.EOF And iLoop < iTop
If iLoop < GLOBAL_NEWS_TOP Then
Response.Write "<a href=""" & GLOBAL_SITE_NEWS_PAGE & sCategory & "#news_" & Left(oRs("nID"),8) & """>" & CodeMessage(oRs("nTitle"), False) & "</a> <span class=""small"">" & GetDateLitteralDDMMYYYY(StringToDate(oRs("nDate"))) & "</span><br>" & vbCRLF
Else
Response.Write "<a href=""" & GLOBAL_SITE_NEWS_PAGE & "?id=" & Left(oRs("nID"),8) & """>" & CodeMessage(oRs("nTitle"), False) & "</a> <span class=""small"">" & GetDateLitteralDDMMYYYY(StringToDate(oRs("nDate"))) & "</span><br>" & vbCRLF
End If
oRs.MoveNext
iLoop = iLoop + 1
WEnd
Else
Response.Write GetTranslation("LANG_EMPTY_SECTION")
End If
CreateBottomTable ""

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

---------------

http://www.sampy.it