Hallo Leute!
Ich weiss ich werd jetzt schon l�stig aber ich hab niemanden sonst den
ich fragen kann und die
anderen Listen hab ich auch schon durchst�bert. es geht darum; ich habe
eine Benutzeranmeldung die
Daten f�r diese kommen aus einer Access 2000 Datenbank und diese soll
gesichert werden.
Bei den folgenden Skript wird ein Cookie gesetzt das automatisch wieder
gel�scht wird wenn man aussteigt.
So nun funktioniert das aber nicht es kommt die Fehlermeldung:
Antwortobjekt-Fehler 'ASP 0156 : 80004005'
Header-Fehler
/login/login.asp, Zeile 15
Die HTTP-Header sind bereits in den Client Browser geschrieben.
�nderungen am HTTP-Header m�ssen vorgenommen werden, bevor der
Seiteninhalt geschrieben wird.
Danke im Vorraus diddy
<%@Language="VBScript" EnableSessionState="False"%>
<% Option Explicit %>
<%
' Pruefen, ob der Benutzer das HTML-Formular abgesendet hat
If Request.Form("Absenden") = "" Then
' HTML-Formular nicht abgesendet, daher Formular anzeigen
%>
<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>"
method="POST">
Anwenderkennzeichen: <input type="Text"
name="txtAnwenderkennzeichen" size="20" maxlength="20"><br>
Paßwort: <input type="Password" name="txtKennwort" size="20"
maxlength="20"><br>
<input type="Submit" name="Absenden" value="Einloggen">
</form>
<%
Response.Buffer = True
Response.AddHeader "cache-control", "no-store"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Dim strAnwenderkennzeichen, strKennwort
strAnwenderkennzeichen = Request.Form("txtAnwenderkennzeichen")
strKennwort = Request.Form("txtKennwort")
Dim rsAnwenderkennzeichen
Set rsAnwenderkennzeichen = Server.CreateObject("ADODB.Recordset")
rsAnwenderkennzeichen.ActiveConnection = "Driver={Microsoft Access
Driver (*.mdb)}; DBQ=" & Server.MapPath("WBFunktionaere.mdb")
rsAnwenderkennzeichen.Source = "SELECT COUNT (*) FROM Anwender WHERE
Anwenderkennzeichen = '" & (strAnwenderkennzeichen) & "' AND Kennwort =
'" & (strKennwort) & "'"
rsAnwenderkennzeichen.CursorType = 0 'adOpenForwardOnly
rsAnwenderkennzeichen.CursorLocation = 2 'adUseServer
rsAnwenderkennzeichen.LockType = 3 'adLockOptimistic
rsAnwenderkennzeichen.Open
Else
strAnwenderkennzeichen = Trim(Request.Form("txtAnwenderkennzeichen"))
strKennwort = Trim(Request.Form("txtKennwort"))
' Identifizierung des Users, hier nur als If Abfrage implementiert
If rsAnwenderkennzeichen.Fields(0).Value = 1 Then
' Anwenderkennzeichenn und Kennwort gueltig, daher User einloggen
Session("Anwenderkennzeichen") = strAnwenderkennzeichen
Response.Write "Login erfolgreich.<br><br>"
Response.Write "<a href=""seite1.asp"">Zur ersten Seite</a>"
Else
' Anwenderkennzeichen und Kennwort nicht gueltig, daher kein
Einloggen
Response.Write strAnwenderkennzeichen & " " & strKennwort &
"<br>"
Response.Write "Sie konnten nicht eingeloggt werden!"
End If
End If
rsAnwenderkennzeichen.Close
Set rsAnwenderkennzeichen = Nothing
%>
| 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
