<% Dim strMethod, strTitle, strURL, message With Request strMethod = UCase(.ServerVariables("REQUEST_METHOD")) strTitle = UCase(.ServerVariables("SERVER_NAME")) & " Fenced Site" strURL = LCase(.ServerVariables("URL")) End With message = "Sorry, you are not logged on" ' Restricted Access If Session("loginfence") = "JA" OR Session("loginAdmin") = "JA" then message = "Welcome to Fenced' site" flourdiasadgang = "OK" Else Response.Redirect "passwordform.asp?u=" & strURL End If %> Fenced Site