% If Len(Request.Form("OK")) > 0 or Request.ServerVariables("REQUEST_METHOD") = "POST" then %> <% Dim id id=Server.URLEncode(Request.QueryString("id")) Dim rsubject rsubject=CV("Subject") Dim remail remail =CV("Email") Dim rname rname=CV("Name") Dim rtelephone rtelephone=CV("Telephone") Dim raddress raddress=CV("Address") Dim rmessage rmessage=CV("Message") If Not Err_Msg_Status Then '---------------------------------------------------------------- 'Start sending the cnfirmation email 'Declarte & Create the JMail(v4) message Object Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.Sender = "info@hoytindia.com " JMail.SenderName = "HOYT Engineering Solutions" JMail.Subject = "Acknowledgement Dated " & Date() JMail.AddRecipient remail JMail.AddRecipientBCC "info@hoytindia.com" JMail.AddRecipientBCC "obiztek@yahoo.com" JMail.Priority = 1 JMail.body = ""&_ "==========================================================" & vbCrLf &_ " Acknowledgement " & vbCrLf &_ "==========================================================" & vbCrLf & vbCrLf &_ "We have received your comments with the following details :- " & vbCrLf& vbCrLf &_ "- Name ::" & rname & vbCrLf &_ "- Email ::" & remail & vbCrLf &_ "- Telephone ::" & rtelephone & vbCrLf &_ "- Address ::" & raddress & vbCrLf &_ "- Message ::" & rmessage & vbCrLf & vbCrLf &_ "We will come back to you soon,thanks." & vbCrLf & vbCrLf &_ "============================================================" & vbCrLf &_ " HOYTIndia.com - Professional engineering design solutions for every need" & vbCrLf &_ "============================================================" 'End composing the message JMail.Execute Call DOGO("docontactform.asp") End If End If %>
![]() |
" Professional Engineering Design Solutions " |
|
Home | Product & Services | About Us | Clients | Contact Us |
|
|
|
|
|
|
|
| © Copyright 2004-2005 HOYT Engineering Solutions Pvt. Ltd. All Rights Reserved |
| Home | Products & Services | About Us | Clients | Contact Us | Powered By ::: OBizTek |