Array e controllo

[agenti]

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

[agenti]

up..

[Sypher]

non so darti una risposta precisa...ma io intanto metterei la parte in cui fai la select fuori dal ciclo...tanto da quanto ho capito la devi fare solo una volta...

[Sypher]

prova una cosa del genere

recordArray = split(request("destinazione"),",")
Set rs = Server.CreateObject("ADODB.recordset")
SQL=("SELECT * FROM cat_dest WHERE id_cat="&request("id_cat")&" ")
rs.open SQL, conn
destinazione = rs("destinazione")
rs.close
set rs=Nothing

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

if fieldArray(0)=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
conn.close
set conn=Nothing

[santino83]

fai un esempio di come è recordArray?

[agenti]

recordArray riceve un post di questo tipo:

argentina,Italia,Francia, olanda

[Baol74]

Il recordset è vuoto. Metti il test Not Rs.Eof

If Not rs.Eof then
if fieldArray(0)=rs("destinazione") then