07 febbraio 2004 alle 20:00:36

<%
' ************************************************************************
' * ASP-Nuke: Free web portal in ASP *
' ************************************************************************
' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) *
' * http://www.asp-nuke.com *
' * *
' * 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. *
' * *
' ************************************************************************
%>

<script language="Java_Script1.2"><!-- // load htmlarea
_editor_url = "htmlarea/" // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write(' document.write(' <language="Java_Script1.2"></scr' + 'ipt>');
} else { document.write('function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>


<%
' Display the top downloads list (by date or by hits depending of the sort attribute
' IN : iTop (int) : number of results wanted
' : sTypeSort (string) : type of sort (date or hits)
' OUT : -
Sub DisplayTopDownloads(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"

Response.Write " <tr class=""tableline1"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_TITLE") & "</td>" & vbCRLF
Response.Write " <td><input name=""dTitle"" value="""" maxlength=""100"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline2"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_DATE") & "</td>" & vbCRLF
Response.Write " <td>" & GetDateDDMMYYYY(Now()) & "<input type=""hidden"" name=""dDate"" value=""" & DateTimeToString(Now()) & """></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline1"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_DESCRIPTION") & "</td>" & vbCRLF


Response.Write "<script language=""Java_Script1.2"" defer>" & VbCrlf
Response.Write "editor_generate('dDescription');" & VbCrlf
Response.Write "</script>" & VbCrlf
Response.Write " <td><textarea name=""dDescription"" cols=""50"" rows=""8"" class=""cell""></textarea></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline2"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_URL") & "</td>" & vbCRLF
Response.Write " <td><input name=""dURL"" value=""http://"" maxlength=""250"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline1"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_SIZE") & "</td>" & vbCRLF
Response.Write " <td><input name=""dSize"" value=""0"" maxlength=""10"" size=""10"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline2"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_CATEGORY") & "</td>" & vbCRLF
Response.Write " <td>" & vbCRLF
Response.Write " <select name=""dCategory"" class=""cell"">" & vbCRLF

While Not oRs.EOF
Response.Write " <option value=""" & oRs("cID") & """"
If oRs("cID") = iCat Then Response.Write " selected"
Response.Write ">" & Server.HTMLEncode(oRs("cTitle")) & "</option>" & vbCRLF
oRs.MoveNext
WEnd

07 febbraio 2004 alle 21:07:20

_editor_url = "../htmlarea/" // URL to htmlarea files

08 febbraio 2004 alle 10:07:58

<%
' ************************************************************************
' * ASP-Nuke: Free web portal in ASP *
' ************************************************************************
' * Copyright (c) 2002-2003 by Gaetan Bouveret (webmaster@asp-nuke.com) *
' * http://www.asp-nuke.com *
' * *
' * 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. *
' * *
' ************************************************************************
%>

<script language="Java_Script1.2"><!-- // load htmlarea
_editor_url = "../htmlarea/" // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write(' document.write(' <language="Java_Script1.2"></scr' + 'ipt>');
} else { document.write('function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>


<%
' Display the top downloads list (by date or by hits depending of the sort attribute
' IN : iTop (int) : number of results wanted
' : sTypeSort (string) : type of sort (date or hits)
' OUT : -

Response.Write " <td>" & GetTranslation("LANG_DATE") & "</td>" & vbCRLF
Response.Write " <td>" & GetDateDDMMYYYY(Now()) & "<input type=""hidden"" name=""dDate"" value=""" & DateTimeToString(Now()) & """></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline1"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_DESCRIPTION") & "</td>" & vbCRLF


Response.Write "<script language=""Java_Script1.2"" defer>" & VbCrlf
Response.Write "editor_generate('dDescription');" & VbCrlf
Response.Write "</script>" & VbCrlf
Response.Write " <td><textarea name=""dDescription"" cols=""50"" rows=""8"" class=""cell""></textarea></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline2"">" & vbCRLF
Response.Write " <td>" & GetTranslation("LANG_URL") & "</td>" & vbCRLF
Response.Write " <td><input name=""dURL"" value=""http://"" maxlength=""250"" size=""50"" class=""cell""></td>" & vbCRLF
Response.Write " </tr>" & vbCRLF
Response.Write " <tr class=""tableline1"">" & vbCRLF