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
, pero deberiamos poner un poco de mas empeno para ver que es lo que falla...
Afortunadamente hoy es viernes!!!
No la quinta pero ya comence!!! ja ja ja, ahora que sali a comer fueron dos, ya nada mas espero que se comiencen a ir todos y seguire con lo de los viernes
bueno más bien u_goldman que ya está encarrerado.
