<% If Request.Form ("pname") <> "" Then name = Request.Form ("pname") company = Request.Form ("company") address = Request.Form ("address") phone = Request.Form ("phone") fax = Request.Form ("fax") email = Request.Form ("email") comments = Request.Form ("comments") mailbody = "
Feedback
    
  Name
:
"& name &"
  Title
:
"& ntitle &"
 Company
:
" & company & "
 Address
:
" & address & "
 Phon no
:
" & phone & "
 Fax
:
" & fax & "
 Mobile
:
" & mobile & "
 Email
:
" & email & "
 Message
:
" & comments & "
 
" set objmail=server.createobject("Persits.MailSender") objmail.Host = "mail.nmartindustries.com" 'objmail.username = "mail@nmartindustries.com" 'objmail.password = "nmart458b" objmail.from = email objmail.FromName = first_name objmail.AddAddress "nmart@nmartindustries.com" '--- change email address of the respective site objmail.AddBcc "" objmail.AddBcc "" objmail.subject = "Feedback from Website" objmail.body = mailbody objmail.ishtml=true x=objmail.send 'Set objErrMail= Server.CreateObject("CDO.Message") ' With objErrMail ' .From =email ' .To = "info@vishwasindustries.com" ' .Subject = "Inquiry from Website" ' .HTMLBody = mailbody ' .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" ' .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' .Configuration.Fields.Update ' .Send ' End With %>
 
Thank you for your Inquiry.
We will get back to you soon.
 
 
<% Else %>
Company Name :* Name :*
Address : Email :*
City/State : Phone :*
Zip Code : Fax :
Country :*    
Describe Your Requirements :
<%End If%>