|
Send Your Query/ Register
to Grow with
BIB
<%
if Request("check")<>"" Then
dtitle=Request("dtitle")
txtFirstName=Request("txtFirstName")
txtLastName=Request("txtLastName")
txtAge=Request("txtAge")
txtOrg=Request("txtOrg")
txtdesg=Request("txtdesg")
txtzip=Request("txtzip")
txtcountry=Request("txtcountry")
txtemail=Request("txtemail")
txtphone=Request("txtphone")
txtmobile=Request("txtmobile")
txtquote=Request("txtquote")
'sFrommail=Trim(Request.Form("txtFrom"))
sFrommail="-"
sTomail="info@bibcorporation.com"
sMailsubject= txtFirstName & "- Registration Details"
sMailcontent="Contents
Name:"&dtitle& "."&txtFirstName& " "&txtLastName&"
Age:"&txtage&"
Organization:"&txtorg&"
Designation:"&txtdesg&"
PostalCode:"&txtzip&"
Country:"&txtcountry&"
E-Mail:"&txtemail&"
TelePhone Number:"&txtphone&"
Mobile Number:"&txtmobile&"
Quote:"& txtquote &"
"
SendMailCDONTS sToMail,sMailsubject,sMailcontent,sFrommail
Response.End
Sub SendMailCDONTS(aTo, Subject, TextBody, aFrom)
Dim Message 'As New cdonts.NewMail
'Create CDO message object
Set Message = CreateObject("CDONTS.NewMail")
'Set email adress, subject And body
Message.To = aTo
Message.Subject = Subject
Message.Body = TextBody
if aCC<>"" Then Message.Cc=aCC End if
if aBCC<>"" Then Message.Bcc=aBCC End if
'set mail And body format
Message.MailFormat = 0
Message.BodyFormat = 0
'Set sender address If specified.
If aFrom<>"" Then Message.From = aFrom End if
'Send the message
on error resume next
Message.Send
if err.number = 0 then
Response.write "
Thank you for your interest in BIB.
We will get back to you as soon as possible.
Best regards,
Team BIB
"
else
Response.write " Message sent Error "
end if
End Sub
End if
%>
|
