<%
	If (Request.ServerVariables("HTTPS") = "on") Then
		Dim location
		location = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
%>
<script language="javascript">
	document.location = '<%= location %>';
</script>
<%
	End If
%>