Jag har använt typ samma inloggnings system jämt men nu blir det sidan kan inte visas. DÅ menar jag att sidan kan inte visas. Det kommer inget felmedelande alltså. Varför? Dör? Felmeddelande? Pröva att byta ut detta: Hittade felet. Jag gick inte in med rätt adress till min sida. Jag visasade sidan med den sökväg istället för igenom PWS alltså Localhost:DVarför funkar inte inloggningen??????
Sidan där man skriver in Användarnamn och Lösenord
loggin.asp
<code>
<!-- #include file="include/top.inc" -->
Loggin
<form method="POST" action="loggin_check.asp">
<table>
<tr>
<td>
Användarnamn:
<td>
<input type="text" name="Alias" style=" { border: 1px solid #07E701; background-color: transparent; font-family: verdana; font-size: 10px ;}
"><br>
</tr>
<tr>
<td>
Lösenord:
<td>
<input type="password" name="Losenord" style=" { border: 1px solid #07E701; background-color: transparent; font-family: verdana; font-size: 10px ;}
">
</tr>
<input type="hidden" name="login" value="ok">
<tr>
<td>
<input type="submit" name="ok" value="Login">
</tr>
</table>
</form>
<%
If Session("medelande") <> "" Then
Response.Write Session("medelande")
Session("medelande") = ""
End If
%>
<!-- #include file="include/bottom.inc" -->
Sidan som tar imot
loggin_check.asp
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access driver (*.mdb)};dbq=" & Server.MapPath("databaser/qwezxcasd/information.mdb")
login = request.Form("login")
Alias = request.Form("Alias")
Losenord = request.Form("Losenord")
If login = "ok" Then
If Alias > "" and Losenord > "" Then
Set rst = Connect.execute("select UID, Alias, Losenord from Anvandare where Alias='" & replace(Alias,"'","''") & "' AND Losenord='" & replace(Losenord,"'","''") & "'")
If Not rst.EOF Then
Session("UID") = rst("UID")
Session("Alias") = rst("Alias")
response.redirect "innloggad.asp"
Else
Session("meddelande") = "Fel användarnamn eller lösenord"
response.redirect "loggin.asp"
End If
Else
Session("meddelande") = "Du fyllde inte i användarnamnet eller lösenordet"
Response.redirect "loggin.asp"
End If
Else
Response.redirect "loggin.asp"
End If
Set rst = Nothing
Set Connect = Nothing
%>
</code>Sv: Varför??????
Pelle kommenterar: "Varför???? " - det är väl ingen bra rubrik muffin. Färre kommer gå in och titta på ditt inlägg när du inte förklarar vad problemet är redan i rubriken.Sv: Varför funkar inte inloggningen??????
If Alias > "" and Losenord > "" Then
mot detta:
If Len(Alias) > "" and Len(Losenord) > "" ThenSv: Varför funkar inte inloggningen??????