|
<%
if request.form ("E_Mail_Address") ="" then
%>
<%
else
Dim myMail
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
Html = Html & ""
Html = Html & " "
Html = Html & ""
Html = Html & ""
Html = Html & ""
Html = Html & " Account number: "
Html = Html & "" & request.form("Account_Number") & " "
Html = Html & " Company name: " & request.form("Company_Name") & " "
Html = Html & " Contact name: " & request.form("Contact_Name") & ""
Html = Html & " "
Html = Html & " Phone Number: " & request.form("Phone_Number") & ""
Html = Html & " "
Html = Html & " Fax Number: " & request.form("Fax_Number") & ""
Html = Html & " "
Html = Html & " E-mail address: " & request.form("E_Mail_Address") & " "
Html = Html & " "
myMail.From=request.form("E_Mail_Address")
myMail.To="operations@enacouriers.com" 'operations@enacouriers.com
myMail.Subject="User Account"
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
%>
Thanks you for giving your Information
Return to
home page.
<%
end if
%>
|