---
title: "Problem med loginscript"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63001-problem-med-loginscript"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sudden"
published: "2002-12-24T13:52:17.000Z"
updated: "2002-12-24T22:48:21.000Z"
replies: 9
views: 231
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/63001-problem-med-loginscript"
---

# Problem med loginscript

## #1 — sudden, 2002-12-24T13:52Z

Hej!
När användaren loggar in på min sida så körs följande script:

```
<%@Language = VBScript%>

<%
Dim nick, pwd
nick = Request.Form("username") 
pwd = Request.Form("pass")

If nick = "" OR pwd = "" Then
Response.Redirect("main.asp")
Response.End
End If

'Kör koden som kollar om användaren skrev in rätt uppgifter, om inte skicka användaren till startsidan, annars logga in användaren!
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/ZODA/database"

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblAnvandare"
RS.Open SQL, Conn, 3, 3
bolFunnen = False
'sök efter det angivna användarnamnet
 Do While Not (RS.EOF OR bolFunnen)
If (strComp(RS("username"), strBrukarnamn, vbTextCompare) = 0) Then
 bolFunnen = True
 Else
  RS.MoveNext
 End If
Loop

'Om användarnamnet inte fanns så visa ett meddelande
If Not bolFunnen Then
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
Response.Write"<b><font color=""red"" size=""2"">Vi kunde inte hitta dig i databasen =(...försök igen</font></b>"
 Response.End
End If
'###########################################################
'om lösenordet inte hittades så visa ett meddelande
If Not (strComp(RS("pwd"), Request.Form("pass"),_
         vbBinaryCompare) = 0) Then
  RS.Close
  Set RS = Nothing
  Conn.Close
  Set Conn = Nothing
Response.Write"<b><font color=""red"" size=""2"">Vi kunde inte hitta dig i databasen =(...försök igen</font></b>"
Response.End
End If
%>
```

Men även om jag skriver i ett rätt nickname och lösenord, så skrivs ett felmeddelande ut =(
Någon som vet hur jag ska göra för att få det att funka???
Tacksam för svar   :e

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

## #2 — sudden, 2002-12-24T14:10Z

Någon?

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

## #3 — jwradhe, 2002-12-24T14:24Z

in på mcs sudden!

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

## #4 — sudden, 2002-12-24T14:28Z

du menar MSN?

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

## #5 — jwradhe, 2002-12-24T14:32Z

ja men jag har s jvla stora fingrar så jag trycker fan på 5 tangenter samtidigt ... =PP

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

## #6 — jwradhe, 2002-12-24T14:34Z

```
<%@Language = VBScript%><%
Dim nick, pwd
nick = Request.Form("username") 
pwd = Request.Form("pass")

If nick = "" OR pwd = "" Then
Response.Redirect("main.asp")
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:/inetpub/wwwroot/ZODA/database.mdb"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tblAnvandare"
RS.Open SQL, Conn, 3, 3
 Do While Not RS.EOF 
If RS("username") = nick AND RS("PASSWORD") = pwd Then
 Response.Redirect "inloggad"
 Else
  RS.MoveNext
  Loop
RS.Close
Set RS = Nothing
Response.Write"<b><font color=""red"" size=""2"">Vi kunde inte hitta dig i databasen =(...försök igen</font></b>"
 End If
End If
Response.Redirect("main.asp")
%>
```

e detta nåt kanske???

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

## #7 — sudden, 2002-12-24T15:43Z

Det funkade inte...jag får bara:

```
Kompileringsfel i Microsoft VBScript fel '800a040e' 

'loop' utan 'do' 

/ZODA/check2.asp, rad 20 

Loop
^
```

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

## #8 — crisse6, 2002-12-24T17:54Z

du kan val inte ha en Else innan du skriver

rs.movenext
loop

borde val vara:

......
rs.movenext
loop
else

???

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

## #9 — jwradhe, 2002-12-24T21:49Z

hehe. jo. men va fan. jag hade bråttom ...=P

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

## #10 — crisse6, 2002-12-24T22:48Z

sa det funkar nu? :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/63001-problem-med-loginscript