<%
If Request.ServerVariables(«SERVER_PORT»)=80 
Then
Dim 
strSecureURL = «https://»
strSecureURL =  &
Request.ServerVariables(«SERVER_NAME»)
strSecureURL =  & «/exchange»
Response.Redirect 
End If
%>