Cita:
Iniciado por entered <%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
ADODB.Recordset1
Recordset1.Source = "SELECT * FROM Campos"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Esa linea esta de más. Yo lo hago normalmente así:
Código:
Dim oConn1,oRs1
Set oConn1 = Server.CreateObject("ADODB.Connection")
Set oRS1 = Server.createobject("ADODB.Recordset")
oConn1.Mode=3
oConn1.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("rebe_pad.mdb"))
oRs1.Open "select * from repmen",oConn1
Saludos