---
title: "Det funkar inte???"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/100066-det-funkar-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mackz"
published: "2004-03-22T14:16:29.000Z"
updated: "2004-03-22T15:15:14.000Z"
replies: 13
views: 269
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/100066-det-funkar-inte"
---
# Det funkar inte???
## #1 — mackz, 2004-03-22T14:16Z
Ska lägga mina mdb i en mapp i c:\\db\\test.mdb
Har fått detta tips...
```
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set objCnn = Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
```
Men får helt enkelt ingen kontakt med min databas...
Permalänk: https://www.webforum.nu/p/100066
## #2 — OveRRidE, 2004-03-22T14:17Z
Vad får du för felmeddelande?
Permalänk: https://www.webforum.nu/p/1305109
## #3 — mackz, 2004-03-22T14:20Z
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
Permalänk: https://www.webforum.nu/p/1305112
## #4 — OveRRidE, 2004-03-22T14:26Z
Ja, då är det ju iallafall inte den koden vi tittar på nu som det är fel på. Har du mer kod, kanske?
Permalänk: https://www.webforum.nu/p/1305115
## #5 — mackz, 2004-03-22T14:37Z
Så här ser det ut:
```
Vinkelboda
Movie & Music Members
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set Connect = Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
%>
<%
SQL = "SELECT * From test WHERE niva IN ('1','2','3','4') ORDER BY anvnamn ASC"
Set RecSet = Connect.Execute(SQL)
%>
Name:
Mail:
<% Do Until RecSet.EOF %>
<%=RecSet("anvnamn")%>
<%=RecSet("email")%>
<%
RecSet.MoveNext
Loop
Recset.Close
Connect.Close
Set Recset = Nothing
Set Connect = Nothing
%>
```
Redigerade \[kod\]-taggarna. ;) //OveRRidE, moderator
Permalänk: https://www.webforum.nu/p/1305123
## #6 — OveRRidE, 2004-03-22T14:44Z
Ok. Det var ett snyggt försök till en läsbar kod, måste jag säga. Men det är nog bättre ifall du lägger *hela* ditt kodstycke (med HTML och allt) i samma \[ kod \]-tagg. ;)
För övrigt; denna rad
```
Set RecSet = Connect.Execute(SQL)
```
skall vara
```
Set RecSet = objCnn.Execute(SQL)
```
Permalänk: https://www.webforum.nu/p/1305125
## #7 — mackz, 2004-03-22T14:47Z
Kan felet sitta här?
objCnn.Open strConnString
Permalänk: https://www.webforum.nu/p/1305126
## #8 — mackz, 2004-03-22T14:49Z
```
Vinkelboda
Movie & Music Members
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set Connect = Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
%>
<%
SQL = "SELECT * From test WHERE niva IN ('1','2','3','4') ORDER BY anvnamn ASC"
RecSet = objCnn.Execute(SQL)
%>
Name:
Mail:
<% Do Until RecSet.EOF %>
<%=RecSet("anvnamn")%>
<%=RecSet("email")%>
<%
RecSet.MoveNext
Loop
Recset.Close
Connect.Close
Set Recset = Nothing
Set Connect = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1305127
## #9 — OveRRidE, 2004-03-22T14:50Z
> **mackz skrev:**
>
> Kan felet sitta här?
>
> objCnn.Open strConnString
Nej, inte vad jag kan se. Rätta till raden i din kod, som jag visade i mitt tidigare inlägg. Testa det och visa resultatet.
Permalänk: https://www.webforum.nu/p/1305128
## #10 — OveRRidE, 2004-03-22T14:53Z
Också glömmer vi inte att använda Set, eftersom det är ett objekt. ;)
```
[b]Set[/b] RecSet = objCnn.Execute(SQL)
```
Permalänk: https://www.webforum.nu/p/1305130
## #11 — mackz, 2004-03-22T15:00Z
Klart men ingen skillnad... Får ingen kontakt.
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/Vinkelboda/members.asp, line 13
Permalänk: https://www.webforum.nu/p/1305132
## #12 — OveRRidE, 2004-03-22T15:05Z
Ok. Nu har du döpt om objCnn till Connect igen. Eftersom du envisas med att röra till det för dig hela tiden så får du hela koden nu istället.
Kopiera och klistra in. Ändra inget.
```
Vinkelboda
Movie & Music Members
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set objCnn= Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
%>
<%
SQL = "SELECT * From test WHERE niva IN ('1','2','3','4') ORDER BY anvnamn ASC"
Set RecSet = objCnn.Execute(SQL)
%>
Name:
Mail:
<% Do Until RecSet.EOF %>
<%=RecSet("anvnamn")%>
<%=RecSet("email")%>
<%
RecSet.MoveNext
Loop
Recset.Close
objCnn.Close
Set Recset = Nothing
Set objCnn = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1305134
## #13 — mackz, 2004-03-22T15:11Z
Du är en ängel Ove.. Jag gör så gott jag kan men måste jobba hårdare på det här helt klart.
mvh Mackz
Permalänk: https://www.webforum.nu/p/1305141
## #14 — OveRRidE, 2004-03-22T15:15Z
Nej, ängel är jag ingen, det skall gudarna veta. ;) Men tack ändå. :r
Dessutom, jag markerade mitt inlägg som det slutgiltiga, eftersom det var det som var lösningen. :)
Permalänk: https://www.webforum.nu/p/1305144
---
Tråden på webben: https://www.webforum.nu/amne/asp/100066-det-funkar-inte