---
title: "Vad kan detta vara för fel?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8694-vad-kan-detta-vara-för-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Emilo"
published: "2001-03-24T16:53:00.000Z"
updated: "2001-03-26T11:49:00.000Z"
replies: 13
views: 198
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/8694-vad-kan-detta-vara-för-fel"
---

# Vad kan detta vara för fel?

## #1 — Emilo, 2001-03-24T16:53Z

Varför funkar inte detta:

```
<% SQL = "SELECT Count(*) From inlagg WHERE forum LIKE '" & Request.Querystring("forum")& "%' AND forum_id LIKE '" & rstemp("forum_id")& "%' AND orginal LIKE '" & request.querystring("org2")& "%' AND inlagg_id LIKE '" & rstemp("inlagg_id")& "%'"
Set rs1 = db.Execute(SQL) %>
    <td width="134" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rs1.Fields(0) %></font></td>
```

Jag får detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8' 
Objekt krävs.: '' 

/forum_bra/visa.asp, rad 68 

Någon som vet vad det kan vara?

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

## #2 — Wiberg, 2001-03-24T17:02Z

Glömt databaskopplingen...?  :e

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

## #3 — Emilo, 2001-03-24T17:08Z

nejdå det har jag inte här kommer koden till hela sida men det är på det som står i mitt förra inlägg som det är fel på.

```
<html>

<head>
<title>Forum</title>
<LINK REL="stylesheet" TYPE="text/css" HREF="index.css">
</head>

<body topmargin="1" leftmargin="1">
<table border="0" width="555" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="270" bgcolor="#D7FFD7">
<a href="skriv.asp?forum=<%=Request.Querystring("forum") %>&org=JA&forum_id=<%=Request.Querystring("forum_id") %>">Starta
ny tråd</a>

    </td>
    
    <td width="271" bgcolor="#D7FFD7">
      <p><a href="sok.asp?forum=<%=Request.Querystring("forum") %>&org=JA&forum_id=<%=Request.Querystring("forum_id") %>">Sök</a> - <a href="default.asp">Alla forum</a> --> <%=Request.Querystring("forum") %></td>
  </tr>
</table>&nbsp;

<table border="0" width="555" cellspacing="1" bgcolor="#000000" height="69">
  <tr>
    <td width="142" bgcolor="#D7FFD7" height="30" bordercolor="#000000"><img border="0" src="../bilder/rubrik.gif"></td>
    <td width="82" bgcolor="#D7FFD7" height="30"><img border="0" src="../bilder/forfattare.gif"></td>
    <td width="134" bgcolor="#D7FFD7" height="30"><img border="0" src="../bilder/antalsvar.gif"></td>
    <td width="171" bgcolor="#D7FFD7" height="30"><img border="0" src="../bilder/senasteinlagget.gif"></td>
  </tr>

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 5

SQL = "SELECT * From Inlagg Where forum LIKE '" & Request.Querystring("forum")& "%' AND orginal LIKE '" & Request.Querystring("org")& "%' ORDER BY senaste DESC"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("forum.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
   If counter mod 2 = 0 then
      color = "CCCC99"
   Else
      color = "CCCC66"
   End If %>
  <tr>
    <td width="142" bgcolor="#D7FFD7" height="30"><font face="Verdana" size="2">&nbsp;<a href="las.asp?forum=<%=rstemp("forum") %>&inlagg=<%=rstemp("ID") %>&forum_id=<%=rstemp("forum_id") %>&inlagg_id=<%=rstemp("inlagg_id") %>"><% =rstemp("rubrik") %></a></font></td>
    <td width="82" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rstemp("namn") %></font></td>
    <% SQL = "SELECT Count(*) From inlagg WHERE forum LIKE '" & Request.Querystring("forum")& "%' AND forum_id LIKE '" & rstemp("forum_id")& "%' AND orginal LIKE '" & request.querystring("org2")& "%' AND inlagg_id LIKE '" & rstemp("inlagg_id")& "%'"
Set rs1 = db.Execute(SQL) %>
    <td width="134" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rs1.Fields(0) %></font></td>
    <td width="171" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rstemp("senaste") %></font></td>
  </tr>
  
<%
rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %>
   <tr bgcolor="#FFFFFF"><td bgcolor="#FFFFFF">
   <%
   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 & "&forum="& request.querystring("forum") &"&org=JA&org2=NEJ&forum_id="& request.querystring("forum_id") &"'>" & pad & counter & "</a>"
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</td>
<td bgcolor="#FFFFFF">&nbsp;</td><td bgcolor="#FFFFFF">&nbsp;</td><td bgcolor="#FFFFFF">&nbsp;</td></tr>
</table>

</body>

</html>
```

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

## #4 — LarsG, 2001-03-24T22:01Z

```
Set rs1 = db.Execute(SQL) %>
```

Du skapar inget objekt som heter db på denna sida

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

## #5 — Emilo, 2001-03-25T10:50Z

vadå,
förstod inte riktigt vad du menade?

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

## #6 — Emilo, 2001-03-25T12:28Z

Snälla kan någon hjälpa mig!!!

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

## #7 — LarsG, 2001-03-25T12:44Z

God morgon.

För att använda metoden execute så behövs ett connectionobjekt.

```
cstr = _
"Driver={Microsoft Access Driver(*.mdb)}; DBQ=" & _
MdbFilePath & ";"

   set db = server.CreateObject("ADODB.Connection")
   db.open cstr
```

efter det så kan du lägga din

```

set rstemp = db.execute (sql)
```

Du kan också använda dbobjektet när du öppnar ditt recordset. Istället för att skriva 

```

   rstemp.open sql,"Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
```

så kan du skriva 

```

rstemp.open sql,db
```

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

## #8 — LarsG, 2001-03-25T14:21Z

En sak till. När man har gjort alla operationer mot databasen så stänger man det så här.

```
  db.close
  set db = nothing
```

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

## #9 — Emilo, 2001-03-25T18:52Z

Tack så mycket det gjorde susen! ;)

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

## #10 — @nders, 2001-03-25T19:06Z

att: larsg.

menar du att du kan skapa variabler med namnet **cstr**? det hade jag nog inte gett mig på...

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

## #11 — LarsG, 2001-03-25T19:19Z

Tänkte inte på det. Det är inte så bra namn, vet faktiskt inte om det går.

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

## #12 — @nders, 2001-03-26T04:22Z

det borde inte göra det, fast jag vet inte heller.

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

## #13 — Vide, 2001-03-26T06:59Z

Och vi kan konstatera att det inte går, och testar man kommer man att få felmeddelandet: Illegal assignment

 :)

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

## #14 — Emilo, 2001-03-26T11:49Z

Det jag gjorde var att jag la in en till databas koppling över den andra SQL satsen och då funkade det super bra. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8694-vad-kan-detta-vara-för-fel