---
title: "Fel med sök kod........."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56992-fel-med-sök-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Firegamez.com"
published: "2002-10-24T17:01:44.000Z"
updated: "2002-10-27T18:16:41.000Z"
replies: 17
views: 285
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/56992-fel-med-sök-kod"
---

# Fel med sök kod.........

## #1 — Firegamez.com, 2002-10-24T17:01Z

Tjenare! Jag vill ha en snabbsök genom datasen! Så här ser felet ut:

```
ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/snabb_resultat.asp, line 39
```

Här e koden! Ni får tycka att den e knasig mm!Ni  **får om ni vill** Ändra den så den fungerar bra!

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

val = Request.Form("val") ' Hämtar valet från formuläret
If val = "namn" Then
SQL = "Select * From users Where firstnamn Like '%%" & Request.Form("namn") & "%%'"
ElseIf val = "username" Then
SQL = "Select * From users Where username Like '%%" & Request.Form("username") & "%%'"
ElseIf val = "epost" Then
SQL = "Select * From users Where email Like '%%" & Request.Form("epost") & "%%'"
ElseIf val = "alla" Then
SQL = "Select * From users"
end if
sortera = Request.Form("sortera") ' Hämtar hur vi vill sortera resultatet 
If sortera = "bokstavs" Then
SQL = SQL & " Order By username"
End If

Rs.Open Connect, adOpenStatic, adLockOptimistic
%>
```

Sen för att skriva ut det längre ner är det bara \<%=Rs("poang")%\> åsså vidare!

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

## #2 — Ekström, 2002-10-24T17:05Z

Är det inte bättre att fråga efter hjälp istället för att kräva den?

Aja. Varför använder du dubbla %?

En Select Case-sats skulle nog passa bättre där också

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

## #3 — LarsG, 2002-10-24T17:12Z

Du öppnar aldrig ditt connection-object (connect)

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

## #4 — Firegamez.com, 2002-10-24T17:50Z

> **Ekström skrev:**
>
> Är det inte bättre att fråga efter hjälp istället för att kräva den?
> 
> Aja. Varför använder du dubbla %?
> 
> En Select Case-sats skulle nog passa bättre där också

ojsan förlåt jag var stressad när jag skrev den...... Hade problem med Gb:n också...... ber om förlåtelse...... :(

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

## #5 — Firegamez.com, 2002-10-24T17:59Z

Bara en fråga.... Hur e det bästa sättet att skriva det på???

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

## #6 — Josef, 2002-10-25T07:52Z

Som Ekström sa: Använd en Select Case-sats.

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

## #7 — Firegamez.com, 2002-10-25T16:30Z

Men hur skriver jag då???? Jag vet inte!

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

## #8 — Ekström, 2002-10-25T16:36Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Connect.Open "Här borde det ligga något. Som LarsG påpekade"

val = Request.Form("val") ' Hämtar valet från formuläret
Select Case val
Case "namn"
SQL = "Select * From users Where firstnamn Like '%" & Request.Form("namn") & "%'"
Case "username"
SQL = "Select * From users Where username Like '%" & Request.Form("username") & "%'"
Case "epost"
SQL = "Select * From users Where email Like '%" & Request.Form("epost") & "%'"
Case "alla"
SQL = "Select * From users"
End Select
sortera = Request.Form("sortera") ' Hämtar hur vi vill sortera resultatet 
If sortera = "bokstavs" Then
SQL = SQL & " Order By username"
End If

Rs.Open Connect, 3, 3
%>
```

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

## #9 — Firegamez.com, 2002-10-25T17:15Z

neppz samma fel...

```
Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified 

/snabb_resultat.asp, line 24
```

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

## #10 — Ekström, 2002-10-25T17:17Z

Du lade till en Connect.Open?

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

## #11 — Firegamez.com, 2002-10-25T17:17Z

Jag tod in kod rakt upp o ner o la in i min asp kod! Skulle jag inte göra de?!?!?

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

## #12 — Ekström, 2002-10-25T17:24Z

Jo, det går väl, men du måste ha typ 

```
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
```

 med där också...

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

## #13 — Firegamez.com, 2002-10-25T17:41Z

Men det ligger i filen conn.asp som jag har includerat en bit upp i koden! Jag har alltid den i alla filer....

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

## #14 — Ekström, 2002-10-25T17:47Z

Varför ligger då 

```
Set Connect = Server.CreateObject("ADODB.Connection")
```

 med i koden?

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

## #15 — Firegamez.com, 2002-10-25T18:25Z

Sä här ser det ut nu!

```
<%
Option Explicit
Dim sql, username, namn, epost, rs, se, val, sortera, connect, adOpenStatic, adLockOptimistic, rsUser, x, RecSet

username = Request.Cookies("username")

if username = "" then
  Response.Redirect("nologin.asp?page=snabb.asp")
end if

%>

<%
se=request("se")
if se="" then
	se=username
end if
%>
<!--#include file="conn.asp"-->
<%

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

val = Request.Form("val") ' Hämtar valet från formuläret
Select Case val
Case "namn"
SQL = "Select * From users Where firstnamn Like '%" & Request.Form("namn") & "%'"
Case "username"
SQL = "Select * From users Where username Like '%" & Request.Form("username") & "%'"
Case "epost"
SQL = "Select * From users Where email Like '%" & Request.Form("epost") & "%'"
Case "alla"
SQL = "Select * From users"
End Select
sortera = Request.Form("sortera") ' Hämtar hur vi vill sortera resultatet 
If sortera = "bokstavs" Then
SQL = SQL & " Order By username"
End If

Rs.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>
```

Men nu får jag samma fel men på rad 42 den sista ovanför %\>!

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

## #16 — Ekström, 2002-10-25T21:01Z

Hur ser conn.asp ut då?

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

## #17 — Firegamez.com, 2002-10-26T16:35Z

```
<%
Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/siteinabox.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>
```

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

## #18 — Firegamez.com, 2002-10-27T18:16Z

Är det ingen som kan en annan kod???? Så man kan söka efter användarnamnet i databsen!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/56992-fel-med-sök-kod