
23/08/2006, 17:37
|
| | Fecha de Ingreso: octubre-2003 Ubicación: Lima
Mensajes: 319
Antigüedad: 21 años, 6 meses Puntos: 2 | |
Excelenteeee: aqui les paso el codigo si es que lo necesitan funcando totalmente:
<%
Dim conn1, rs1, SQL1, var1, var2
set conn1 = Server.CreateObject("ADODB.Connection")
set rs1 = Server.CreateObject("ADODB.Recordset")
conn1.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prueba.mdb"))
SQL1="SELECT * from cat;"
rs1.open SQL1, conn1, 3,3
For I = 0 To rs1.Fields.Count - 1
Response.Write (rs1.Fields(I).Name &"<br>")
Next
response.Write( rs1.Fields.Count)
%> |