---
title: "Varför funkar inte scriptet??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10662-varför-funkar-inte-scriptet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Goosefish"
published: "2001-07-19T19:08:00.000Z"
updated: "2001-07-19T23:07:00.000Z"
replies: 30
views: 360
page: 1
pages: 2
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/10662-varför-funkar-inte-scriptet"
---

# Varför funkar inte scriptet??

_Sida 1 av 2._

## #1 — Goosefish, 2001-07-19T19:08Z

Hej!
Det står att det är något fel på parametrarna och en massa annat!...rad 22 var de visst kolla koden:

\<html\>
\<head\>
\<title\>Untitled Document\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\</head\>

\<body bgcolor="#FFFFFF"\>
\<!-- #inlude virtual="adovbs.inc --\> 
\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver ={ Microsoft Access Driver (\*.mdb)};dbq=c:\\inetpub\\wwwroot\\databas.mdb

If Request.Querystring("Ordning") = "Namn" Then

Set rec = Server.CreateObject("ADODB.Recordset")

rec.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>
\<%=rec("Namn")%\> 
\<%=rec("Efternamn")%\>
\<%=rec("ICQ")%\>
\<%=rec("Email")%\>
\<%=rec("Hemsida")%\>
\<%
rec.Close
Connect.Close
End If
%\>
\</body\>
\</html\>

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

## #2 — @nders, 2001-07-19T19:15Z

du har aldrig definierat Addera, som skall vara en sql-fråga.

```
Addera = "SELECT * FROM Tabellen WHERE bla='bla'"
rec.open ....
```

(varför kallar du den addera? det ser inte ut som om du lägger till någonting...)

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

## #3 — Goosefish, 2001-07-19T19:18Z

har provat det...men det gör ingen skillnad. Då man gjort det ser det ut så här

\<!-- #inlude virtual="adovbs.inc" --\>\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=c:\\inetpub\\wwwroot\\adressbok.mdb" 

If Request.Querystring("Ordning") = "Namn" Then

Addera = "SELECT \* FROM adresstabell "

End If

Set RecSet = Server.CreateObject("ADODB.Recordset")

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic 
%\>

\<%=RecSet("Namn")%\>
\<%=RecSet("Efternamn")%\>
\<%=RecSet("ICQ")%\>
\<%=RecSet("Email")%\>
\<%=RecSet("Hemsida")%\>

\<%RecSet.Update
RecSet.Close
Connection.Close

%\>

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

## #4 — icaaq, 2001-07-19T19:18Z

hmm jag gissar på (Idg) ;)

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

## #5 — icaaq, 2001-07-19T19:20Z

vad får du för exakt felmess....och vilken linje är det...du får gärna markera linjen :)

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

## #6 — @nders, 2001-07-19T19:20Z

goosefish: uppfylls villkoret **If Request.Querystring("Ordning") = "Namn" Then**? prova att ta bort if-satsen runt definitionen av sql-frågan.

icaaq: svär inte! ;)

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

## #7 — Goosefish, 2001-07-19T19:22Z

ADODB.Recordset fel '800a0bb9' 

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt. 

/visa.asp, rad 22 

\<!-- #inlude virtual="adovbs.inc" --\>\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=c:\\inetpub\\wwwroot\\adressbok.mdb" 

If Request.Querystring("Ordning") = "Namn" Then

Addera = "SELECT \* FROM adresstabell "

End If

Set RecSet = Server.CreateObject("ADODB.Recordset")

RecSet.Open Connect, Addera,   adOpenStatic, adLockOptimistic  \<\<---
%\>

\<%=RecSet("Namn")%\>
\<%=RecSet("Efternamn")%\>   
\<%=RecSet("ICQ")%\>
\<%=RecSet("Email")%\>
\<%=RecSet("Hemsida")%\>

\<%RecSet.Update
RecSet.Close
Connection.Close

%\>

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

## #8 — Goosefish, 2001-07-19T19:24Z

tog bort if satsen men det är ändå samma felmeddelande

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

## #9 — @nders, 2001-07-19T19:25Z

1) vad händer om du tar bort if-satsen runt 'addera = "select ...."'?

2) jag ser en liten konstig sak. du ska inte ha RecSet.update längst ner. det ska du bara ha när du gör förändringar i tabellen.

mvh,

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

## #10 — Goosefish, 2001-07-19T19:27Z

så här tog jag bort if satsen

\<!-- #inlude virtual="adovbs.inc" --\>\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=c:\\inetpub\\wwwroot\\adressbok.mdb" 
ifsatsen borta
Addera = "SELECT \* FROM adresstabell "

Set RecSet = Server.CreateObject("ADODB.Recordset")

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic 
%\>

\<%=RecSet("Namn")%\>
\<%=RecSet("Efternamn")%\>
\<%=RecSet("ICQ")%\>
\<%=RecSet("Email")%\>
\<%=RecSet("Hemsida")%\>

\<%
RecSet.Close
Connection.Close%\>

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

## #11 — @nders, 2001-07-19T19:27Z

prova också att byta ut dessa två rader:

```
Set RecSet = Server.CreateObject("ADODB.Recordset")

RecSet.Open Connect, Addera, adOpenStatic, adLockOptimistic
```

mot

```
set RecSet = Connect.Execute(Addera)
```

mvh,

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

## #12 — Goosefish, 2001-07-19T19:31Z

det problemet vart löst men då kom

Microsoft OLE DB Provider for ODBC Drivers fel '80040e37' 

\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Microsoft Jet kan inte hitta tabellen eller frågan 'adresstabell'. Kontrollera att den existerar och att namnet är rätt stavat 

/visa.asp, rad 14 
 

upp

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

## #13 — Goosefish, 2001-07-19T19:33Z

jaha...nu fixa jag det problemet...men då kom förstås ett nytt

ADODB.Field fel '80020009' 

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post. 

?

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

## #14 — @nders, 2001-07-19T19:34Z

då ser det ut som att tabellen är tom.

stämmer det?

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

## #15 — Goosefish, 2001-07-19T19:35Z

ja det är den nog...hehe...oj
men EOF BOF problemet då?

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

## #16 — Goosefish, 2001-07-19T19:38Z

nu står det att objekt krävs på näst sista raden?

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

## #17 — @nders, 2001-07-19T19:40Z

så här:

```
[b]if not RecSet.eof then[/b]
Response.write RecSet("Namn")
Response.write RecSet("Efternamn")
Response.write RecSet("ICQ")
Response.write RecSet("Email")
Response.write RecSet("Hemsida")
[b]else[/b]
Response.write "den e tom ju!"
[b]end if[/b]
```

mvh,

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

## #18 — @nders, 2001-07-19T19:41Z

> nu står det att objekt krävs på näst sista raden?

du försöker där stänga ett objekt som du kallar för Connection, men det objektet som du tidigare skapat kallade du för Connect.

ändra alltså till Connect.close.

mvh,

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

## #19 — Goosefish, 2001-07-19T19:45Z

JAAAAAA!!!!!!!! Skriptet funkar!!

TACK!! TACK!

Äntligen funkar det!
tack återigen!

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

## #20 — @nders, 2001-07-19T19:46Z

najs! :)

varsågod!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10662-varför-funkar-inte-scriptet  
Nästa sida: https://www.webforum.nu/amne/asp/10662-varför-funkar-inte-scriptet/page2.md
