Salve ragazzi
sapete dirmi dov'é l'errore
ADODB.Field (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
io sarò cecato ma non lo vedo.
Si blocca su i=1 in prossimità dell'istruzione idcon=T_DecodificaConsulenti.fields(0) e i valori presenti nell'array sono 3
separati = split(strTesto, carattere)
Set Comando=Server.CreateObject("ADODB.COMMAND")
Comando.ActiveConnection=objconn
for i=0 to ubound(separati)
consulente=separati(i)
Response.Write consulente & "
"
MyCheck = IsNumeric(consulente)
if mycheck = false then
Set T_DecodificaConsulenti=Server.CreateObject("ADODB. Recordset")
ComandoSQL = "Select id from T_Consulenti where cognome = '" & trim(consulente) & "' "
T_DecodificaConsulenti.ActiveConnection=Objconn
T_DecodificaConsulenti.Open(comandosql),Objconn,1, 3
idcon=T_DecodificaConsulenti.fields(0)
T_DecodificaConsulenti.close
StrCom = "Sp_Update_Progetti " & id & "," & iddoc & "," & idarea & ", " & idcon & ", '" & titolo & "','" & stato & "','" & tipo & "','" & descrizione & "','" & strimmagine & "' "
Response.Write strcom
'Comando.Execute
end if
next
set T_DecodificaConsulenti=nothing
Grazie
Rispondi quotando
