simply include on page you want to enforce ssl

vbscriptSSLforce

<%
   If Request.ServerVariables("SERVER_PORT")=80 Then
      Dim strForceSSL
      strForceSSL = "https://"
      strForceSSL = strForceSSL & Request.ServerVariables("SERVER_NAME")
      strForceSSL = strForceSSL & Request.ServerVariables("URL")
      Response.Redirect strForceSSL
   End If
%>