Inkompatibla typer: 'CInt'

Hjälp nån...?

Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: 'CInt'
/gastbok/guest.asp, rad 210

<%
End Sub

Sub Show
NumPerPage=INT(objRec2("NumPerPage"))
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	[b]iPageCurrent = CInt(Request.QueryString("page"))  ***raden i fråga[/b]
End If
Set objRec = Server.CreateObject ("ADODB.Recordset")
StrSql = "SELECT * FROM Messages ORDER BY ID DESC;"
objRec.PageSize = NumPerPage
objRec.CacheSize = NumPerPage
objRec.Open StrSql,objConn,3,1,&H0001
iPages = objRec.PageCount
TotalRows = objRec.RecordCount 
If iPageCurrent > iPages Then iPageCurrent = iPages
If iPageCurrent < 1 Then iPageCurrent = 1
If iPages = 0 Then
Response.Write "Inga poster i dagboken!"
Else
ObjRec.AbsolutePage = iPageCurrent
%>

<%
If iPageCurrent <> 1 Then
	Response.Write("<a href=./guest.asp?page=" & iPageCurrent - 1 & """>Föregående</a> - ")
Else
	Response.Write "Föregående - "
End If
For I = 1 To iPages
If I = iPageCurrent Then
	Response.Write "<b>" & I & "</b> "
	Else
		Response.Write "<a href=./guest.asp?page=" & I & ">" & I & "</a> "
	End If
	Next
	Response.Write "&nbsp;"
	Else
		Response.Write "&nbsp;"
	End If 
End If
If iPageCurrent <> iPages Then
	Response.Write(" - <a href=./guest.asp?page=" & iPageCurrent + 1 & """>Nästa</a></font>")
Else
	Response.Write " - Nästa</font>"
End If

objRec.Close
Set objRec = Nothing
End Sub

Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConn
Set objRec2 = Server.CreateObject ("ADODB.Recordset")
ConfigSql = "SELECT * FROM Admin;"
objRec2.Open ConfigSql,objConn,0,1,&H0001
%>

Det som inte funkar är föregående/nästa. Att byta via sifferlänkarna går bra.
Vad innebär eg. CInt?

------------------

With resurrection comes new hope, for the future has yet to be created