13 aprile 2004 alle 20:49:06

Sub DisplayModDownloads(iTop, sTypeSort)
Dim oCn, oRs, rSQL, iLine

Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT TOP " & iTop & " * FROM downloads WHERE dValid=1"
Select Case sTypeSort
Case "date"
rSQL = rSQL & " ORDER BY dDate DESC, dTitle"
Case "hits"
rSQL = rSQL & " ORDER BY dHits DESC, dTitle"
End Select

CreateTopTable "ModDownloads", GetTranslation("LANG_DOWNLOADS")

Set oRs = DBRecordSet(oCn, rSQL)
If Not oRs.EOF Then
Response.Write GLOBAL_SITE_SUBTABLE & vbCRLF
Response.Write " <tr class=""tablelinemain"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_TITLE") & "</td>" & vbCRLF
If sTypeSort = "hits" Then
Response.Write " <td width=""80"" align=""center"">" & GetTranslation("LANG_HITS") & "</td>" & vbCRLF
Else
Response.Write " <td width=""80"" align=""center"">" & GetTranslation("LANG_DATE") & "</td>" & vbCRLF
End If
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1

if sPseudo <>"" then
While Not oRs.EOF
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
Response.Write " <td><a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_DOWNLOAD_PAGE & "?dl=" & oRs("dID") & """ target=""_blank"">" & Server.HTMLEncode(oRs("dTitle")) & "</a> <span class=""small""><a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_DOWNLOADS_PAGE & "?id=" & oRs("dID") & """>" & GetTranslation("LANG_MORE_INFORMATION") & "</a></span></td>" & vbCRLF
If sTypeSort = "hits" Then
Response.Write " <td align=""center"">" & oRs("dHits") & "</td>" & vbCRLF
Else
Response.Write " <td align=""center"">" & GetDateDDMMYYYY(StringToDate(oRs("dDate"))) & "</td>" & vbCRLF
End If
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
WEnd
else
While Not oRs.EOF
Response.Write " <tr class=""tableline" & iLine & """>" & vbCRLF
'Response.Write " <td>" & Server.HTMLEncode(oRs("dTitle")) & "<span class=""small"">" & "</span></td>" & vbCRLF

Response.Write " <td><a href=""" & GLOBAL_SITE_PATH & "authent.asp" & """>" & Server.HTMLEncode(oRs("dTitle")) & "</a> <span class=""small"">" & "</span></td>" & vbCRLF

If sTypeSort = "hits" Then
Response.Write " <td align=""center"">" & oRs("dHits") & "</td>" & vbCRLF
Else
Response.Write " <td align=""center"">" & GetDateDDMMYYYY(StringToDate(oRs("dDate"))) & "</td>" & vbCRLF
End If
Response.Write " </td>" & vbCRLF
Response.Write " </tr>" & vbCRLF

iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
WEnd
end if


Response.Write "</table>" & vbCRLF
Else
Response.Write GetTranslation("LANG_EMPTY_SECTION") & vbCRLF
End If

CreateBottomTable ""

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

case N :

DisplayModDownloads 5,"date" 'GLOBAL_DOWNLOADS_TOP