Foros del Web - Ver Mensaje Individual

ivan02 · #8 (**permalink**) 14/07/2003, 10:41

Este codigo es el que estoy usando para ver mis registros creo que ya se porque no se ve parese que la base que estan ocupando en el ejemplo de arriba solo tiene un campo la tabla y es usuarios y lo que estoy ocipando yo son un monton algo tine que ver esto en el ejemplo de aqui abajo decalro uno por uno los campos yamar que puedo hacer tengo todos estos campos de aqui abajo: direccion correo tel etc. que hago?

<html>
<head>
<title></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("Direccion : " & TBL("Direccion") & " ")
Response.Write("Telefono : " & TBL("Telefono") & " ")
Response.Write("Correo : " & TBL("Correo") & " ")
Response.Write("Precio : " & TBL("Precio") & " ")
Response.Write("Nombre : " & TBL("Nombre") & " ")
Response.Write("Amueblado : " & TBL("Amueblado") & " ")
Response.Write("Garage : " & TBL("Garage") & " ")
Response.Write("Tel : " & TBL("Tel") & " ")
Response.Write("Recamaras : " & TBL("Recamaras") & " ")
Response.Write("banos : " & TBL("banos") & " ")
Response.Write("Requisitos : " & TBL("Requisitos") & " <hr>")
TBL.MoveNext

Wend

TBL.Close
DB.Close

Set DB = Nothing
Set TBL = Nothing

%>

</body>
</html>