¿Se entendio el codigo?...
la ultima parte es la importante:
Código:
<select name="selectEquipo">
<% Do While Not RS.EOF %>
<Option value=><%=rs("Equipo")%></option>
<%
RS.MoveNext
Loop
rs.close
%>
</select>
</p>
<% dim actual
actual = Date() %>
<label> <b> Fecha de Prestamo: </b></label>
<%=Date()%>
<p> </p>
<div align="center">
<form id="cargar" name="cargar" method="post" action="">
<label><b>
<input type="submit" name="Alta" id="Alta" value="Cargar Prestamo !" />
</b></label>
</form>
</div>
<p> </p>
<% dim cargar, SelUsuario, selEquipo
'SelUsuario = request.Form("selectUsuario")
'SelEquipo = request.Form("selectEquipo")
if request.Form("Alta") = "Cargar Prestamo !" then
sql3 = "INSERT INTO Prestamos (FechaPrestamo, Usuario, equipo) VALUES (#" & Date() & "#, '" SelectUsuario "','" selectEquipo "' )"
rs.open sql3
'sirve para ver el sql que ejecuta, la cadena y ver el error
response.write sql3
response.end
end if
%>