To covert from HTTP: to HTTPS

<%
dim srvname
dim scrname
    if Request.ServerVariables("HTTPS") = "off" then
        srvname = Request.ServerVariables("SERVER_NAME")
        scrname = Request.ServerVariables("SCRIPT_NAME")
        response.redirect("https://" & srvname & scrname)
    end if

    ' continue "secure" code here
Response.Write("Redirect test")
    %>