ups, tenia un punto de mas, pero tengo esto, pero no se que tengo mal
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="
rs.Execute "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"
do while not rs.EOF
descrip = rs("pabellon")
loop
rs.Close
Set rs = Nothing