<% function ForumLocation() dim intSlashPosition, strURL, strPort strURL = Request.ServerVariables("URL") intSlashPosition = instrrev(strURL,"/") strURL = Mid(strURL, 1, intSlashPosition) if Request.ServerVariables("SERVER_PORT")<>"80" then strPort = ":" & Request.ServerVariables("SERVER_PORT") ForumLocation = "http://" & Request.ServerVariables("SERVER_NAME") & strPort & strURL end function %>