30 gennaio 2004 alle 22:46:20

<%'************************************************************************
'* 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('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write('<language="Java_Script1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<%
Const COMMENTS_MAX_RATING = 5

' Display all comments from an item
' IN : iID (int) : item's id
' IN : iType (int) : item's type (news, downloads, images...)
' OUT : -
Sub DisplayComments(iID, iType)
Dim oCn, oRs, oRs2, rSQL, iLine
Dim sAuthor, iRate, iNbComments, iNbRate, iSumRate, iTotalRate

Response.Write "<script language=""Java_Script1.2"" defer>" & VbCrlf
Response.Write " editor_generate('cText');" & VbCrlf
Response.Write " </script>" & VbCrlf
Response.Write " <td><textarea name=""cText"" class=""cell"" cols=""50"" rows=""5""></textarea></td>" & vbCRLF