18 marzo 2005 alle 16:12:09

<%
' ************************************************************************
' * ASPNUKE: Free web portal in ASP *
' ************************************************************************
' * ASP-Nuke 2.0 *
' * MOD top_dwonloads *
' * Design by Frank Zalabard (c) 2004 (fsarzana@hotmail.com) *
' * *
' * ASP-Nuke 1.0, 1.1, 1.2 Copyright (c) 2002-2003 by Gaetan Bouveret *
' * *
' * This program is free software. You can redistribute it and/or modify *
' * it under the terms of the GNU General Public License as published by *
' * the Free Software Foundation; either version 2 of the License, or *
' * (at your option) any later version. *
' * *
' ************************************************************************
%>
<%
Sub DisplayTopDownloads()
Dim oCn, oRs, rSQL, iLine, iLoop, tipoSort, iTop, sTypeSort

iTop = GLOBAL_DOWNLOADS_TOP
sTypeSort = "date"

Set oCn = DBConnexion(DB_MAIN)

rSQL = "SELECT * FROM downloads WHERE dValid=1"
Select Case sTypeSort
Case "date"
rSQL = rSQL & " ORDER BY dDate DESC, dTitle"
tipoSort = GetTranslation("LANG_DATE")
Case "hits"
rSQL = rSQL & " ORDER BY dHits DESC, dTitle"
tipoSort = GetTranslation("LANG_HITS")
End Select

CreateTopTable "ModTopDownloads_" & tipoSort , 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
Response.Write " </tr>" & vbCRLF

iLine = 1
iLoop = 0
While Not oRs.EOF And iLoop < iTop
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><br><span class=""small""><a href=""" & GLOBAL_SITE_PATH & GLOBAL_SITE_DOWNLOADS_PAGE & "?id=" & oRs("dID") & """>" & GetTranslation("LANG_MORE_INFORMATION") & "</a></span> " & vbCRLF
If sTypeSort = "hits" Then
Response.Write oRs("dHits") & vbCRLF
Else
Response.Write GetDateDDMMYYYY(StringToDate(oRs("dDate"))) & vbCRLF
End If
Response.Write " </td></tr>" & vbCRLF

iLine = 1 + ((iLine-1) XOR 1)
oRs.MoveNext
iLoop = iLoop + 1
WEnd
Response.Write "</table>" & vbCRLF
Else
Response.Write GetTranslation("LANG_EMPTY_SECTION") & vbCRLF
End If

CreateBottomTable ""

oRs.Close
Set oRs = Nothing
oCn.close
Set oCn = Nothing

End Sub
%>

---------------
Frank Zalabard (sviluppo@aspnuke.it)