There is no favorite feature that does all this.
First you need to get the protocol (if it is not always http):
Dim protocol Dim domainName Dim fileName Dim queryString Dim url protocol = "http" If lcase(request.ServerVariables("HTTPS"))<> "off" Then protocol = "https" End If
Now the rest with an additional query string:
domainName= Request.ServerVariables("SERVER_NAME") fileName= Request.ServerVariables("SCRIPT_NAME") queryString= Request.ServerVariables("QUERY_STRING") url = protocol & "://" & domainName & fileName If Len(queryString)<>0 Then url = url & "?" & queryString End If
Hope this works for you.
Konrad
source share