Send-To-Friend link with complete referrring URL

[darnnnel]

Hi, i would like to add a send-to-friend link at the top of every page. I would like the link to send the URL info to a popup window. here is what i have so far:

<a href="javascript:;" onClick="MM_openBrWindow('/global/sendtofriend/index.asp?URL=<%= Request.ServerVariables("SERVER_NAME")& Request.ServerVariables("URL")& "?" & Request.ServerVariables("QUERY_STRING")%>','','wid th=200,height=280')">

The only problem that i am having is that if the user is on a secure page, the link will not have a HTTPS:// - what can i add to the code that will find HTTP:// or HTTPS:// for the referral link?

Thanks,
Leon

[GazMathias]

Hi

Request.ServerVariables("HTTPS") will return Off in HTTP mode, so you can check for that.

Example:

function gethttp(header)
if header = "Off" then
gethttp = "HTTP"
else
gethttp="HTTPS"
end function
 
somevar = gethttp(Request.ServerVariables("HTTPS"))
 

For future reference, this always comes in handy:

<%
For Each Item in Request.ServerVariables
   Response.Write Item & ": " & Request.ServerVariables(Item) & "<br>" & vbNewLine
Next
%>
 

Gaz

[darnnnel]

Thanks Gaz for the quick reply. I am a beginner, and if you have a moment, can you show me how to implement the code above? i would really appreciate it.
Thanks,
Leon

[GazMathias]

No Problem, if you were to use the function above then you would do so like:

Put this somewhere in your page:

function gethttp(header)
if header = "off" then
gethttp = "HTTP"
else
gethttp="HTTPS"
end if
end function
 

Then modify your link to include the variable that you check first, like so:

<%
httpvar = gethttp(Request.ServerVariables("HTTPS"))
%>
 
<a href="javascript:;" onClick="MM_openBrWindow('/global/sendtofriend/index.asp?URL=<%= httpvar & "://" & Request.ServerVariables("SERVER_NAME")& .... 'The rest of your link