---
title: "Jobbigt fel =("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68064-jobbigt-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sudden"
published: "2003-02-12T13:38:03.000Z"
updated: "2003-02-12T15:08:34.000Z"
replies: 12
views: 395
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/68064-jobbigt-fel"
---

# Jobbigt fel =(

## #1 — sudden, 2003-02-12T13:38Z

Hej!
Jag får följande felmess:

Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/suddens/70 - tals mat/index.asp, line 75

På den här koden:

```
 <%end if
if Request.QueryString("page") = "login_check" then
 set conn = server.CreateObject("adodb.connection")
 conn.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=DatabaseMAT;Uid=root;Pwd=;" 
if Request.Form("pass") = "" then Response.Redirect("index.asp")
 end if
set rs = server.CreateObject("adodb.recordset")
SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"
 rs.Open SQL, conn, 3, 3
if rs.eof then
session("login") = false
  Response.Redirect("index.asp")
  
   else
 session("login") = True
 session("USERID") = rs("UserID")
'rätt lösen, skicka användaren till den skyddade sidan
 Response.Redirect("index.asp?page=main")
  end if   
set conn = nothing
 conn.Close
  set rs = nothing

IF Request.QueryString("page") = "main" then

end if
%>
```

Vad kan vara fel?
Tacksam för svar  :e

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

## #2 — Engine^, 2003-02-12T13:48Z

Vilken rad är det som genererar felet?

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

## #3 — sudden, 2003-02-12T13:50Z

rs.Open SQL, conn, 3, 3

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

## #4 — trexter, 2003-02-12T13:52Z

Du kopplar till databasen flera gånger.

set rs = server.CreateObject("adodb.recordset")

 :)

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

## #5 — sudden, 2003-02-12T13:53Z

Men det är ju skillnad på Recordset och connection...eller?   vad menar du?

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

## #6 — @nders, 2003-02-12T13:56Z

Är du säker på att Request.QueryString("page") har värdet *login_check*? Om det inte är det så skapas inte ditt connectionobjekt.

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

## #7 — sudden, 2003-02-12T13:57Z

Japp...hundra % säker!!

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

## #8 — trexter, 2003-02-12T14:00Z

Ah, glöm vad jag sa. Jag vet faktiskt inte vad jag snackade om.  :r  ;)

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

## #9 — crisse6, 2003-02-12T14:02Z

```
if Request.Form("pass") = "" then Response.Redirect("index.asp")
else
set rs = server.CreateObject("adodb.recordset")
SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"
 rs.Open SQL, conn, 3, 3
'..... resten av koden.... avsluta if-satsen langst ner
```

 kanns mer ratt? ;)

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

## #10 — sudden, 2003-02-12T14:24Z

Nu får jag :

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0400)
Programsats förväntas.
/suddens/70 - tals mat/index.asp, line 92
end if

Beror väl på att mina end if är placerade lite fel!?
Någon som kan checka upp det? =)

```
if Request.QueryString("page") = "login_check" then
 set conn = server.CreateObject("adodb.connection")
 conn.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=DatabaseMAT;Uid=root;Pwd=;" 
if Request.Form("pass") = "" then Response.Redirect("index.asp")
 else
set rs = server.CreateObject("adodb.recordset")
SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"

rs.Open SQL, conn, 3, 3
if rs.eof then
session("login") = false
  Response.Redirect("index.asp")
  
   else
 session("login") = True
 session("USERID") = rs("UserID")
'rätt lösen, skicka användaren till den skyddade sidan
 Response.Redirect("index.asp?page=main")
  end if 
  
set conn = nothing
 conn.Close
  set rs = nothing
end if
  end if
```

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

## #11 — LarsG, 2003-02-12T14:46Z

Nu kontrollerar du enbart att det finns ett lösenord som stämmer, du kontrollerar inte att det stämmer med userid också.

```
if Request.Form("pass") = "" then Response.Redirect("index.asp")
 [b][red]else 'ta bort detta else[/red][/b]
```

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

## #12 — sudden, 2003-02-12T14:49Z

får samma fel...ska jag sätta ett end if där istället?

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

## #13 — Engine^, 2003-02-12T15:08Z

```
if Request.QueryString("page") = "login_check" then
    set conn = server.CreateObject("adodb.connection")
    conn.Open "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;" & _
    "Stmt=;Database=DatabaseMAT;Uid=root;Pwd=;" 

    if Request.Form("pass") = "" then Response.Redirect("index.asp")

    set rs = server.CreateObject("adodb.recordset")
    SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & "'"
    rs.Open SQL, conn, 3, 3

    if rs.eof then
        session("login") = false
        Response.Redirect("index.asp")
    else
        session("login") = True
        session("USERID") = rs("UserID")
        'rätt lösen, skicka användaren till den skyddade sidan
        Response.Redirect("index.asp?page=main")
    end if 

    set rs = nothing

    set conn = nothing
    conn.Close
end if
```

Men som LarsG säger, så är det här inget vidare logincheck. Du ska ju kolla om lösenordet stämmer för användaren och inte hämta ett användarnamn om det finns ett lösenord för det.

```
SQL = "select UserID from tblUser Where losen = '" & request.form("pass") & _
"' and UserName = '" & request.form("username") & "'"
```

typ...

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

---

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