---
title: "Hjälp med gästbok"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7852-hjälp-med-gästbok"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "andreas_lindh"
published: "2001-01-24T17:32:00.000Z"
updated: "2001-01-24T23:04:00.000Z"
replies: 1
views: 176
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7852-hjälp-med-gästbok"
---

# Hjälp med gästbok

## #1 — andreas_lindh, 2001-01-24T17:32Z

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\> 
%\>

Permalänk: https://www.webforum.nu/p/7852

## #2 — LarsG, 2001-01-24T23:04Z

Du sätter rstemp till "nothing" och försöker använda den efteråt eller?.

```
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")%
```

Permalänk: https://www.webforum.nu/p/254311

---

Tråden på webben: https://www.webforum.nu/amne/asp/7852-hjälp-med-gästbok