<% DIM Refer Refer=LCase(Request.ServerVariables("SERVER_NAME")) %>