Inkompatibla typer

Jag får felmedelandet

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer
/v2.0/gastbok.asp, line 266

Jag har kört detta skriptet innan som då fungerat men jag måste gjort något konstigt eftersom det inte fungerar nu?

Line 266 är

Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

Public Sub buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

	'// Navigering - Första/Bakåt
	If intPage > 1 Then
		Response.Write ""& vbcrlf &_
		"	<button onclick=""parent.main.location.href='main.asp?page=" & request.querystring("page") & "&Fpage=';"" title="" Första "" class=""navBtn"">&nbsp;<<<&nbsp;</button>"& vbcrlf
	Else
		response.write "	<button disabled=""disabled"" class=""navBtn"">&nbsp;<<<&nbsp;</button>"& vbcrlf
	End If

	If intPage > 10 Then
		Response.write "	<button onclick=""parent.main.location.href='main.asp?page=" & request.querystring("page") & "&Fpage="& intPage - 10 &"';"" title="" Backa10 "" class=""navBtn"">&nbsp;<<&nbsp;</button>"& vbcrlf & vbcrlf
	Else
		response.write "	<button disabled=""disabled"" class=""navBtn"">&nbsp;<<&nbsp;</button>"& vbcrlf
	End If

	If intPage > 1 Then
		Response.write "	<button onclick=""parent.main.location.href='main.asp?page=" & request.querystring("page") & "&Fpage="& intPage - 1 &"';"" title="" Backa "" class=""navBtn"">&nbsp;<&nbsp;</button>"& vbcrlf & vbcrlf
	Else 
		response.write "	<button disabled=""disabled"" class=""navBtn"">&nbsp;<&nbsp;</button>"& vbcrlf & vbcrlf
	End If

Tack på förhand

Vad innehåller variablerna intPage, intTotalPosts, intPostsPerPage och intPages när du kallar på subrutinen då?

intPageSize = 10
intPage = request.querystring("Fpage")

if intPage = "" then intPage = 1

  strSql = "Select Count(*) As intAntal from tblGb"
  set objRs = objConr.execute(strSql)

    intAntal = objRs("intAntal")

	'// Poster per sida
	intPostsPerPage = 10

	'// Navigeringshantering
	If Len(trim(Request.Querystring("Fpage"))) > 0 Then intPage = cInt(trim(Request.Querystring("Fpage"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	intTotalPosts = intAntal
	intPages = ((intTotalPosts)\intPostsPerPage)-1

	If intFirstPost + (intPostsPerPage - 1) >= intAntal Then
		intLastPost = intAntal
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

testa att skriva ut värdena så du vet säkert att du får in dem korrekt i subben.

Response.Write(intPage & "|" & intTotalPosts & "|" & intPostsPerPage & "|" & intPages)
'Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)