---

Hej

Jeg bruger denne kode til at tjekke en brugers login input.

** Formålet med else if'en er:**

1. Hvis den ikke finder brugeren i db'en skal den gå tilbage til "form.asp"
2. Hvis brugeren eksisterer skal den tjekke om det indtastede pass matcher
og så sætte session til "JA"
3. Hvis pass ikke matcher brugeren skal den sætte session til "NEJ"

Den virker hvis jeg indtaster en bruger og pass som er i db'en og hvis den
indtastede bruger er i db'en men pass matcher ikke.

** Problemet:**

Jeg kan ikke få den til at tjekke om brugeren eksisterer og i såfald
redirecte til "form.asp"

Mvh.
Frank Sørensen

*** Fejlmed. hvis brugeren ikke er i db'en ***

Fejltype:
(0x80020009)
Undtagelse opstod.
/login/login.asp, line 31

*** Koden ***

<%
' Variabler
userID = Request.form("bruger")
pwdID = Request.form("adgang")

' ADODB connection objectet
Set Conn = Server.CreateObject("ADODB.Connection")
' Stien til databasen
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("log.mdb")
' Åbner databaseforbindelsen
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from tb_log where user = '" & userID &"'"
' Udfør forespørgslen (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Tjekker inputtet fra formen

if rs.RecordCount = 0 then
Response.Redirect "form.asp"

else if userID = rs("user") AND pwdID = rs("pwd") Then
' Hvis korrekt sættes session til JA
LogError = ""
Session("login") = "JA"
Session("tidspunkt") = Now
Session.Timeout = 10
else
' Hvis forkert sættes session til NEJ
Session("login") = "NEJ"
Session.Timeout = 10
%>
<script language="Javascript">
alert("Forkert brugernavn eller adgangskode");
</script>
<%
End if
End if
%>

---

> else if userID = rs("user") AND pwdID = rs("pwd") Then

elseif er uden mellemrum i VBscript

mvh
Jakob Bork