<% If Request.ServerVariables("SERVER_PORT")=80 Then Dim strQUERY_STRING Dim strSecureURL Dim strWork ' Get server variables strQUERY_STRING = Request.ServerVariables("QUERY_STRING") ' Fix the query string: strWork = Replace(strQUERY_STRING,"http","https") strWork = Replace(strWork,"403;","") strWork = Replace(strWork,":80","") ' Now, set the new, secure URL: strSecureURL = strWork 'response.write(strSecureURL) ' uncomment for sanity check. Response.Redirect strSecureURL End If %>
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.