Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/02/2005, 08:03
ser31
 
Fecha de Ingreso: enero-2005
Mensajes: 21
Antigüedad: 20 años, 3 meses
Puntos: 0
onchange para ver una base de datos

Buenas de new, ya comenté que tenia una base de datos creada en access, y que se intoducian nuevos registros a través de un formulario.
La base de datos es sencilla, una única tabla con 12 campos (nombre,contacto,direccion,etc...).
para la actualización de datos quise crear el mismo formulario con el fin de que al seleccionar un nombre inmediatamente apareciran los datos correspondientes en cada campo del formulario de dicho nombre.
Lo último que se me ocurrió es con el elemnto onchange pero no me va, a ver si alguien me dice que error tengo en el cógico
Gracias a todos por su ayuda. Salud y cadismo VIVA EL CADIZ!!!!!!!!!!!

<HTML>
<HEAD>
<TITLE>Actualizar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Actualizar un registro</h1>
<br>
<FORM NAME="formulario" METHOD="POST" ACTION="actualizar2.asp">
Nombre / Denominación Social <select name=id onChange=location.href('actualizar1.asp?id=' +formulario.id.options[formulario.id.selectedIndex].value)"><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "synapsaproyec.com.direcciones"

SQL_nombre="select * from direcciones order by nombre"
set RS_nombre=createobject("ADODB.Recordset")
RS_nombre.open SQL_nombre,conn
do while not RS_nombre.eof
nombre = RS_nombre("nombre")
id = RS_nombre("id")
p = request.querystring("nombre")
if p <> "" then
if p = nombre then
response.write "<option value="&id&"&nombre="&nombre&"
selected>"&nombre&"</option>
elseif p <> nombre then
response.write "<option value="&id&"&nombre="&nombre&">"&nombre&"</option>"
end if
else
response.write "<option value="&id&"&nombre="&nombre&">"&nombre&"</option>
end if
RS_nombre.movenext
loop
RS_nombre.close
%>
</select>
<%
if request.querystring("id") <> "" then %>
CONTACTO: <input name=contacto value=
<%
SQL_contacto="select * from direcciones where nombre="&request.querystring("id")&" order by nombre"
set RS_contacto=createobject("ADODB.Recordset")
RS_contacto.open SQL_contacto,coon
do while not RS_contacto eof
nombre = request.querystring("nombre")
contacto = RS_contacto("contacto")
%>
>
<% end if%>
</form>
</BODY>
</HTML>