Error ตรง absolutePage แก้ยังไงคับ เดิมผมใช้ MSAccess เป็นฐานข้อมูลแต่ได้เปลี่ยนเป็น MYSQL แล้วและจำทำการแบ่งหน้าคับ

<%
	Dim Conn,strSQL,objRec
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
	"pwd=root;database=mydatabase;option=16384;"
	strSQL = "SELECT * FROM customer "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3
	
	If objRec.EOF Then
		Response.write (" Not found record.")	
	Else
	
	'**** Paging/Pagination Calculator ***'
	Dim PageLen,PageNo,TotalRecord,TotalPage,intID
	Dim PageStart,PageEnd
	PageLen = 2 
	PageNo = Request.QueryString("Page")
	if PageNo = "" Then PageNo = 1
	TotalRecord = UBound(objRec.GetRows,2)+1
	PageStart = ((PageLen*PageNo)-PageLen)
	PageEnd = PageLen
	If TotalRecord <= PageLen Then
		TotalPage =1
	ElseIf (TotalRecord Mod PageLen = 0) Then
		TotalPage =(TotalRecord/PageLen)
	Else
		TotalPage =(TotalRecord/PageLen)+1
		TotalPage = Cint(TotalPage)
	End If
	
	'*** Close Object and Open New RecordSet ***'
	objRec.Close()
	strSQL = strSQL&"ORDER BY CustomerID ASC LIMIT "&PageStart&" , "&PageEnd&""
	objRec.Open strSQL, Conn, 1,3

%>