Rating

[fulbox]

Salve sto cercando uno script per un sistema di rating, se qualcuno mi può aiutare lo ringrazio anticipatamente.

[Roby_72]

Prova tra gli articoli di http://freeasp.html.it

Roby

[fulbox]

Nel web ho trovato uno script che fa a caso mio, ma andandeolo a modificare mi da un errore che è il seguente

Valore numerico non compreso nell'intervallo. (null)

posto un po di codice

<%

Dim rsLink__ID


Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("votomedio.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String

rsLink__ID = "1"
if (Request.QueryString("id") <> "") then rsLink__ID = Request.QueryString("id")
%>
<%
set rsLink = Server.CreateObject("ADODB.Recordset")
rsLink.ActiveConnection = Conn_String
rsLink.Source = "SELECT *, (LINK_RATE/NO_RATES) AS RATING FROM LINKS WHERE ID = " + Replace(rsLink__ID, "'", "''") + ""
rsLink.CursorType = 0
rsLink.CursorLocation = 2
rsLink.LockType = 3
rsLink.Open()
rsLink_numRows = 0
%>


la stringa incriminata è la seguente:

Vota per: <%=(rsLink.Fields.Item("titolo").Value)%>