[ASP] Login geht immer noch nicht!!

[Marco]

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