Forum Moderators: open
to enforce SSL
Private Sub EnforceSSL()
'localhost '
If LCase(Trim(Request.ServerVariables("SERVER_NAME"))) <> "localhost" Then
If Request.ServerVariables("SERVER_PORT") = 80 Then
'check if requested page requires SLL
Dim strSecureURL As String
strSecureURL = "https://"
strSecureURL = strSecureURL & Request.ServerVariables("SERVER_NAME")
strSecureURL = strSecureURL & Request.ServerVariables("URL")
strSecureURL = strSecureURL & "?" & Request.ServerVariables("QUERY_STRING")
Response.Redirect(strSecureURL)
End If
End If
End Sub
'
Private Sub NonSSL()
If Request.ServerVariables("SERVER_PORT") <> 80 Then
Dim strNonSSLURL As String
strNonSSLURL = "http://"
strNonSSLURL = strNonSSLURL & Request.ServerVariables("SERVER_NAME")
strNonSSLURL = strNonSSLURL & Request.ServerVariables("URL")
strNonSSLURL = strNonSSLURL & "?" & Request.ServerVariables("QUERY_STRING")
Response.Redirect(strNonSSLURL)
End If
End Sub