AW: [ASP] Login geht immer noch nicht!!

[Thomas Mayrhofer]

Laß Dir die Werte mal ausgeben, was da wirklich drin steht!

Gruß Thomas

-----Ursprüngliche Nachricht-----
Von: activeserverpages-admin@glengamoi.com
[mailto:activeserverpages-admin@glengamoi.com] Im Auftrag von Marco
Gesendet: Freitag, 3. Dezember 2004 17:21
An: activeserverpages@glengamoi.com
Betreff: RE: [ASP] Login geht immer noch nicht!!


Hi

Ja, weiter oben im code steht nämlich noch dies:

Public Schritt, user_id, Password, Fehler, Seite

user_id = Request("user_id")
Password = Request("Password")


------------------------------------
Hallo Marco,

sind in den Variablen user_id und password überhaupt Werte drin?

Gruß Johann






-----Original Message-----
From: activeserverpages-admin@glengamoi.com
[mailto:activeserverpages-admin@glengamoi.com] On Behalf Of Marco
Sent: Friday, December 03, 2004 2:52 PM
To: activeserverpages@glengamoi.com
Subject: [ASP] Login geht immer noch nicht!!

Nun, besten dank für deine Tipps!
Ich habe nun mein Code so angepasst!

Nun wird dauernd die LoginMaske() aufgerufen. Das heisst, egal ob ich =
den
richtigen oder falschen Login benutze. Ich bekomme am schluss den Wert
false.

Habe in der Benutzer DB nochmals nachkontrolliert und habe zum testen =
ein
Benutzer drin. Mit diesem Benutzer und Password komme ich trotzdem nicht
durch!!

Ich versteh langsam nichts mehr.....

Hilfe!!!...

<% end sub

Private Sub Schritt2()
  Dim rs, Conn, strSQL, LoginOK
 

 Set Conn = CreateObject("ADODB.Connection")
        Conn.open = "Provider=SQLOLEDB.1; " &_
        "Data Source=Tritis; Initial Catalog=Hof_Design; User =
id=xxxxxx;
Password=xxxx"
        set rs = Server.CreateObject("ADODB.Recordset")
 
  strSQL = "Select * from Benutzer Where Kd_Nr='" & user_id &_
                        "' AND password='" & password & "'"
  rs.Open strSQL, Conn, 0, 1

if rs.eof then
        LoginOK= false
else
        LoginOK = True
end if

  rs.Close
  set rs = nothing
 
  If LoginOK = false Then
    Fehler = true
    Call LoginMaske()
  Elseif LoginOK = True then
    Session("Login") = "OK"
          Seite = "default.asp"
    Response.Redirect(Seite)
  end if
End Sub
%>

_______________________________________________
ActiveServerPages Mailingliste, Postings senden an:
ActiveServerPages@glengamoi.com An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/activeserverpages

_______________________________________________
ActiveServerPages Mailingliste, Postings senden an:
ActiveServerPages@glengamoi.com An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/activeserverpages