/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Problem med else if
Fra : Frank Sørensen


Dato : 11-06-02 17:36

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
%>



 
 
Jakob Bork (12-06-2002)
Kommentar
Fra : Jakob Bork


Dato : 12-06-02 00:40

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

elseif er uden mellemrum i VBscript

mvh
Jakob Bork



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408843
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste