AW: [ASP] Login bringe ich nicht fertig!!

[Herbert Hahn]

Probiers mal so:
 
 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=800000; Password=gaga"
  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


  ' LoginOK = rs.EOF 'Wenn EOF dann Benutzer nicht vorhanden
   rs.Close
   set rs = nothing
   
     Response.write(loginok) 'Zeige mir boolean wert NUR ZUR KONTROLLE!
   If LoginOK Then
     Fehler = true
     Call LoginMaske()
   Else
     Session("Login") = "OK"
     If NOT len(Seite) > 0 Then
       Seite = "Default.asp"
     End if
     Response.Redirect(Seite)
   end if
 End Sub
%>

Mit freundlichen Grüßen

HH