Insert con Select name en ASP

[RMCdotNet]

Basicamente lo que quiero hacer es:
lo que se elija en el select name, pasarlo a una variable y de ahi insertarlo en la BD Access 2010.

code:

Código:

<div id="zona_1">
        	<%
			sql = "Select * from usuarios"
			rs.open sql,cn 
            %> 	
            
            <label> <b> Seleccionar Usuario:  </b></label>
              <select name="selectUsuario">
                <% Do While Not RS.EOF %>
                <Option value=><%=rs("Usuarios")%></option> 
                <%			
				RS.MoveNext
				Loop
				rs.close
				 %>
              </select>

            
              <%
			sql2 = "Select * from equipos"
			rs.open sql2,cn 
            %> 	
              
            </p>
        <label> <b> Seleccionar Equipo:  </b></label>
            <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>&nbsp;</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
		   %>
        
		</div>

NO SE si se puede hacer eso con ASP, por ahi lei que tenia que usar javascript para recoger lo que el usuario eligiera, pero... no le encuentro sentido como es que ASP no lo puede hacer?.

Cuando ejecuto esto, no me da error sino que inserta solamente la fecha

osea que ni registra los "select name" osea lo que elijen.

Gracias!!

[RMCdotNet]

¿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>&nbsp;</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
		   %>

[computer_si]

Buenas noches

Te envio un trozo de codigo, donde checo en una BD que estado guarde, y en base a eso pongo el selct dentro de la lista, es muy sencillo y espero te sirva.

<%if id = 0 then%>
<td width="20%" align="left"><select name="estado" id="estado" width="30" align="left" ><option value="0" selected="selected">Elija una Opcion.</option>
<%else%>
<td width="20%" align="left"><select name="estado" id="estado" width="30" align="left"><option value="0">Elija una Opcion.</option>
<%end if

Set rsEdo=Server.CreateObject("ADODB.Recordset")
rsEdo.Source="SELECT * FROM estados ORDER BY descripcion ASC"
rsEdo.CursorType=adOpenStatic
rsEdo.ActiveConnection="DRIVER={Firebird/Interbase(r) Driver}; DBNAME=localhost:C:\Inetpub\wwwroot\tanques\datos\ ADMON.FDB; UID=SYSDBA; PWD=masterkey"
rsEdo.Open
rsEdo.MoveFirst

while not rsEdo.EOF
if id = 0 then
%>
<option value="<%=rsEdo("idEstado")%>"><%=rsEdo("descripci on")%></option>
<%else%>
<option value="<%=rsEdo("idEstado")%>" <% if rsTabla("estado")=rsEdo("idEstado") then Response.Write("selected='selected'")%> ><%=rsEdo("descripcion")%></option>
<%end if
rsEdo.MoveNext
wend
rsEdo.close
set rsEdo = Nothing
%>
</select></td>

La opcion select selected es la que nos dice el elemento seleccionado, a la inversa cuando voy a grabar en la BD evaluo select=selected y el numero que tiene en el indice, ese es el que guardo en la BD, que es el mismo que tomo cuando voy a mostrar el registro en particular.

Saludos

[RMCdotNet]

gracias por la respuesta pero no pude hacer nada con ella....

Mi unica duda, es:


COMO HAGO PARA TOMAR EL VALOR DEL SELECT Y AL TOMAR METERLO EN MI SQL STRING (UN INSERT) PARA QUE ASI, GRABE EN LA BD LO QUE EL USUARIO ELIGIO EN EL SELECT

Aqui me trae la fecha pero no los valores de los select....

Código:

<% dim cargar, SelUsuario, selEquipo
		   	    SelUsuario = request.Form("selectUsuario")
				SelEquipo = request.Form("selectEquipo")
				
  				'if request.Form("Alta") =  "Cargar Prestamo !" then	
					 sql = "INSERT INTO Prestamos (FechaPrestamo, Usuario, equipo) VALUES (#" & Date() & "#, '"& SelUsuario &"','"& request.Form("selectEquipo") &"' )"
					cn.execute sql
				'sirve para ver el sql que ejecuta, la cadena y ver el error
					response.write sql
					response.end 
		   %>