[ASP] Login bringe ich nicht fertig!!

Marco Velo activeserverpages at glengamoi.com
Thu, 2 Dec 2004 21:45:22 +0100 

This is a multi-part message in MIME format.

------_=_NextPart_001_01C4D8AF.D7FBF6B0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hallo zusammen

Sorry für meine HTML Nachricht. Kann leider im moment nicht anders, =
weil ich diese Nachricht über mein Outlook Web Access schreibe!!!

Nun, nachdem ich diverses schon ausprobiert habe, komme ich immer noch =
nicht weiter! Habe die seite

http://aspheute.com/artikel/20010516.htm angeguckt! Jedoch verstehe ich =
ne Zeile nicht darum habe ich's gelassen. 
Nun zu meinem Code:

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


Nun, wenn jetzt zum Beispiel bei "if loginok" = true ist, dann wurde =
kein Datensatz gefunden. D.h. kein Zutritt! Wenn loginok = false ist, =
dann hat er zutritt! 
Bei mir kann ich probieren was ich will. Bekomme dauernd den wert "True" =
zurück. Habe es zum kontrollieren anzeigen lassen mit =
response.write....
Variablen user_id und password werden vorher schon deklariert.

Ich denke, dass meine SQL Abfrage nicht korrekt ist.... weiss nicht! =
finde kein Fehler!

Wer kann mir helfen??

DANKE

Grüsse
Marco



------_=_NextPart_001_01C4D8AF.D7FBF6B0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML =
DIR=ltr><HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html; =
charset=iso-8859-1"></HEAD><BODY>=0A=
<P>Hallo zusammen</P>=0A=
<P>Sorry für meine HTML Nachricht. Kann leider im moment nicht anders, =
weil ich =0A=
diese Nachricht über mein Outlook Web Access schreibe!!!</P>=0A=
<P>Nun, nachdem ich&nbsp;diverses schon ausprobiert habe, komme ich =
immer noch =0A=
nicht weiter! Habe die seite</P>=0A=
<P><A =0A=
href="http://aspheute.com/artikel/20010516.htm">http://aspheute.com/art=
ikel/20010516.htm</A> =0A=
angeguckt! Jedoch verstehe ich ne Zeile nicht darum habe ich's gelassen. =
<BR>Nun =0A=
zu meinem Code:</P>=0A=
<P>Private Sub Schritt2()<BR>&nbsp; Dim rs, Conn, strSQL, =
LoginOK<BR>&nbsp; =0A=
<BR>&nbsp;Set Conn = =
CreateObject("ADODB.Connection")<BR>&nbsp;Conn.open = =0A=
"Provider=SQLOLEDB.1; " &amp;_<BR>&nbsp;"Data Source=Tritis; Initial =0A=
Catalog=Hof_Design; User id=800000; Password=gaga"<BR>&nbsp;set rs =
= =0A=
Server.CreateObject("ADODB.Recordset")<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp; =
strSQL = =0A=
"Select * from Benutzer Where Kd_Nr='" &amp; user_id =0A=
&amp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "' AND password='" &amp; =
password &amp; =0A=
"'" <BR>&nbsp; <BR>&nbsp; rs.Open strSQL, Conn, 0, 1<BR>&nbsp; LoginOK =
= rs.EOF =0A=
'Wenn EOF dann Benutzer nicht vorhanden<BR>&nbsp; rs.Close<BR>&nbsp; set =
rs = =0A=
nothing<BR>&nbsp; <BR>&nbsp;&nbsp;&nbsp; Response.write(loginok) 'Zeige =
mir =0A=
boolean wert NUR ZUR KONTROLLE!<BR>&nbsp; If LoginOK =
Then<BR>&nbsp;&nbsp;&nbsp; =0A=
Fehler = true<BR>&nbsp;&nbsp;&nbsp; Call LoginMaske()<BR>&nbsp; =0A=
Else<BR>&nbsp;&nbsp;&nbsp; Session("Login") = =
"OK"<BR>&nbsp;&nbsp;&nbsp; If NOT =0A=
len(Seite) &gt; 0 Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Seite = =0A=
"Default.asp"<BR>&nbsp;&nbsp;&nbsp; End if<BR>&nbsp;&nbsp;&nbsp; =0A=
Response.Redirect(Seite)<BR>&nbsp; end if<BR>End Sub<BR>%&gt;</P>=0A=
<P><BR>Nun, wenn jetzt zum Beispiel bei "if loginok" = true ist, dann =
wurde kein =0A=
Datensatz gefunden. D.h. kein Zutritt! Wenn loginok = false ist, dann =
hat er =0A=
zutritt! <BR>Bei mir kann ich probieren was ich will. Bekomme dauernd =
den wert =0A=
"True" zurück. Habe es zum kontrollieren anzeigen lassen mit =0A=
response.write....<BR>Variablen user_id und password werden vorher schon =0A=
deklariert.</P>=0A=
<P>Ich denke, dass meine SQL Abfrage nicht korrekt ist.... weiss nicht! =
finde =0A=
kein Fehler!</P>=0A=
<P>Wer kann mir helfen??</P>=0A=
<P>DANKE</P>=0A=
<P>Grüsse<BR>Marco<BR></P></BODY></HTML>
------_=_NextPart_001_01C4D8AF.D7FBF6B0--