Problemmer med Udtræk.. IGEN

Hej.. jeg har fået problem igen...
Jeg har fået lavet så jeg kan lave et udtræk fra mit login system.. nu er problemmet så at hvis jeg kører neden for stående så prøver den at skrive rs("Login") alligevel

forbindelse til database:
------------------------------
<%
if request ("mode") = "login" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("users.mdb")
Conn.Open DSN
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))

rsSQL = "SELECT * FROM users where Login = '" & Login & "' and Password = '" & Password & "'"
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("ID") = rs("ID")
session("login") = True
Response.redirect "default.asp"
Else
Response.redirect "default.asp"
End If
Conn.Close
Set Conn = Nothing

End if
%>
<%
if session("id") <> 0 then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("users.mdb")
Conn.Open DSN
SQL = "Select * FROM users WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)
end if
%>
---------------------------------

udtræk:
---------------------------------
<%
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
If Session("login") = True then
Response.Write "<font color='#333399' size='2'>Hi " & rs("Login") & "<br><a href='default.asp?id=messages'>Messages</a></font>"
end If
end If
%>

men alligevel prøver den at vide rs("login")
why ???