---
title: "VAd e fel?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61930-vad-e-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jwradhe"
published: "2002-12-11T22:28:29.000Z"
updated: "2002-12-12T14:46:55.000Z"
replies: 13
views: 257
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/61930-vad-e-fel"
---

# VAd e fel?

## #1 — jwradhe, 2002-12-11T22:28Z

Va har jag missat??

```
<%
 Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bin/swedb.mdb")
	Set RecSet = Server.CreateObject("ADODB.recordset") 
SQL "SELECT * From users WHERE user  = " & Request.Form("user") & " AND pass = " & Request.Form("pass") & " "
RecSet.Open SQL, Connect  
if RecSet.EOF then 

Session("inloggad") = "no"

else 

Do while RecSet.EOF

Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"

RecSet.Close
Connect.Close

 [B]end if[/B]

Response.Redirect "index3.asp"

%>
```

får felmeddelande 

```
Microsoft VBScript compilation error '800a0400' 

Expected statement 

/checkuser.asp, line 24 

end if
^
```

va kan va fel?

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

## #2 — Jesper T, 2002-12-11T22:35Z

Om user är texttyp och pass "tal-typ" så skall det så ut så här:

```
SQL "SELECT * From users WHERE user  = '" & Request.Form("user") & "' AND pass = " & cint(Request.Form("pass"))
```

Är det tvärt om skall det se ut så här:

```
SQL "SELECT * From users WHERE user  = " & cint(Request.Form("user")) & " AND pass = '" & Request.Form("pass") & "'"
```

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

## #3 — jwradhe, 2002-12-11T22:36Z

aha!!!! =P   danke!!

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

## #4 — jwradhe, 2002-12-11T22:37Z

strå Microsoft VBScript compilation error '800a0400' 

Expected statement 

/checkuser.asp, line 24 

end if
^
 fortfarande

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

## #5 — jwradhe, 2002-12-11T22:38Z

vadå text å tal typ??    om du menar TEXT  i databsene så har jag satt MEMO/PM

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

## #6 — Jesper T, 2002-12-11T22:40Z

```
Do while [b]not[/b] RecSet.EOF
Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"
RecSet.movenext
loop
end if
RecSet.Close
Connect.Close
```

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

## #7 — Jesper T, 2002-12-11T22:40Z

> **jwradhe skrev:**
>
> vadå text å tal typ??    om du menar TEXT  i databsene så har jag satt MEMO/PM

Tal: 1234567890
Text/pm: A-Ö, a-ö,!"#¤)!%=?!¤%)="?%)#¤=%\`??´

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

## #8 — jwradhe, 2002-12-11T22:41Z

hmm....nu förvirar du mig... =)

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

## #9 — jwradhe, 2002-12-11T22:41Z

du jespet .har du möjligt viss inte msn?

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

## #10 — Jesper T, 2002-12-11T22:42Z

Jo då: <jesper@thorn.as>

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

## #11 — UffeVäxjö!, 2002-12-11T22:53Z

if RecSet.EOF then 

    Session("inloggad") = "no"

else 

    Session("user") = RecSet("user")
    Session("pass") = RecSet("pass")
    Session("inloggad") = "yes"

end if

RecSet.Close
Connect.Close

Response.Redirect "index3.asp"

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

## #12 — Jesper T, 2002-12-12T01:27Z

Testa:

```
<%
Dim user,pass
user=replace(Request.Form("user"),"'","")
pass=replace(Request.Form("pass"),"'","") 
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bin/swedb.mdb")
Set RecSet = Server.CreateObject("ADODB.recordset") 
SQL="SELECT u.user,u.pass From users u WHERE u.user  = '"& user &"' AND u.pass = '"& pass &"'"
RecSet.Open SQL, Connect  
if RecSet.EOF then 
Session("inloggad") = "no"
else 
Session("user") = RecSet("user")
Session("pass") = RecSet("pass")
Session("inloggad") = "yes"
end if
RecSet.Close
Connect.Close
Response.Redirect "index3.asp"
%>
```

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

## #13 — Palle, 2002-12-12T02:21Z

Anledningen till att det blir fel i den kod som du postade först är att du har 
en *Do while RecSet.EOF* som du aldrig fortsätter loopen på, därför får du ett *Expected statement*.

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

## #14 — jwradhe, 2002-12-12T14:46Z

tack Jesper . det funka me din kod. ! =)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/61930-vad-e-fel