%@ LANGUAGE="VBScript" %> <% ' ' Get IP address of the server, the search form works only on the internal server ' If InStr(Trim(Request.ServerVariables("SERVER_NAME")),"phobosdb.chm.bnl.gov")<>0 Then mirror=true Else mirror=false End If %>