Paging i case ??

Mit første asp script er en gæstebog.
Jeg kører den med Case og kalder hver side med et ID=casenavn

Nu har jeg forsøgt at lave paging men det kører ikke rigtigt.

Scriptet er her:

response.write \"<a href=\'guest.asp?ID=AddEntery\'>Skriv i Gæstebogen</a> | \"
response.write \"<a href=guest.asp>Gå til forsiden</a><br><br>\"
intpage = request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End if

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
StrSql =\"SELECT * FROM guest\"
StrDNS =\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"guest.mdb\")
rs.Open strSQL, strDNS, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 1
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.write \"<b>Side \" & intPage & \" af \" & intPageCount & \"</b><br><br>\"

Do While Not rs.EOF And intRecCount > 0

response.write \"<b>Navn:</b>\" & rs(\"Navn\") & \"<br>\" & \"<img src=\"\"img/\" & rs(\"img\") &\"\"\"><br>\"& \"<b>Kommentar:</b>\" & rs(\"kommentar\") &\"<br>\" & \"<b>E-Mail</b>: <a href=mailto:\" & rs(\"email\") & \">\" & rs(\"email\") & \"</a><br>\"

intRecCount = intRecCount - 1
rs.MoveNext
Loop
End if
rs.Close
Set rs = Nothing

Response.write \"<br><br>Gå til side\"
For intNum = 1 To intPageCount
Response.write \"<a href=guest.asp?page\" & intNum & \">\" & intNum & \"</a> \"
Next

response.write \" <br> \"
If Clng(intPage) > 1 Then
response.write \"<a href=guest.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
response.write \"&lt;&lt;\"
End if

response.write \"&nbsp\"

If Clng(intPage) < Clng(intPageCount) Then
response.write \"<a href=guest.asp?page=\" & intPage + 1 & \"> &gt;&gt; </a>\"
Else
response.write \"&gt;&gt;\"
End if

Siden hedder guest.asp og casen hvor man får vist siden med indlæg hedder case \"wievguestbook\"

Jeg mener at det er her det går galt \"<a href=guest.asp?page=\"  jeg har jo ikke den korrekte parameter på, jeg har prøvet 100 forskellige syntaxer men den vil s.. ikke.
Help please