Come mai questo codice:
codice:
<%
Dim classifica_ok__MMColParam
classifica_ok__MMColParam = "1"
If (Request.QueryString("id") <> "") Then 
  classifica_ok__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim classifica_ok
Dim classifica_ok_numRows

dim sSQL
sSQL="SELECT id_squadra, sum(valore_contratto) AS punteggio  FROM contratti "
if classifica_ok__MMColParam <>"" then
sSQL=sSQL & " WHERE stato = 1 AND id_squadra = " & classifica_ok__MMColParam 
end if
sSQL=sSQL & " GROUP BY id_squadra  ORDER BY sum(valore_contratto) DESC "

Set classifica_ok = Server.CreateObject("ADODB.Recordset")
classifica_ok.ActiveConnection = MM_connessione_calcolo_STRING
classifica_ok.Source = sSQL
classifica_ok.CursorType = 0
classifica_ok.CursorLocation = 2
classifica_ok.LockType = 1
classifica_ok.Open() <---- LINE 27

classifica_ok_numRows = 0
%>
Mi da questo errore?

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/Programma_COPPA_server/calcolo.asp, line 27

come posso fare?

grazie a tutti