<%
'response.write request.ServerVariables("HTTP_HOST")&" "
'response.write request.ServerVariables("HTTP_url")&" "
Dim hGourl
hGourl= Replace(request.ServerVariables("HTTP_url"),"&","&")
dim gourl_val
gourl_val = request("gourl")
if gourl_val <> "" then
hGourl= gourl_val
end if
%>