Cómo escribir el nombre del dominio de origen usando HTML o JS

Obtener todos los parámetros de dirección del nombre de dominio, incluidos? y los parámetros posteriores<% dim url url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME") if( len(trim(request.ServerVariables("QUERY_STRING")))>0) entonces url=url & "?" & request.ServerVariables("QUERY_STRING") finaliza si respuesta.Escribe url %>