21/12/2003, 03:40
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 23 años, 6 meses Puntos: 2 | |
| la base es de acces
la base se llama afiliados
la tabla se llama afiliados
quiero mostrar los datos
los camopos a mostrar son
nombre
empresa
correo
requisitos
nombre
empresa
correo
van en algo asi
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
y
requisitos en un textarea para que no ocupe espacio
este es el proble no puedo meter el contenido de ese campo en ese cuadro de texto para mostrarlo en una pagina ya le di muchas vueltas y no puedo
mi codigo inicial es
<html>
<head>
<title>pagina de prueba</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB ,1 ,2
While NOT TBL.EOF
Response.Write("<b>Nombre :</b> " & TBL("Nombre") & "<br>")
Response.Write("<b>Empresa :</b> " & TBL("Empresa") & "<br>")
Response.Write("<b>Correo :</b> " & TBL("Correo") & "<br>")
Response.Write("<b>Requisitos :</b> " & TBL("Requisitos") & "<br><br><hr>")
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
%>
</body>
</html>
gracias
Última edición por ivan02; 21/12/2003 a las 03:41 |