Sub Class_Globals
End Sub
Public Sub Initialize
End Sub
Public Sub Filter(req As ServletRequest, resp As ServletResponse) As Boolean
If req.Secure Then
Return True
Else
resp.SendRedirect(req.FullRequestURI.Replace("http:", "https:"))
Return False
End If
End Sub