Microsoft VBScript runtime error '800a01c2'

Jag har hämtat lite kod ifrån webeye.nu.
Paging
http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp_17.asp

Är det någon som vet varför jag får följande felmeddelande?
Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'getPageInfo'

sidan.asp, line 60

Jag ändrade navigeringen till avancerad.
Koden ser ut så här:

<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from Avtalsregister Order by Avtalstagare asc"
strConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &_
Server.MapPath("/") & "\databas.mdb"

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

with objRs
  .cursorlocation = 3
  .open strSQL, strConString
  .pagesize = 20
  .absolutepage = intPageId
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td>" & objRs( "fäl1" ) & "</td>" &_
    "<td>" & objRs( "fält2" ) & "</td></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?pageid=" & intPageId - 1 & "'>&lt;&lt; Föregående</a> "
  end if
end function
function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a href='?pageid=" & intPageId + 1 & "'>Nästa &gt;&gt;</a> "
  end if
end function
function getLastLink( intPageCount )
  getLastLink = " <a href='?pageid=" & intPageCount & "'>Sista sidan</a> "
end function
function getFirstLink()
  getFirstLink = " <a href='?pageid=1'>Första sidan</a> "
end function
function getPageInfo( intPageId, intPageCount )
  getPageInfo = " Antal sidor: " & intPageCount & ", nuvarande sida: " & intPageId & " "
end function

response.write "<table>" & strContents & "</table>"
response.write ""& getPageInfo &""
 %>

Funktionen getPageInfo förväntar sig ju parametrarna intPageId och intPageCount. Du måste skicka med dessa.

Du kan dessutom skippa ""& före och &"" efter funktionsanropet, det är helt onödigt.

Nu är jag lite dålig på detta!
Kan jag skriva
response.write getPageInfo, intPageId, intePageCount ?

Det ser i scriptet ut som att du borde kunna skriva:

response.write getPageInfo (intPageId, intPages)

mvh

Hoppas att det är ok att rådfråga mer!?
Allt fungerade utom när jag skulle lägga till resterande funktioner. Nästa sida fungerar inte.

<td width="20%"><% response.write getFirstLink %></td>
<td width="20%"><% response.write getPreviousLink (intPageId) %></td>
Här under ligger felet. Hänvisar till sidan 1
<td width="20%"><% response.write getNextLink (intPageCount, intPageId) %></td>
<td width="20%"><% response.write getLastLink (intPages) %></td>

Du har kastat om parametrarna.

Hur menar du då?
Du vet att jag är amatör!?

Du har skrivit intPageCount först och sedan intPageId, men det ska vara tvärtom.

Jo... jag hade testat det innan... men det fungerar inte heller.
Tack ändå!
Jag förstår inte var jag ska hämta info för att kunna länka till nästa sida om man inte gör det med "intPageId".
Men det är kanske pressentationen som är fel, för den visas inte över huvud taget när man öppnar filen i webbläsaren.

Får du ingen utskrift överhuvudtaget?
Har du en länk till sidan?

syclonen skrev:

Jo... jag hade testat det innan... men det fungerar inte heller.

Testa igen. Det är så det ska vara.

syclonen skrev:

Jag förstår inte var jag ska hämta info för att kunna länka till nästa sida om man inte gör det med "intPageId".

Jo, intePageId är nog rätt, men jag kan inte se att du skapar någon variabel som heter intPageCount. Om du använder intPages där istället så fungerar det nog mycket bättre.

Jag har tydligen missat ett alternativ...
intPageId, intPages fungerar...

Ursäkta min dåliga uppmärksamhet!

Tack så enormt mycket!