Ragazzi sto facendo questo accrocchio un pò strano; ho un form che passa le variabili che vedete nel codice. Nella pagina del form si apre una popup con select dinamiche che mi inserisce dei valori nella tabella appoggiomaco ( campi: farmaco e attivo (si/no)). Nella pagina che mi processa il form volevo inserire una select da appoggiomaco che mi prenda i rs maco e me li inserisca nel campo far della tabella principale. Se pero richiamo la pagina mi da:

ADODB.Field (0x80020009)
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.

A : è possibile fare ciò con questa struttura?
B : sul response.write mi tira fuori solo un record. Perche?
C : Inserisce il campo far ma mi inserisce un solo record. Cosa posso fare per fargliene passare altri? (Cioè, ho 3 far e li voglio inseriti tutti nella tabella principale).

codice:
<% 
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("intranet.mdb") 
set Conn=Server.CreateObject("ADODB.Connection") 
Conn.open strconn 
squ3="select maco from appoggiomaco;"
set rs=server.createobject("adodb.recordset") 
rs.open squ3,conn
do while not Rs.eof
farm=Rs("maco")
response.write rs("maco")
response.end
Rs.movenext
loop 

rs.close 
Set rs=Nothing
conn.close
set conn=Nothing
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("intranet.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset") 
set objRs = objConn.Execute("SELECT * from dimissioni") 
uo=session("uo")
nomem=session("nomemed")
cognomem=session("cognomed")
titolo=session("tit")
DATAIN=Request.Form("DATA")
cognome1=Request.Form("cognome")
cognome= Replace(cognome1,"'","''")
nome=Request.Form("nome")
CC=Request.Form("CC")
rico=Request.Form("rico")
dia1=Request.Form ("dia")
dia = Replace(dia1,"'","''")
ter1=Request.Form ("ter")
ter = Replace(ter1,"'","''")
osservazioni1=Request.Form ("osservazioni")
osservazioni = Replace(osservazioni1,"'","''")
dim=Request.Form("dim")
ter1=Request.Form ("ter")
terl = Replace(ter1,"'","''")
controllo1=Request.Form ("controllo")
controllo = Replace(controllo1,"'","''")
noti1=Request.Form ("noti")
noti = Replace(noti1,"'","''")
Sql = "INSERT into dim " 
sql= Sql & "(dat,cognome,nome,cc,rico,dim, " 
Sql= Sql & " dia,ter,osservazioni,conome,cocognome, "
Sql= Sql & "tit,terl,controllo, noti,uo,far) " 
sql= Sql & "VALUES (' " & datain & " ','"& cognome &"','" & nome & "', "
sql= Sql & "'" & cc & "','" & rico & "', '" & dim & "', "
sql= Sql & "'" & diagnosi & "',' " & terapia & " ', ' " & osservazioni & "', "
sql= Sql & "'" & nomem & "', '" & cognomem & "','" & titolo & "', "
sql= Sql & "'" & ter & "', '" & controllo & "', '" & noti & "','"&uo&"','"&far&"')"

OBJConn.Execute(SQL) 
Response.redirect "stampa.asp"
objRs.Close 
Set objRs = Nothing 
objConn.Close 
Set objConn = Nothing 

%>