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:
Gracias ¡¡¡ <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>
