% Dim MyCDONTSMail Dim sHTML If Request("action") <> "" Then Set MyCDONTSMail = CreateObject("CDONTS.NewMail") ' From ' **** MyCDONTSMail.From= Request("email") ' To ' ** MyCDONTSMail.To="mkjmj@yahoo.com,manoj@mjain.com,info@ermcenter.com" ' Message ' ******* MyCDONTSMail.Subject = "Feedback Form-ERM" MyCDONTSMail.BodyFormat=0 MyCDONTSMail.MailFormat=0 sHTML = sHTML + "
| Hi, | |
| Following is an Feedback form send by an user | |
| Company | " & Request("company") & " |
| Contact Person | " & Request("ct_person")& " |
| Address | " & Request("address") & " |
| Post Box | " & Request("postbox") & " |
| Telephone | " & Request("tel") & " |
| Fax | " & Request("fax") & " |
| " & Request("email") & " | |
| City | " & Request("city") & " |
| country | " & Request("country") & " |
| Message | " & Request("message") & " |