Hjälp med gästbok

Kan någos se vad det är som är fel

jag får detta felmeddelandet

Körningsfel i Microsoft VBScript fel '800a000d'

Inkompatibla typer: 'rstemp'

/gast/gast3.asp, rad 40

Koden ser ut så här:
<table>
<%
mypage = Request("whichpage")
If mypage = "" then
mypage = 1
End If
mypagesize = 10

SQL = "Select * From Post Order by Id DESC"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("guest.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
Response.write "Där fanns det ju inget... " & sok
Else
rstemp.movefirst
rstemp.pagesize = mypagesize
maxcount = Cint(rstemp.pagecount)
rstemp.absolutepage = mypage
howmanyrecs = 0
howmanyfields = rstemp.fields.count -1
Do While Not rstemp.EOF AND howmanyrecs < rstemp.pagesize
counter = counter + 1

rstemp.movenext
howmanyrecs = howmanyrecs + 1
Loop
rstemp.close
Set rstemp = nothing
End If
%>
<tr><td><a href="gastopen.htm"><font size="2">Skriv i gästboken</font></a>
<table borderstemp="0" width="100%">

    \<tr\>
      \<td\>\<font size="2"\>Namn: \<% = rstemp("Namn")%\>
        \</font\>\</td\>
    \<tr\>
      \<td\>\<font size="2"\>Epost: \<% = rstemp("Epost")%\>
        \</font\>\</td\>
    \<tr\>
      \<td\>\<font size="2"\>Datum: \<% = rstemp("Datum")%\>
        \</font\>\</td\>
    \</tr\>
    \<tr\>
      \<td\>\<font size="2"\>Datum: \<% = rstemp("Hemsida")%\>
        \</font\>\</td\>
    \</tr\>
    \<tr\>
      \<td width="100%" colspan="3"\>\<font size="2"\>Inlägg: \<% = rstemp("inlägg")%\>
        \</font\>
        \<hr size="1"\>
      \</td\>
    \</tr\>
  \</table\>
  \<p\>&nbsp;\</td\>\</tr\>

<tr><td>
<%
If maxcount <> 0 then
response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
pad = "0"
scriptname = request.Servervariables("script_name")
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
response.write ref & " "
if counter mod 10 = 0 then
response.write "<br>"
End If
Next
End If
%>

</td></tr>
</table>
%>