Dim cn
Dim rs
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
squery = "SELECT * FROM stands " & " WHERE stand IN (" & request.form("combo") & ")"
rs.open squery,cn
sql = "INSERT INTO stands (nombre) VALUES (REQUEST.FORM("txtNombre"))"
cn.Execute (sql)
cn.Execute "UPDATE stands Set ocupado=1" & " WHERE stand IN (" & request.form("combo") & ")"
es q no he hallado algo del insert con valores de un formulario,
saludos y thanks
