Cita:
Iniciado por orharo2003 Te dejo una referencia :
http://www.aspfacil.com/articulos/040401.asp
Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
set rs = server.createobject("ADODB.RecordSet")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
sql=
"SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")" rs.open sql,cn
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"
do while not rs.EOF
descrip = rs("pabellon")
rs.movenext
loop
rs.Close
Set rs = Nothing
ahora si.
Entra en un ciclo sin fin.
That's it !!