ich habe folgende zeilen code:
<%
Response.Buffer = True
Response.Expires = -1000
' Const LoginButton = "Login"
Const SiteID = "NWP-Desktop"
Function Connect ()
Set DB = Server.CreateObject("ADODB.Connection")
ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" +
Server.MapPath("db\db2.mdb") ' 1 -> eins
DB.Open (ConnStr)
Set Connect = DB
End Function
%>
<%
If Request("Action") = "Login" Then
Set DB = Connect()
SQL = "SELECT * FROM Team WHERE Username = '" + Request("Username") +
"'"
Set RS = DB.Execute (SQL)
If (RS.EOF And RS.BOF) Then
Session (SiteID + "Authentication") = False
Response.Redirect ("login3.asp?Fehler=Username+existiert+nicht.")
ElseIf RS("Password") <> Request ("Password") Then
Session (SiteID + "Authentication") = False
Response.Redirect ("login3.asp?Fehler=falsches+Passwort")
Else
Session (SiteID + "Username") = RS("Username")
Session (SiteID + "Authentication") = True
Response.Redirect ("welcome.asp")
End If
End If
%>
nun will ich auf den gesch�tzten seiten nat�rlich die session
auf g�ltigkeit �berpr�fen und im negativen fall den user auf
die loginseite zur�ckschicken
daf�r habe ich die zeilen hier:
<%
Response.Buffer = True
Response.Expires = -1000
If Session(SiteID + "Authentication") = False Then
Response.Redirect "login3.asp"
End If
%>
allerdings funzt das nicht und ich komme auf keine l�sung...
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
