Rediriger une connexion vers du HTTPS en ASP

<% @Language=VBScript %>

<%

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

%>