Código:
If Request.ServerVariables("SERVER_PORT") = 80 Then
Dim Path As String = "https://" & _
Request.ServerVariables("SERVER_NAME") & _
Request.ServerVariables("URL")
If Request.ServerVariables("QUERY_STRING") <> "" Then
Path &= "?" & Request.ServerVariables("QUERY_STRING")
End If
Response.Redirect(Path)
End If
yo pongo ésto en el load de la página, seguramente hay una forma de configurarlo vía servidor web pero desconozco
Saludos