Trovo un errore in questo codice:


1) creo l'array da valori ricevuti tramite post

recordArray = split(request("destinazione"),",")
For i=0 to UBound(recordArray)
fieldArray = Split(recordArray(i), "|")

2)controllo che i valori inviati non già siano presenti nel db

Set rs = Server.CreateObject("ADODB.recordset")
SQL=("SELECT * FROM cat_dest WHERE id_cat="&request("id_cat")&" ")
rs.open SQL, conn

3) se il valore è già presente
if fieldArray(0)=rs("destinazione") then
' non fa nulla
else
'altrimenti
includi valore
sSQL = "INSERT INTO cat_dest (destinazione,id_cat) VALUES ('"&fieldArray(0)&"',"&request("id_cat")&")"
conn.execute (sSQL)
end if
next
rs.close
set rs=Nothing
conn.close
set conn=Nothing

ERRORE:

Tipo di errore:
(0x80020009)
Eccezione.
/lastfinale4/admin/gestione/insert.asp, line 27

linea 27 : if fieldArray(0)=rs("destinazione") then