mi codigo:
Código:
<body bgcolor="#000000" text="#000000" marginwidth="0" marginheight="0">
<table>
<tr>
<td width="100%">
<form action="actualbd.asp" method="post" name="stand" onsubmit="return formCheck(this);">
<table width="98%" border="0" cellspacing="5" cellpadding="5">
<tr>
<td width="50%" valign="top" class="Estilo3">
<b>Escoge los stands que deseas cambiar su status a No
disponible.</b>
</td>
</tr>
<tr>
<td>
<%
Dim conexion
Dim rds
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Vivienda"
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 "<select multiple size=""15"" name=""combo"" >"
Response.Write "<option value=""x"">Seleccione No. Stands </option>"
Do While (NOT rds.EOF)
id_stand = rds("stand")
descripcion = rds("pabellon")
Response.Write "<OPTION VALUE=""" & id_stand & """>" & " - " & descripcion & "</OPTION>"
rds.MoveNext
Loop
Response.Write "</select>"
on error resume next
rds.Close
Set rds = Nothing
conexion.close
Set conexion = Nothing
%>
</td>
</tr>
<TR>
<TD><INPUT TYPE="SUBMIT" NAME="cmdEnviar" vALUE="Actualizar"></TD>
</TR>
</table>
</form>
</td>
</tr>
</table>
y en la pag actualdb.asp tengo la parte donde actualiza la bd