Controllare una connessione protetta


Come è possibile sapere se la pagina ASP che richiamiamo viene eseguita su una connessione HTTPS , quindi protetta?

<%
connessione = Request.ServerVariables("HTTPS")
If UCase(connessione) = "ON" Then
Response.write "Connessione avvenuta - Server Sicuro"
Else
Response.write "Connessione avvenuta - Server NON Sicuro"
End If
%>