---
title: "Inloggning!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11728-inloggning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2001-09-22T21:00:00.000Z"
updated: "2001-09-22T21:53:00.000Z"
replies: 13
views: 225
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/11728-inloggning"
---
# Inloggning!
## #1 — graf, 2001-09-22T21:00Z
Hej, jag tänkte skaffa en ASP-inloggnings script och har kommit långt ;-)
När man kommer in på sidan kommer man till denna sida:
\
\
\logga in\
\
\
\
\
sedan om man har skrivit rätt användarnamn & password så ska man komma till en sida som ser ut såhär:
\<%
dim id, psw
session("id") = Request.Form("login")
session("psw") = Request.Form("password")
If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then %\>
Men när jag ska logga in (jag skriver rätt nick & lösenord) så får jag detta felmeddelande:
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/graf/login.asp, line 7
Vad ligger felet?
Permalänk: https://www.webforum.nu/p/11728
## #2 — graf, 2001-09-22T21:01Z
Jag har även detta script på den sida jag ska lösenordsskydda:
\<%@ LANGUAGE="VBSCRIPT" %\>
\<%
If session("inloggad") = 1 Then
%\>
\\
\<%
Else
response.Redirect("login.html")
End If
%\>
Permalänk: https://www.webforum.nu/p/287108
## #3 — jorgen, 2001-09-22T21:02Z
Hej!
Du måste avsluta If-satsen med End If.
mvh Jörgen :)
Permalänk: https://www.webforum.nu/p/287109
## #4 — jorgen, 2001-09-22T21:08Z
Hej!
```
<%@ LANGUAGE="VBSCRIPT" %>
<%
If session("inloggad") = 1 Then
%>
<%
Else
response.Redirect("login.html")
End If
%>
```
Liten förbättring på din senaste postade kod:
```
<%
If session("inloggad") <> 1 Then
response.Redirect("login.html")
End If
%>
```
Som du lägger överst på varje skyddad sida.
mvh Jörgen :)
Permalänk: https://www.webforum.nu/p/287110
## #5 — graf, 2001-09-22T21:10Z
Hej Jörgen!
Såhär eller?
\<%
dim id, psw
session("id") = Request.Form("login")
session("psw") = Request.Form("password")
If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then End if %\>
Permalänk: https://www.webforum.nu/p/287111
## #6 — graf, 2001-09-22T21:11Z
Såg inte ditt sista inlägg Jörgen!
Tack så mkt!
Permalänk: https://www.webforum.nu/p/287112
## #7 — jorgen, 2001-09-22T21:11Z
Nopps!
End If måste vara på en egen rad :)
mvh Jörgen
Permalänk: https://www.webforum.nu/p/287113
## #8 — jorgen, 2001-09-22T21:17Z
Hej!
```
If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then End if %>
```
Vad vill du göra med denna koden, tycker den ser lite omständig ut?
Mvh Jörgen :)
Permalänk: https://www.webforum.nu/p/287114
## #9 — graf, 2001-09-22T21:17Z
Oj oj nu blev det för mycket här ;-)
Jag skrev såhär i filen login.asp:
\<%@ LANGUAGE="VBSCRIPT" %\>
\<%
If session("inloggad") = 1 Then
%\>
\\
\<%
Else
response.Redirect("login.html")
End If
%\>
\<%
dim id, psw
session("id") = Request.Form("login")
session("psw") = Request.Form("password")
If session("id") = "Webmaster" And session("psw") = "gcunq87" or session("id") = "intreakt" and session("psw") = "grand" or session("id") = "Person3" and sessin("psw") = "psw3" then %\>
Det var fel, vad exakt ska jag skriva i den filen?
Tack!
Permalänk: https://www.webforum.nu/p/287115
## #10 — jorgen, 2001-09-22T21:28Z
Hej!
Du har ett formulär med 2 fält: login och password. Jag antar att du har samma namn på fälten i databasen.
loggain.asp
där har du ditt formulär som går till logincheck.asp
logincheck.asp
```
'# -- Kolla så att loginuppgifterna stämmer --
SQLStmt = "SELECT * FROM tabell WHERE login = '" & Request.Form("login") & "' " & _
" AND Password = '" & Request.Form("Password") & "'"
Set RS = Connection.Execute(SQLStmt)
If RS.EOF Then
'#--om det inte stämmer, ominloggning--
Response.Redirect("login.html")
Else
'#--om det stämmer, inloggad och session skapas--
dim id
session("id") = Request.Form("login")
Response.Redirect("inloggad.asp")
End If
%>
```
Överst på varje sida för att kolla så att användaren har en giltlig session
```
<%
If session("id") = "" Then
response.Redirect("login.html")
End If
%>
```
Jag hade inte sparat lösenordet i en session. Utan bara användarens Id.
Mvh Jörgen :)
Permalänk: https://www.webforum.nu/p/287116
## #11 — graf, 2001-09-22T21:32Z
Jag tänkte göra samma sak som dem förklarar på och då ska man inte behöva en databas.
Men jag förstår inte riktigt vart jag ska lägga in End if :(
Permalänk: https://www.webforum.nu/p/287117
## #12 — jorgen, 2001-09-22T21:39Z
Hej!
En grundmodell:
```
If 1 = 0 Then
'detta är en omöjlighet
else
'det omöjliga har blivit möjligt
End If
```
Hajar du?
Mvh Jörgen :)
Permalänk: https://www.webforum.nu/p/287118
## #13 — graf, 2001-09-22T21:42Z
Nej det gör jag icke :)
Men om vi går tillbaka till den koden jag skrev i början.
Hur ska jag skriva den för att få det att fungera som det ska?
Permalänk: https://www.webforum.nu/p/287119
## #14 — jorgen, 2001-09-22T21:53Z
```
If session("id") = "person1" And session("psw") = "psw1" or session("id") = "person2" and session("psw") = "psw2" or session("id") = "Person3" and sessin("psw") = "psw3" then
'#-- Här måste hända något--
'#-- Här skrivs ut en End If --
End If
%>
```
Du slutar ju efter Then (kolla mallen ovan) Där m¨åste finnas en END If efter det som ska händta om If-satsen uppfylls.
mvh Jörgen :)
Permalänk: https://www.webforum.nu/p/287120
---
Tråden på webben: https://www.webforum.nu/amne/asp/11728-inloggning