%
if Len(Request.Form("submit")) > 0 then
name = Trim(Request.Form("name"))
company = Trim(Request.Form("company"))
address = Trim(Request.Form("address"))
phone = Trim(Request.Form("phone"))
email = Trim(Request.Form("email"))
message = Trim(Request.Form("message"))
disp = "Thank You !
We will get back to you soon."
body = "Following Message was received through contact us section on www.pipavavshipyard.com"&vbcrlf&vbcrlf&"Name: " & name &vbcrlf& "Company : " & company & vbcrlf & "Address : " & address & vbcrlf&"Phone No. : " & phone &vbcrlf& "E-mail Address : " & email &vbcrlf& "Message : " & message
Set Mail = Server.CreateObject("Persits.MailSender")
strHost ="alicemail.pipavavshipyard.com"
Mail.Host = strHost
Mail.From = email
Mail.FromName = "Pipavav Shipyard Ltd. Contact Us"
''Mail.AddAddress "dane2@iinet.net.au"
Mail.AddAddress "contact@pipavavshipyard.com"
'Mail.AddCc "yatin.salvi@skilgroup.co.in"
Mail.AddBcc "anup@cometsol.com,pragya.ocp@gmail.com"
Mail.Username = "contact@pipavavshipyard.com"
Mail.Password = "contact@psl"
Mail.Subject ="Contact Us"
Mail.Body =body
Mail.Send
done=1
'Dim objMail
'Set objMail =server.CreateObject("CDONTS.NewMail")
'objMail.From = email
'objMail.To = "dane2@iinet.net.au "
'objMail.Cc = "lars@airtoh2o.com.au "
'objMail.Subject = "Contact Us"
' objMail.BodyFormat = 0
'objMail.Importance = 2
'objMail.Body = body
'objMail.Send
'done=1
end if
%>
|
|||||||||||||||||||||||||||||