[america]

Hallo!

So mache ich eine Einlogg-Abfrage:

<%
Response.Expires=0

Dim db
Dim strBenutzername, strPasswort, login, strPasswortEingabe
Dim SQL
Dim rs

login=0

If (Request.Form("Absenden") = "Einloggen") Then
strPasswortEingabe = ""

set db = Server.CreateObject("ADODB.Connection")
db.Open CONST_DBCONNECTION

strBenutzername = Trim(Request.Form("Benutzername"))
strPasswort = Trim(Request.Form("Passwort"))

SQL = "SELECT passwort FROM adminlogin WHERE benutzername='"&strBenutzername&"'"
SET rs = DefineRS(db, SQL)

if (rs.RecordCount > 0) then
strPasswortEingabe = rs("passwort")
end if

If (strPasswort = strPasswortEingabe) Then
Session("Benutzername") = strBenutzername
response.Redirect "adminseite.asp"
Else
login=1
End If
end if

%>


Hoffe es hilft!
LG
America