<%
Response.Expires=0
If Request("Action") = "Login" Then
msg = ""
Set my1conn = Server.CreateObject("ADODB.Connection")
'--------------------------------------------------------
' Bitte ändern Sie hier den Datenbankzugriff, wenn Sie nicht
' direkt auf die Datenbank zugreifen möchten
'Direkter Zugriff auf die Datenbank
my1conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbase/partner.mdb")
'Zugriff über DSN
'my1conn.Open"dsn=pass;uid=;pwd="
'--------------------------------------------------------
SQL = "SELECT * FROM users WHERE userNA = '" & Request("name") & "'"
Set rsPruefung = my1conn.Execute(SQL)
If NOT rsPruefung.EOF AND NOT rsPruefung.BOF Then
If rsPruefung("userPA") = Request("password") Then
Session("protected") = true
Session("userNA") = rsPruefung("userNA")
Session.Timeout=900
rsPruefung.Close
my1conn.Close
Set my1Conn = Nothing
Set rsPruefung = Nothing
Response.Redirect "index.asp"
End IF
End If
msg = " Please use the correct username and password!"
End If
%>
ASP-Protected
