[aspdebeginners] AW: VBScript-Fehler '800a01a8'

Dietmar Stuck Wed, 26 Sep 2001 00:44:06 -0700
Zeile 34 ist 
If rsAnwenderkennzeichen.Fields(0).Value = 1 Then
hat sich aber gerade erledigt ich habe die Reihenfolge des Skriptes
etwas ge�ndert.
Falsch anmelden funktioniert jetzt aber wenn ich mich mit dem richtigen
Namen aus der Access 2000 DB anmelde dann kommt

Laufzeitfehler in Microsoft VBScript-Fehler '800a01f4'
Variable ist nicht definiert: 'Session'
/login/login.asp, Zeile37

in 37 steht: Session("Anwenderkennzeichen") = strAnwenderkennzeichen

Hier ist das bisher fast funktionierende Skript. 
Vielleicht braucht es ja mal irgendwer.

<%@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
%>

<% 
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

   ' Pruefen, ob der Benutzer das HTML-Formular abgesendet hat
  If Request.Form("Absenden") = "" Then    
  
   ' HTML-Formular nicht abgesendet, daher Formular anzeigen
  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&szlig;wort: <input type="Password" name="txtKennwort" size="20"
maxlength="20"><br>
     <input type="Submit" name="Absenden" value="Einloggen">
   </form>

-----Urspr�ngliche Nachricht-----
Von: Stefan H�sler [mailto:[EMAIL PROTECTED]]
Gesendet: Mittwoch, 26. September 2001 09:02
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: VBScript-Fehler '800a01a8'


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&szlig;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

| 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
[aspdebeginners] AW: VBScript-Fehler '800a01a8'

Antwort per Email an
