<%@LANGUAGE="VBSCRIPT"%>
<%
' Force Users Connection Mode Version 2.01
' Server Behavior by - Joseph Scavitto - www.thechocolatestore.com/ultradev
dim vURL, vOnOff
Select Case ("UnSecured")
Case "Secured"
vURL = "https://"
vOnOff = "on"
Case "UnSecured"
vURL = "http://"
vOnOff = "off"
End Select
If CStr(Request.ServerVariables("HTTPS")) <> vOnOff Then
vURL = vURL & Request.ServerVariables("Server_Name") & Request.ServerVariables("URL")
If Request.QueryString().Count > 0 Then
vURL = vURL & "?" & Request.QueryString()
End If
Response.Redirect vURL
End If
%>
Financial Survival Guide
