I've only skimmed over the article, but everything looked like what I needed (with a few mods)!
I know this post is old, but it was still useful and I hope someone else gets some use out of the moded code.
For our environment, I wasn't able to hard code the urls to replace so I had to manipulate them dynamically. I just wanted to add the dang "S" after http but keep what ever else they typed. So here it is:
<%
Dim strSecureURL, srvSERVER_PORT_SECURE, srvQUERY_STRING, srvNewURL
srvSERVER_PORT_SECURE = Request.ServerVariables("SERVER_PORT_SECURE")
srvQUERY_STRING = Request.ServerVariables("QUERY_STRING")
If (srvSERVER_PORT_SECURE = "0") Then
srvNewURL = Replace(srvQUERY_STRING,"403;http://", "https://")
srvNewURL = Replace(srvNewURL,":80", ":443")
strSecureURL = srvNewURL
Response.Redirect(strSecureURL)
End If
%>