Ver Mensaje Individual
  #7 (permalink)  
Antiguo 30/06/2005, 10:11
Avatar de Gaby_Corr
Gaby_Corr
 
Fecha de Ingreso: junio-2005
Mensajes: 672
Antigüedad: 19 años, 11 meses
Puntos: 0
bueno , aki te paso el codigo del formulario primero:
<TD>
<%
Dim conexion
Dim rds
conexion = "Provider=Microsoft.Jet.OLEDB.4.0; " & ";Data Source=" & Server.Mappath("\db\" + "stands.mdb") & ";" & "Persist Security Info=False;Jet OLEDB:Database Password="
Set rds = Server.CreateObject("ADODB.Recordset")
rds.ActiveConnection = conexion
rds.Source = "SELECT * FROM stands" & " WHERE ocupado = 0"
rds.CursorType = 2
rds.CursorLocation = 2
rds.LockType = 3
rds.Open
response.Write "<FONT SIZE=""2"" FACE=""Arial""><B>*No. Stands:</B></FONT><td><select multiple size=""5"" name=""combo"" >"
response.Write "<option value="""">Seleccione No. Stands &nbsp;&nbsp;&nbsp;&nbsp;</option>"
Do While (NOT rds.EOF)
id_stand = rds("stand")
descripcion = rds("pabellon")
Response.Write "<OPTION VALUE=""" & id_stand & """>" & id_stand & " - " & descripcion & "</OPTION>"
rds.MoveNext
Loop
Response.Write "</select>"
on error resume next
rds.Close
Set rds = Nothing
%>
</TD>


entonces despues en la pag procesa.asp (ejem) como le haria para hacer el update con esa mismas sentencias para hacer la conexion ???, esa es mi duda