[ASP] Login geht immer noch nicht!!

[alehnherr]

Hallo

Bin da nicht so ein Spezialist, und habe die Seite auch nicht getestet, aber
zwei Sachen sind mir aufgefallen:
1. Warum nimmst Du elseif?
Mit Else sollte es doch auch gehen
2. response.redirect (Seite) würd ich so schreiben:
response.redirect"Seite"

Vielleicht hilfts ja...

Gruss
    ...adi



----- Original Message ----- 
From: "Marco" <m.velo@comcliff.ch>
To: <activeserverpages@glengamoi.com>
Sent: Friday, December 03, 2004 2:51 PM
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