Originariamente inviato da francysonoio
Salve a tutti, cerco di esporvi il mio problema.
Allora ho in un db dei dati, ne faccio una select e quindi carico l'rs.
adesso siccome sono sicura che l'rs ha solo 3 valori io voglio assegnarli a delle variabili e faccio in questo modo.
[codice]
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/ddase.mdb")
dim dataodierna
dataodierna = date()
Sql = "Select * from UPLOAD where data = '" & dataodierna & "';"
Set Rs = Conn.Execute(Sql)
dim n
do while not (rs.eof)
'qui faccio una prova
id=rs("id")
response.write(id&": ")
if n = 1 then
id1=rs("id")
nome1=rs("nomefile")
else
if n = 2 then
id2=rs("id")
nome2=rs("nomefile")
else
id3=rs("id")
nome3=rs("nomefile")
end if
end if
rs.movenext
n=n+1
loop
[/codice]
come vedete dal codice, spero si capisca, avendo solo 3 valori voglio associarli in quel modo. purtroppo non mi funziona l'errore è
21 '////questo lo stampo a video ed è il primo id dell'rs
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
Cosa devo aggiustare?
Scusate l'ignoranza ma l'rs supporta qualcosa del genere? id1=rs(id,1) ecc ecc senza che faccio tutti quegli if?