«

Is there a server var that will give me the entire URL that is in the
address bar? Currently, I am just adding SERVER_NAME & URL

Something like this - the long and drawn out method

<%
Dim sProtocol, sDomain, sPath, sQuerystring
sResult

'get protocol
sProtocol = "http://"
If UCase(Request.ServerVariabes("HTTPS")) = "ON" Then sProtocol = "https://"

'get domain
sDomain = LCase(Request.ServerVariables("SERVER_NAME"))

'Get path
sPath = LCase(Request.ServerVariables("SCRIPT_NAME"))

'Get querystring
sQuerystring = LCase(Request.Querystring)


''put together
sResult = sProtocol & sDomain & sPath
If Len(sQuerystring) > 0 Then sResult = sResult & "?" & sQuerystring

Ray at work



"Aaron" <> wrote in message
news:...
> Is there a server var that will give me the entire URL that is in the
> address bar? Currently, I am just adding SERVER_NAME & URL
>

Yes, that is pert-near what I have ... for some reason I thought there
was a SRVR_VAR that grabbed the entire value of the address bar ... only
JS perhaps. Thanks!

Ray at <%=sLocation%> wrote:

> Something like this - the long and drawn out method
>
> <%
> Dim sProtocol, sDomain, sPath, sQuerystring
> sResult
>
> 'get protocol
> sProtocol = "http://"
> If UCase(Request.ServerVariabes("HTTPS")) = "ON" Then sProtocol = "https://"
>
> 'get domain
> sDomain = LCase(Request.ServerVariables("SERVER_NAME"))
>
> 'Get path
> sPath = LCase(Request.ServerVariables("SCRIPT_NAME"))
>
> 'Get querystring
> sQuerystring = LCase(Request.Querystring)
>
>
> ''put together
> sResult = sProtocol & sDomain & sPath
> If Len(sQuerystring) > 0 Then sResult = sResult & "?" & sQuerystring
>
> Ray at work
>
>
>
> "Aaron" <> wrote in message
> news:...
>
>>Is there a server var that will give me the entire URL that is in the
>>address bar? Currently, I am just adding SERVER_NAME & URL
>>
>
>
>