Redirect to secure on page load with ASP

<script language="vb" runat="server">
Sub Page_Load(Source as Object, e as EventArgs)
  If Request.IsSecureConnection = False Then
    Response.Redirect("https://secure.server/")
  End If
End Sub
</script>

Author: codejago