Hola¡¡¡ estoy intentando mostrar el campo Codigo de una tabla de mi base de datos en un control select, hasta hay se me ejecuta bien, ahora lo que quiero hacer es que al pulsar un determinado código y darle a modificar pase a la página siguiente y en un formulario esten los datos de ese producto rellenos, para poder ser editados y finalizar dandole al boton guardar para hacer efectivos los cambios.
Ahora mismo lo único que he conseguido es que me llene el formulario de la página de edición con el primer registro, y tras las últimas modificaciones intentando que me lo rellenara con el articulo seleccionado, directamente se pasa a la sentencia ("No existe ningún artículo con dicho código").
Código:
<FORM ACTION="Editar.asp" METHOD="POST">
<INPUT TYPE="Submit" VALUE="Modificar">
</FORM>
<%
session("servidor")="***********"
session("usuariobd")="**********"
session("contrasenabd")="**********"
session("bd")="***********"
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open = "driver={MySQL};server="&session("servidor")&";uid="&session("usuariobd")&";pwd="&session("contrasenabd")&";database="&session("bd")&""
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select Codigo,Descripcion,Precio, Referencia from articulos",conexion
%>
<select name="Codigo" value="<%= Request.Form("Codigo") %>" size="1" id="select2" onchange="cambia()">
<option value="0">==Seleccionelo !!==</option>
<%
do until registros.EOF
%>
<%
if registros.fields("Codigo")=value then
response.Write("<option selected>" & registros.fields("Codigo") & "</option>")
else
response.Write("<option>" & registros.fields("Codigo") & "</option>")
end if
%>
<%
registros.movenext
loop
conexion.close
%>
Código:
<html>
<head>
<title>Edicion</title>
</head>
<body>
<%
session("servidor")="*********"
session("usuariobd")="*********"
session("contrasenabd")="*******"
session("bd")="*******"
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open = "driver={MySQL};server="&session("servidor")&";uid="&session("usuariobd")&";pwd="&session("contrasenabd")&";database="&session("bd")&""
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")
guardado=request.querystring("Codigo")
registros.Open "SELECT * FROM articulos where Codigo='"&guardado&"'", conexion
if not registros.eof then
%>
<form action="Editar.asp" method="post">
<input type="text" name="Codigo"
value="<%response.write(registros("Codigo"))%>"><br>
<input type="text" name="Descripcion"
value="<%response.write(registros("Descripcion"))%>"><br>
<input type="text" name="Precio"
value="<%response.write(registros("Precio"))%>"><br>
<input type="text" name="Referencia"
value="<%response.write(registros("Referencia"))%>"><br>
<input type="submit" value="Guardar"><br>
</form>
<%
else
response.write("No existe ningún artículo con dicho código")
end if
conexion.close
%>
</body>
</html>
Gracias ¡¡¡