<%
' If this is an SSL connection then place some text
' on the screen to make the users feel comfortable!
If m_fUsingSSL Then
%>
The site operates in a secure environment while in the Business Partner section.
This ensures the integrity of your name, password and any details you provide.
|
<% End If %>
|
Update Your Exploration Air Advertisements!
<% If m_fUsingSSL Then %>
Your certificate indicates that you work for the
<%= Request.ClientCertificate("SUBJECTOU") %>
unit of <%= Request.ClientCertificate("SUBJECTCN") %>,
it was signed by <%= Request.ClientCertificate("ISSUERO") %>
and is valid until <%= Request.ClientCertificate("VALIDUNTIL") %>.
Finally, your email alias is <%= Request.ClientCertificate("SUBJECTEMAIL") %>.
<% End If %>
As a valued business partner, we can accept your advertisement updates over the Web!
We don't charge for this service! You can change your running advertisements anytime, day or night.
<%
Dim strPrefix, strPathToUpload
If UseSSLOnBusinessPartners() Then
strPrefix = GetSecurePrefixValue()
strPathToUpload = strPrefix & "/Upload/" & Request.ClientCertificate("SUBJECTCN")
Else
strPrefix = GetPrefixValue()
strPathToUpload = strPrefix & "/Upload/" & Request.ServerVariables("LOGON_USER")
End If
%>
<%
strAction="http://" & Request.ServerVariables("SERVER_NAME") & _
"/scripts/cpshost.dll?PUBLISH?" & _
strPrefix & "/Verify.asp"
%>
|
