<%
If Request.ServerVariables("SERVER_PORT")=80 Then
Dim strSecureURL
Dim strServName
if Request.ServerVariables("SERVER_NAME")="vcbonline.com" then
strServName = "www.vcbonline.com"
else
strServName = "www.vcbonline.com"
end if
strSecureURL = "https://"
strSecureURL = strSecureURL & strServName
strSecureURL = strSecureURL & Request.ServerVariables("URL")
Response.Redirect strSecureURL
End If
%>
Virginia Commerce Bank: Making the Difference
