<%@ Language = "VBScript" %>
<% Response.Buffer = true %>
<%
Dim strServername, strLocalname, strServerIP
strServername = LCase(Request.ServerVariables("SERVER_NAME")) ' Server's name
strServerIP = LCase(Request.ServerVariables("LOCAL_ADDR")) ' Server's IP address
strRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR")) ' Client's IP address
' If the querystring variable uc <> 1, and the user is browsing from the server machine,
' go ahead and show them localstart.asp. We don't want localstart.asp shown to outside users.
If Request("uc") <> 1 And (strServername = "localhost" Or strServerIP = strRemoteIP) Then
Response.Redirect "localstart.asp"
Else
%>
MailSite
This Webmail system is reserved for use by
authorized individuals.
Use is granted only by the
Department of Physics.
All other access or use is prohibited
Click here to enter the
webmail system
Click here to exit
<%
End If
%>