Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/01/2005, 02:57
ser31
 
Fecha de Ingreso: enero-2005
Mensajes: 21
Antigüedad: 19 años, 3 meses
Puntos: 0
recoger datos de una base de datos e introducirlos en un formulario

Tengo una tabla access sencilla con 12 campos (id,nombre,contacto,direccion,etc...)
tod me funciona, pero quisiera hacer una forma de consulta de datos, crear practicamente el mismo formulario con el que se hacen nuevos registros para así poder ver de esta forma los registros de la base de datos en un formulario, tengo el siguiente código, pero no me va me da error del servidor 500
<HTML>
<HEAD>
<TITLE>Actualizar1.asp</TITLE>
</HEAD>
<BODY>
<h1>Actualizar un registro</h1>
<br>
<FORM NAME="formulario" METHOD="POST" ACTION="actualizar2.asp">
<p>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 nombre 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>
CONTACTO:
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</BODY>
</HTML>

AYUDENMEEEEEEEE PLEASE YA NO SE QUE HACER MÁS
GRACIAS A TODOS Y SALUD

Última edición por ser31; 14/02/2005 a las 04:31