Yes, I am happily solving this thread
It all about the cursor type that causes all that error! What I do is to force ADO to construct a static cursor by specifying a client-side cursor!!!
My previous Database Connection (updated with the static cursor):
- Code: Select all
Dim connString, rs, conn
connString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER="& DB_SERVER &"; DATABASE="& DB_NAME &"; OPTION=4; UID="& DB_USER &"; PASSWORD="& DB_PASS &";"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
conn.Open(connString)
And the If statement just works FINE
- Code: Select all
If Not rs.EOF Then
rs.MoveFirst
rs.PageSize = NumPerPage
TotalPages = rs.PageCount
rs.AbsolutePage = CurrentPage
End If