UIdtræk fra login script

hvad står der i linie 93 ?

Jeg ved dette virker, prøv at tilpasse efter dette...


<% if request ("mode") = "login" then
     
    Set conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\access\database.mdb"

      if session.Contents("Login.Count") <> "" Then
      else
        session.Contents("Login.Count") = cint(1)
      end if
         
        UserName = Trim(Replace(Request.Form("UserName"),"'","''" ))
        Password = Trim(Replace(Request.Form("Password"),"'","''" ))
       
    if session.Contents("Login.Count") > "3" Then
        response.Write("<font face=verdana size=1 color=red>Dette var dit forsøg nr." & session.Contents("Login.Count") & ", vi har derfor spærret din mulighed for at forsøge yderligere!! Kontakt evt. din systemadministrator</font>")
        response.End()
    end if
   
        strSQL = "SELECT * FROM Contacts where UserName = '" & UserName & "' and Password = '" & Password & "'"
        set rs = conn.execute(strSQL)
       
    if rs.eof or rs.bof then
   
            session.Contents("Login.Count") = session.Contents("Login.Count") + cint(1)
            response.Write("<font face=verdana size=1 color=red>Login mislykkedes, prøv igen! Forsøg nr." & session.Contents("Login.Count") & "</font>")
        else
    response.Write("ok")
            session.Contents("Login.Count") = cint(0)
            session.Contents("Login.ID") = rs("id")
            session.Contents("Login.UserName") = rs("UserName")
            session.Contents("Login.FirstName") = rs("FirstName")
            session.Contents("Login.LastName") = rs("LastName")
            session.Contents("Login.Company") = rs("Company")
            session.Contents("Login.Partner") = rs("Partner")
           
end if %>

<%
If Session("login") <> True then
%>
<form method="POST" action="default.asp"><p><input type="text" name="Login" size="10" value="Member" id=login><br><input type="password"

name="Password" size="13" id=login><br><input type="submit" value="Login" name="ok" id=login></p>
<input type="hidden" Name="Mode" Value="login"></form>
<%
else
Response.Write "<font color='#333399' size='2'>" & rs("Login") & "</font>" <-- linie 93.. så vidt jeg husker :D
end If
%>

så skal jeg til at ændre database og en hel masse... det der undrer mig er at jeg ikk bare kan trække det ud som jeg plejer...

Hvad hvis du nu fjerner det der rs("login") og bytter det ud med session("login")

så fremkommer sand / True

Og hvad er det der skal ske? Det er jo klart at den skriver det i stedet, "lukker" for Conn... den som du bruger for at kunne udskrive et rs...

ja så det.. jeg har fikset det... jeg opdagede det også selv da jeg kørte det igennem en gang til.. :D Her værsgo... POINTS.. Smid et svar

Clark

det var da nok det dummeste jeg endnu har lavet.............. DOH