mi da sempre lo stesso errore...
il codice completo è:
codice:
<%
Dim classifica__MMColParam
classifica__MMColParam = "1"
If (Request.QueryString("id_giocatore") <> "") Then
classifica__MMColParam = Request.QueryString("id_giocatore")
End If
%>
<%
Dim classifica
Dim classifica_numRows
Set classifica = Server.CreateObject("ADODB.Recordset")
classifica.ActiveConnection = MM_connessione_calcolo_STRING
classifica.Source = "SELECT id_giocatore, nome_giocatore, sum(valore_contratto) AS punteggio FROM contratti GROUP BY nome_giocatore, id_giocatore WHERE id_giocatore = "& " + Replace(classifica__MMColParam, "'", "''") + " &" ORDER BY sum(valore_contratto) DESC"
classifica.CursorType = 0
classifica.CursorLocation = 2
classifica.LockType = 1
classifica.Open()
classifica_numRows = 0
%>