Sto nei guai con uno script asp. Non riesco a capire come farlo funzionare.

Lo scopo è controllare nel database MySQL se esiste già un record con il medesimo numero di documento (campo non univoco), di data e di registro e reindirizzare l'utente su una pagina di errore da me scritta.

Ma il file asp provoca questo

Tipo di errore:
(0x80020009)
Eccezione.

indicando che corrisponde alla riga
...
if RsForm("numero") = RF_numero then
...


Ecco il listato incriminato, che ricorre ad una funzione per la creazione del recordset GetRS(sql):
<%
'controllo della form
' numero è integer, data è datetime, servizio è varchar
if request.form("numero") <> "" then
sqlform = "SELECT numero FROM tDetermine WHERE numero = " & RF_numero & " AND data = '" & RF_data & "' AND servizio LIKE '" & RF_registro & "';"
set RsForm = GetRS (sqlform)
if RsForm("numero") = RF_numero then
response.redirect ("errore.asp?n=" & RF_numero & "&d=" & RF_data)
end if
set RsForm = Nothing
end if
%>

La funzione che ricorre al MySQL ODBC 3.51 Driver
<%
function GetRS (sequel)

' Connection string to the access db
Set cconn = CreateObject("ADODB.Connection")
cconn.Open dsn

'crea recordset
set Rs=Server.CreateObject("ADODB.recordset")
Rs.CursorLocation=adUseClient

' Execute the sql
Rs.Open sequel, cconn , adOpenStatic, adLockPessimistic

'chiudi connessione al recordset
set Rs.ActiveConnection=Nothing

'genera oRS
set GetRs = Rs

' close the objects
cconn.Close
Set cconn = Nothing
set Rs = Nothing
end function
%>

Ho risolto con .RecordCount. Grazie! Non avevo riflettuto sulla stringa SQL ed il WHERE.