<%
If Request.ServerVariables("SERVER_PORT")=80 Then
Dim strSecureURL
strSecureURL = Request.ServerVariables("SERVER_NAME")
if left(strSecureURL,4)= "www." then
strSecureURL = mid(strSecureURL,5)
end if
strSecureURL = "https://" & strSecureURL
Response.Redirect strSecureURL
End If
%>
