<%
MyWebUrl=request.ServerVariables("SERVER_NAME")
if request.ServerVariables("SERVER_PORT")<>"" And request.ServerVariables("SERVER_PORT")<>"80" then
MyWebUrl=MyWebUrl & ":" & request.ServerVariables("SERVER_PORT")
end if
MyWebUrl="http://" & MyWebUrl
%>
