Ayuda con Dropdown y modificar registro
Buenas experto te pregunto de nuevo esta vez tengo un problema quiero modidicar un registro,, muestro el campo usuario en un dropdown no se como hacer que al seleccionar cualquier usuario me muestre su contenido y poder modificarlo no he podido hacerlo gracias de antemano te anexo el código
Pagina1
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<FORM METHOD="POST" ACTION="2.asp">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select Usuario From administrativo Order By Usuario"
set rs = con.Execute(SQL)
%>
<select name="usuario">
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
SQL="Select Usuario,Nombre,Apellido,Cargo,Unidad from administrativo"
set rs=con.execute(SQL)
dim cam1,cam2,cam3,cam4,cam5
cam1=rs("Usuario")
cam2=rs("Nombre")
cam3=rs("Apellido")
cam4=rs("Cargo")
cam5=rs("Unidad")
%>
<br>
Usuario<br>
<INPUT TYPE="TEXT" NAME="usuario" value=<%=cam1%> ><br>
<br>Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre" value=<%=cam2%> ><br>
<br>Apellido<br>
<INPUT TYPE="TEXT" NAME="apellido" value=<%=cam3%> ><br>
<br>Cargo<br>
<INPUT TYPE="TEXT" NAME="cargo" value=<%=cam4%> ><br>
<br>Unidad<br>
<INPUT TYPE="TEXT" NAME="unidad" value=<%=cam5%> ><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
</BODY>
</HTML>
pagina 2
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
'Recogemos los valores del formulario
usuario1=Request.Form("usuario")
nombre= Request.Form("nombre")
apellido=Request.Form("apellido")
cargo=Request.Form("cargo")
unidad=Request.Form("unidad")
'Ahora creamos la sentencia SQL
SQL="Update administrativo Set Nombre='" & nombre & "',Apellido='" & apellido & "',Cargo='" & cargo & "',Unidad='" & unidad & "' Where Usuario='" & usuario2 & "'"
'Ejecutamos la orden
set rs = con.Execute(SQL)
%>
<h1><div align="center">Registro Actualizado</div></h1>
<%
'Cerramos el sistema de conexion
con.Close
%>
Pagina1
<HTML>
<HEAD>
<TITLE>Modificar Usuario</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<FORM METHOD="POST" ACTION="2.asp">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select Usuario From administrativo Order By Usuario"
set rs = con.Execute(SQL)
%>
<select name="usuario">
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
SQL="Select Usuario,Nombre,Apellido,Cargo,Unidad from administrativo"
set rs=con.execute(SQL)
dim cam1,cam2,cam3,cam4,cam5
cam1=rs("Usuario")
cam2=rs("Nombre")
cam3=rs("Apellido")
cam4=rs("Cargo")
cam5=rs("Unidad")
%>
<br>
Usuario<br>
<INPUT TYPE="TEXT" NAME="usuario" value=<%=cam1%> ><br>
<br>Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre" value=<%=cam2%> ><br>
<br>Apellido<br>
<INPUT TYPE="TEXT" NAME="apellido" value=<%=cam3%> ><br>
<br>Cargo<br>
<INPUT TYPE="TEXT" NAME="cargo" value=<%=cam4%> ><br>
<br>Unidad<br>
<INPUT TYPE="TEXT" NAME="unidad" value=<%=cam5%> ><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
</BODY>
</HTML>
pagina 2
<!--#INCLUDE FILE="funcion/conex.asp" -->
<%
'Recogemos los valores del formulario
usuario1=Request.Form("usuario")
nombre= Request.Form("nombre")
apellido=Request.Form("apellido")
cargo=Request.Form("cargo")
unidad=Request.Form("unidad")
'Ahora creamos la sentencia SQL
SQL="Update administrativo Set Nombre='" & nombre & "',Apellido='" & apellido & "',Cargo='" & cargo & "',Unidad='" & unidad & "' Where Usuario='" & usuario2 & "'"
'Ejecutamos la orden
set rs = con.Execute(SQL)
%>
<h1><div align="center">Registro Actualizado</div></h1>
<%
'Cerramos el sistema de conexion
con.Close
%>
1 Respuesta
Respuesta de smunoz
1