AM Travels

<% ' Send Email dim strMsg dim mailServerName dim strSub strSub=Request.form("cboService") 'Set JMail = Server.CreateObject("JMail.Message") 'mailServerName="amtravels.net" 'JMail.From = "sales@amtravels.net" 'If strSub <>"" then ' JMail.Subject = strSub 'else ' JMail.Subject = "Inquiry from Website" 'end if 'JMail.Subject = "Inquiry" 'Request.form("cboService") 'JMail.AddRecipient "mail@amtravels.net" 'JMail.body = "The Inquiry form was filled out with the following values:" & vbcrlf & vbcrlf ' strMsg="Name : " & Request.form("txtName") & vbcrlf ' strMsg=strMsg & "Company Name : " & Request.form("txtCompany") & vbcrlf ' strMsg=strMsg & "Address : " & Request.form("txtAdd") & vbcrlf ' strMsg=strMsg & "Phone No : " & Request.form("txtTel") & vbcrlf ' strMsg=strMsg & "Email : " & Request.form("txtEmail") & vbcrlf ' strMsg=strMsg & "Query : " & Request.form("txtQuery") & vbcrlf ' strMsg=strMsg & "About us : " & Request.form("cboHear") & vbcrlf ' JMail.appendtext strmsg ' Send it... 'JMail.Execute ' JMail.Send( mailServerName ) Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="email@domain.com" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "mukesh.monga@gmail.com" 'ObjSendMail.Subject = "Feedback from Website" ObjSendMail.From = "sales@amtravels.net" If strSub <>"" then ObjSendMail.Subject = strSub else ObjSendMail.Subject = "Inquiry from Website" end if strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "" strMsg=strMsg & "

AMTRAVELS.NET ENQUIRY FORM
Name	: " & Request.form("txtName") & "
Company Name	: " & Request.form("txtCompany") & "
Address	: " & Request.form("txtAdd") & "
Telephone	: " & Request.form("txtTel") & "
Email	: " & Request.form("txtEmail") & "
Query	: " & Request.form("txtQuery") & "
How did you hear about us	: " & Request.form("cboHear") & "

" ' we are sending a text email.. simply switch the comments around to send an html email instead ObjSendMail.HTMLBody = strMsg 'ObjSendMail.TextBody = "abc" ObjSendMail.Send Set ObjSendMail = Nothing %> AM Travels

To be a world class travel service provider, with a customer - centric & value - oriented approach in all our activities.

Passport
Recognised by
Government of India

| | | |