現在のフルパス(url)を取得するためのasp関数コード

<%
function GetUrl()
 on Error Resume Next
 Dim strTemp
if LCase(request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
 end if
 strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
 If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & "" & Request.ServerVariables("SERVER_NAME") quot;SERVER_PORT")
 strTemp = strTemp & Request.ServerVariables("URL")
 if trim(request.QueryString) <> "" Then strTemp = strTemp & ""? " & Trim(Request.QueryString)
 GetUrl = strTemp
End Function
response.write GetUrl()
%>

<! --get current page path --> 
<% 
dim str,host,url,keyword,full 
str = "http://"; 
host = Request.ServerVariables("HTTP_HOST") 
url = Request.ServerVariables("PATH_INFO") 'or url 
keyword = Request.ServerVariables("QUERY_STRING") 
if keyword <> "" then 
full = str&host&url&""? "&keyword 
else 
full = str&host&url 
end if 
session("url")=full 
%>

<script>
var pathname = window.location.pathname;
location.replace("/do.asp?p="+pathname);
</script>