<%Language=VBScript%> <%Response.Buffer =true%> <% If trim(Request.form("hdnFlag")) = "YES" Then MailPart() End if Sub MailPart() Dim JMail Set JMail = Server.CreateObject("JMail.SMTPMail") strServer="203.199.200.2:2225" JMail.ServerAddress = strServer 'JMail.ServerAddress = "10.1.1.21" JMail.ContentType = "text/html" JMail.Sender = trim(Request.Form("txtEmail")) JMail.SenderName = Request.Form ("txtName") JMail.AddRecipient "psraghunandanan@spbpc.com" 'JMail.AddRecipientCC "" JMail.Priority = 3 JMail.Subject = "Feedback from " & Request.Form ("txtName") JMail.Body = "
" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "" JMail.AppendText "
Feedback
Name" & Request.Form ("txtName") & "  
Company Name" & Request.Form ("txtCompany") & "  
Designation" & Request.Form ("txtDesignation") & "  

Address

" & Request.Form ("txtAddress") & "  
Email" & Request.Form ("txtEmail") & "  
Phone No." & Request.Form ("txtPhone") & "  
Fax" & Request.Form ("txtFax") & "  
Inquiry to INTERIO" & Request.Form ("txtComment") & "  
" JMail.Execute JMail.Close() Set JMail = Nothing End Sub '************************ End Mail *************************** %> SPB-PC
 
   


Thank you for visiting our site.
If you have any comments or require further information, please use this email form.
Name
Company Name
Designation
Address
Email Address
Telephone Number Fax Number
Comments/Enquiry to SPB-PC





   
 
   
 
 
 
Disclaimer | Privacy Note
Best viewed in 1024 x 768 Res. © 2006 SPB-Projects and Consultancy Limited.