<%
SSL = Request.ServerVariables("HTTPS")
If Ucase(SSL) <> "ON" Then
SSLUrl = "https://www.cern.ch" + Request.ServerVariables("URL")
If LCase(Right(SSLUrl, 12)) = "/default.asp" Then
SSLUrl = Left(SSLUrl, Len(SSLUrl)-11)
End If
QS = Request.ServerVariables("QUERY_STRING")
If Len(QS) > 0 Then
SSLUrl = SSLUrl + "?" + QS
End If
Response.Redirect SSLUrl
Response.End
End if
%>