Einzelnen Beitrag anzeigen
Alt 16.03.2003, 21:00   #11
Nightman
Inventar
 
Registriert seit: 04.09.2001
Alter: 42
Beiträge: 1.959

Mein Computer

Standard

<html>

<head>
<title>UserCheck</title>
</head>

<body>

<%

dim strCon, StrDB
dim objCon
dim objRS
dim strSQL
dim strUser_Name
dim strUser_Pass

strDB = "Data Source=" & "Z:\http\test\user\User.mdb"
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
response.write "Verbindung zur Datenbank " & strDB & " geöffnet.
"

Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * from User where User_Name Like 'Nightman'"
objRS.open strSQL, objCon

if request.form("strUser_name") = objRS("User_name") and request.form("strUser_Pass") = objRS("User_Pass") then
response.redirect "test.asp"
else response.write "der benutzer: " & request("strUser_Name") & " mit dem password: " & request("strUser_Pass") & " ist ungültig !!!"
end if

objRS.close
Set objRS = Nothing

objCon.close
Set objCon = Nothing

%>

</body>

</html>

-------------------

aja und die Datenbank stimmt überein

so sieht es mom aus !!!!

wie würdest du so ne abfrage machen?
____________________________________
MfG Nightman
Nightman ist offline   Mit Zitat antworten