Log-ind / Log-ud

Jeg har en side hvor brugere kan logge sig ind. Nederst på siden med scriptet findes form'en hvor man indføre navn og kodeord.

<%
if request ("mode") = "login" then
' Opretter forbindelse til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/vti_log/databasen.mdb")
Conn.Open DSN
Login = Trim(Replace(Request.Form("Login"),"'","''" ))
Password = Trim(Replace(Request.Form("Password"),"'","''" ))
rsSQL = "SELECT * FROM bruger where Login = '" & Login & "' and Password = '" & Password & "' and Aktiv = '" & 2 & "'"

' hvis brugeren var i databasen
set rs = Conn.execute(rsSQL)
If Not (rs.BOF Or rs.Eof) Then
Session("ID") = rs("ID")
session("Login") = True
Response.redirect "start.asp"

Else
Response.redirect "forkert.asp"
End If
Conn.Close
Set Conn = Nothing
End if
%>

Men i stedet for at en gyldig bruger sendes videre til start.asp, vil jeg gerne have at han forbliver på samme side, hvor log-ind form'en så bare udskiftes med en log-ud knap. Selve denne procedure har jeg ikke problemer med, men sådan som det er nu forbliver log-ind feltet der på samme side selvom man er logget ind.

For en sikkerheds skyld vedlægger jeg også log-ud siden:

<%
Session("login") = ""
Session.Abandon
Response.Redirect("default.asp")
%>