---
title: "Konstigt fel..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13437-konstigt-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2001-12-30T19:12:00.000Z"
updated: "2001-12-30T20:50:00.000Z"
replies: 6
views: 193
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/13437-konstigt-fel"
---

# Konstigt fel...

## #1 — ampy, 2001-12-30T19:12Z

När jag skriver denna kod:

```
<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "SELECT * FROM LinkCounter "&_
"WHERE sorts ='"& Request("webb") &"'"

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText
```

 
Så får jag detta felmeddelande:

```
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10' 

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades. 

/ampy/lankar/webbutvecklingssidor.asp, line 86
```

Jag har kollat igenom koden flera ggr men har inte hittat något fel, kan ni se något fel?

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

## #2 — Rinaldo, 2001-12-30T20:19Z

```
<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "SELECT * FROM LinkCounter "&_
[b]"WHERE sorts ='"& Request("webb") &"'"[/b]

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText
```

Där det står request... Vad är det du frågar efter där?? Ett formulär eller querystring eller vad??

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

## #3 — ampy, 2001-12-30T20:26Z

Alltså jag vill skriva ut de poster som har ordet webb i kolumnen sorts i databasen, tabellen heter LinkCounter, egentligen undrar jag bara hur SQL-satsen ser ut då?

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

## #4 — Rinaldo, 2001-12-30T20:30Z

```
<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1

strSQL = "Select * from LinkCounter Where sorts = 'webb' "

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText
```

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

## #5 — jorgen, 2001-12-30T20:49Z

Hej,

varför skapar du en helt ny tråd när du har en aktiv som rör samma problem?

mvh Jörgen

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

## #6 — ampy, 2001-12-30T20:49Z

Nu när jag skriver denna kod:

```
<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounterlankar.mdb")
Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "Select * from LinkCounter Where sort = 'webb' "

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText

 

[b]Do Until DBLink.EOF[/b]

Dim color
Dim counter
counter = counter + 1
If counter Mod 2 = 0 then
color = "#FFEFCE"
Else
color = "#FFE784"
End If

%>

<TABLE style="BORDER-BOTTOM: #000000 0px solid; BORDER-TOP: #000000 0px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid" 
borderColor=#000000 borderColor=#000000 cellSpacing=0 width=475 
borderColorLight=#000000 border=0>

<TR>

<%

Response.Write "<TD width=475 height=17 bgcolor="""&color&""">"

%>
<FONT face=Verdana 
color=#000000 size=1><FONT face=Verdana color=#000000 size=1>

<%
Response.Write " &nbsp;&nbsp;<a href="""&adress &"?action=in&id="&DBLink("ID") & """>" & DBLink("Namn") & "</a>" 

%>

</FONT></TD></TR>

</table><%

DBLink.MoveNext

loop

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing

%>
```

Så får jag detta felmeddelande:

```

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/ampy/lankar/webbutvecklingssidor.asp, line 103
```

Rad 103 är skriven med fet stil.

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

## #7 — Rinaldo, 2001-12-30T20:50Z

Do Until rst.EOF

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13437-konstigt-fel