invio di più form

[marco25b]

mmmh ... lo so sono un rompi...

mi dice "While Not RsUtenti.Eof" Necessario oggetto
devo creare 1 connessione con la tabella utenti giusto?

[Baol74]

certo... ti fai le domande e dai le risposte ?

[marco25b]

si xkè lo fatto ma non funziona

[Baol74]

cosa non funziona? Posta il codice completo...

[marco25b]

':::::::::::::::::::::::::::::::::::::::::::::: Inserimento dati

Set RS = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT id, destinatario, mittente, messaggio, DataPost from messaggi"
RS.Open SQL,conn,2,3
RS.AddNew

Set RSutenti = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT id, nick from utenti"
RSutenti.Open SQL,conn,2,3

While Not RsUtenti.Eof
Rs.AddNew()
RS("destinatario") = RsUtenti("nick")
RS("titolo") = Uploader.Form("titolo")
RS("descrizione") = strMessage
RS("DataPost") = DATE

RS.Update
RsUtenti.MoveNext
RS.Close
Wend

[Baol74]

ok, ora dimmi l'errore o il problema....

[marco25b]

eccomi ... l errore è questo:

[QUOTE]Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''
/superba.it/cerca/contatta.asp, line 210[QUOTE]
alla linea 210 c'è "While Not Rs2Utenti.Eof"

[Baol74]

ma come lo hai chiamato questo recordset utenti RsUtenti o Rs2Utenti?

[marco25b]

RsUtenti mi è Sfuggito il dito sul 2

[Baol74]

Set RS = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT id, destinatario, mittente, messaggio, DataPost from messaggi"
RS.Open SQL,conn,2,3
RS.AddNew

Set RSutenti = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT id, nick from utenti"
RSutenti.Open SQL,conn,2,3

While Not RsUtenti.Eof
Rs.AddNew()
RS("destinatario") = RsUtenti("nick")
RS("titolo") = Uploader.Form("titolo")
RS("descrizione") = strMessage
RS("DataPost") = DATE

RS.Update
RsUtenti.MoveNext
'RS.Close togliere dal ciclo. Ti chiude il recordset
Wend