Was ist Zeile 34?
-----Urspr�ngliche Nachricht-----
Von: Dietmar Stuck [mailto:[EMAIL PROTECTED]]
Gesendet: Mittwoch, 26. September 2001 10:53
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] VBScript-Fehler '800a01a8'
Hallo Leute!
Bin grade dabei eine gesicherte Benutzeranmeldung zu machen, bei der die
Anmeldedaten aus einer
Access2000 DB kommen. Nun habe ich eine funktionierende
Benutzeranmeldung mit Daten
aus einer Access2000 DB und eine einfache "gesicherte" Benuteranmeldung
einfach zusammengeh�ngt.
Beides hat vorher funktioniert. Aber jetzt bekomme ich diese
Fehlermeldung:
Laufzeitfehler in Microsoft VBScript-Fehler '800a01a8'
Objekt erforderlich: ''
/login/login.asp, Zeile 34
Ich vermute es h�ngt mit der If Abfrage zusammen wobei diese ja vorher
funktioniert hat.
Vielleicht kann mir ja wer helfen.
Danke bis bald diddy
<%@Language="VBScript" EnableSessionState="False"%>
<% Option Explicit %>
<%
Response.Buffer = True
Response.AddHeader "cache-control", "no-store"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
%>
<%
' Pruefen, ob der Benutzer das HTML-Formular abgesendet hat
If Request.Form("Absenden") = "" Then
' HTML-Formular nicht abgesendet, daher Formular anzeigen
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
%>
<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>
| 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
| 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
