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

%>