Konstigt fel med paging

<%
Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

Set eofch = Server.CreateObject("ADODB.Connection")
eofch.Open "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

SQL = "SELECT * FROM *** WHERE Till = '"& session("id") &"'"
Set RecEof = eofch.Execute(SQL)

IF NOT RecEof.Eof THEN

Set dbNew = Server.CreateObject("ADODB.Connection")
dbNew.Open "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

no = "No"
SQL = "SELECT Count(*) FROM *** WHERE Till = '"& session("id") &"' AND Kollad = '"& no &"'"
Set RecNew = dbNew.Execute(SQL)
SQL = "SELECT Count(*) FROM *** WHERE Till = '"& session("id") &"'"
Set RecTot = dbNew.Execute(SQL)

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from *** WHERE Till = '"& session("id") &"' Order by Datum DESC"

strConString = "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3 'adUseClient
  .open strSQL, strConString 'öppnar databasen och hämtar info.
  .pagesize = 20 'bestämmer hur många poster per sida
  .absolutepage = intPageId 'bestämmer vilken sida som skall visas.
end with

intPages = cint( objRs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
intCurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.

do while not objRs.eof and intCurrentPost < objRs.pagesize

fromid = objRs("ID")

SQL = "SELECT * FROM *** WHERE ID = "& fromid &""
Set RecUsr = Connect.Execute(SQL)

	color = color+1

	If color mod 2 = 0 then
		bgcolor=""& bgcolor2 & ""
	Else
		bgcolor=""
		End If

  IF objRs("Kollad") = "Yes" THEN

strcontents = "<tr bgcolor=" & bgcolor & "><td width=""1""><IMG HEIGHT=""8"" SRC=""offline.gif"" WIDTH=""8""></td><td><font face=""Verdana"" size=""1""><A href=""?id=mess&messid="& objRs("ID") &""">"& objRs("Rubrik") &"</A></td><td><font  face=""Verdana"" size=""1""><a href=""default.asp?id=userinfo&userid=" & RecUsr("ID") & """>" & RecUsr("Nick") & "</a></td><td><font face=""Verdana"" size=""1"">"& objRs("Datum") &""

IF session("snutonline") = "onlinesnut" THEN
strcontents = strcontents & " - IP: "& objRs("ip") &""
END IF

strcontents = strcontents & "</td></tr>"

ELSE
strcontents = "<tr bgcolor=" & bgcolor & "><td width=""1""><IMG HEIGHT=""8"" SRC=""online.gif"" WIDTH=""8""></td><td><font face=""Verdana"" size=""1""><A href=""?id=mess&messid=" & objRs("ID") & """>"& objRs("Rubrik") &"</a></td><td><font  face=""Verdana"" size=""1""><a href=""default.asp?id=userinfo&userid=" & RecUsr("ID") & """>" & RecUsr("Nick") & "</a></td><td><font face=""Verdana"" size=""1"">"& objRs("Datum") &""

IF session("snutonline") = "onlinesnut" THEN
strcontents = strcontents & " - IP: "& objRs("ip") &""
END IF

strcontents = strcontents & "</td></tr>"

END IF

  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop

function getFirstLink()
  getFirstLink = " <a href='?id=inkorg&pageid=1'>Första sidan</a> "
end function

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?id=inkorg&pageid=" & intPageId - 1 & "'>&lt;&lt;</a> "
  end if
end function

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?id=inkorg&pageid=" & i & "'>" & i & "</a>"
next

function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a href='?id=inkorg&pageid=" & intPageId + 1 & "'>&gt;&gt;</a> "
  end if
end function

function getLastLink( intPageCount )
  getLastLink = " <a href='?id=inkorg&pageid=" & intPageCount & "'>Sista sidan</a> "
end function

function getPageInfo( intPageId, intPageCount )
  getPageInfo = "Sida: " & intPageId & "/" & intPageCount & " "
end function

END IF

När objRs("ID") är annat än 1 så får jag ett felmeddelandet: Undantag inträffade.