ASP code shows absolute path

Show

<%
  "to root path format
 dim stempurl
 stempurl = URL
 if Left (Stempurl, 1) = "/" Then
  relativepath2rootpath = Stempurl
 end If
 dim swebeditorpath
  Swebeditorpath = Request.ServerVariables ("Script_name")
 swebeditorpath = Left (Swebeditorpath, InstrRev ( Swebeditorpath, "/")-1
 do while left (Stempurl, 3) = "... /"
  stempurl = Mid (Stempurl, 4)
  swebeditorpath = Left (Swebeditorpath, InStrRev ( Swebeditorpath, "/")-1
 loop
 relativepath2rootpath = swebeditorpath & "/" & Stempurl
& nbsp; ' Root path to domain full path format
 dim shost, sport
 shost = Split (Request.ServerVariables ("Server_protocol"), "/ ") (0) &"://"& Request.ServerVariables (" Http_host ")
 sport = Request.ServerVariables (" Server_port ")
 if Sport <> Then
  shost = shost & ":" & Sport
 end If
 rootpat H2domainpath = shost & URL
 %>
<%=rootpath2domainpath%><%=relativepath2rootpath%>