---
title: "anpassa loginscript för fler användare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10149-anpassa-loginscript-för-fler-användare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "qwerty"
published: "2001-06-20T07:10:00.000Z"
updated: "2001-06-20T09:04:00.000Z"
replies: 12
views: 1501
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/10149-anpassa-loginscript-för-fler-användare"
---

# anpassa loginscript för fler användare

## #1 — qwerty, 2001-06-20T07:10Z

Jag har en inloggning som ser ut så här:

```
<%
Set Con = Server.CreateObject("ADODB.Connection")
path = "DBQ=" & ("c:\wwwroot\annonser\annonsering\annonser.mdb")
Con.Open "Driver={Microsoft Access Driver (*.mdb)};" & path," ",""

SQL= "SELECT ID, anvnamn, losenord FROM login"

RS = con.execute(SQL)

namn = rs("anvnamn")
ord = rs("losenord")

Session("inloggad") = ""

angNamn = request.form("anvnamn")
angOrd = request.form("losen")

If angNamn = namn AND angOrd = ord THEN

logininfo = true

Session("inloggad") = yes

response.write("Rätt lösenord. Du är nu inloggad<br>")
response.write("<a href=""admin.asp"">Klicka här</a> för att nå annonseringen.")

else

response.write("Något blev fel vid inloggningen.<br>")
response.write("<a href=""adminlogin.html"">Försök igen</a>")

end if

con.close
set rs = nothing
%>
```

...om jag nu skulle vilja lägga till fler användare i tabellen 'login'. Hur ska jag göra för även de ska komma in. Som det är nu funkar ju bara det namn som ligger överst i tabellen. ngn form av loop antar jag med är osäker på hur...

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

## #2 — MinOrk, 2001-06-20T07:16Z

Du kan hämta en specifik användare från databasen:

"SELECT ID, anvnamn, losen FROM login WHERE anvnamn = '" & request.form("username") & "';"

kolla så att inte rs.EOF har inträffat för då finns ingen användare. Finns det en användare, testa om lösenordet i request.form("password") är samma som det som hämtats från databasen (om det fanns nån att hämta).

Kanske fungerar...

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

## #3 — qwerty, 2001-06-20T07:20Z

...ska testa

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

## #4 — @nders, 2001-06-20T07:24Z

om man nu kör en databas skall man *givetvis* jämföra både användarnamn och lösenord redan i sql-frågan.

```
strSQL = "select 1 from tblUsers where username = '" & strUserName & "' AND password = '" & strPassword & "'"
set objRs = objConn.execute(strSQL)
if objRS.eof then
'inloggningen misslyckades fett
else
'helt ok!
end if
```

nu förutsätter jag en hel del i koden, men jag kände mig bara tvungen att hojta lite här.

dessutom finns här på wf ett alldeles utmärkt inloggningsscript med upphovsman brw. så sök här i asp/vbscript på inloggning och brw, så hoppas jag du hittar vad du söker.

mvh,

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

## #5 — Brimba, 2001-06-20T07:28Z

@nders...

Om man vill att det skall vara skiftlägeskänsliga lösenord? 
StrComp() finns ju i VB, men SQL?

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

## #6 — @nders, 2001-06-20T07:33Z

inte en aning. jag jobbar med skiftlägeskänsliga databaser, men det kanske inte access är?

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

## #7 — Brimba, 2001-06-20T07:47Z

Nej i access är Anders det samma som anders

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

## #8 — qwerty, 2001-06-20T08:00Z

Nu ser scriptet ut så här:

```
Session("inloggad") = ""

angNamn = request.form("anvnamn")
angOrd = request.form("losen")

Set Con = Server.CreateObject("ADODB.Connection")
path = "DBQ=" & ("c:\wwwroot\platsannonser\annonsering\annonser.mdb")
Con.Open "Driver={Microsoft Access Driver (*.mdb)};" & path," ",""

SQL= "SELECT ID, anvnamn, losenord FROM login WHERE anvnamn = '" & angNamn & "' AND losenord = '"& angNamn & "'"

RS = con.execute(SQL)

if RS.eof then

response.write("N&aring;got blev fel vid inloggningen.<br>")
response.write("<a href=""adminlogin.html"">F&ouml;rs&ouml;k igen</a>")

else

logininfo = true
Session("inloggad") = yes

response.write("R&auml;tt l&ouml;senord. Du &auml;r nu inloggad<br>")
response.write("<a href=""admin.asp"">Klicka h&auml;r</a> för att n&aring; annonseringen.")

end if
con.close
set rs = nothing
%>
```

men jag får fellmess:

Object doesn´t support this property or method: 'eof'

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

## #9 — @nders, 2001-06-20T08:06Z

ändra

```
RS = con.execute(SQL)
```

till

```
SET RS = con.execute(SQL)
```

du måste använda Set när vi pratar objekt.

mvh,

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

## #10 — qwerty, 2001-06-20T08:17Z

Jag ändrade till set. 
Det verkar dock som jag har gjort något mer fel. Nu kommer jag inte inte med något av de användarnamn och lösenord som finns i tabellen 'login'. Dock inga felmess längre.

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

## #11 — qwerty, 2001-06-20T08:35Z

Jag fick i gång det!
Ta en titt i SQL-frågan så förstår ni vad som var fel!!

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

## #12 — @nders, 2001-06-20T08:40Z

:)

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

## #13 — MinOrk, 2001-06-20T09:04Z

klart du har rätt @nders. Man kollar i SQL frågan direkt. Måste sovit när jag skrev... :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10149-anpassa-loginscript-för-fler-användare