Kluddade till det för mig så jag fick redigera... :)
If UCase(Request.ServerVariables("HTTPS")) = "ON" Then
sURL = "https://"
Else
sURL = "http://"
End If
sURL = sURL & Request.ServerVariables("SERVER_NAME")
sURL = sURL & Request.ServerVariables("SCRIPT_NAME")
If Len(Request.QueryString) > 0 Then sURL = sURL & "?" & Request.QueryString
