<%
Dim myCDONTSMail
Dim StrName
Dim strFrom
Dim strTo
' strTo = "support@webtrustsolutions.com"
Dim strSubject
Dim strMessage
Dim strNo
Dim strlist
'The following variable assignments are not required
'they are just here to make interpretation of the
'myCDONTSMail.Send line easier. You could put the
'Request.Form statements in the .Send line to cut down
'on the amount of code in the file.
strName=request.form("txtName")
strFrom=request.form("txtFrom")
strTo = request.form("txtTo")
strSubject = request.form("txtSubject")
strBody=request.form("txtMessage")
strNo = request.form("txtNo")
strlist = request.form("txtlist")
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
'myCDONTSMail.Send strName,strFrom,strTo,strSubject,strBody,lngImportance
'Set myCDONTSMail = Nothing
'Write "Mail has been sent."
dim strEmail
'dim mname,mmail,mno,fname,fmail,fno,locn,flocn
'fmail=Request.form("txtfemail")
'Dim MyCDONTSMail3
Dim HTML
on error resume next
Set MyCDONTSMail3 = Server.CreateObject("CDONTS.NewMail")
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "My Feedback"
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "Dear Sir/Madam, "
HTML = HTML & "
"
HTML = HTML & "Please Find My Feedback as follows My Name : "&strName&"
"
HTML = HTML & "My Contact No : "&strNo&"
"
HTML = HTML & "My Email : "&strFrom&"
"
'HTML = HTML & "My Location : "&locn&"
"
'HTML = HTML & "Please find my friends Deatails Here My Friend's Name : "&fname&"
"
'HTML = HTML & "My Friend's Contact No : "&fno&"
"
'HTML = HTML & "My Friend's Email : "&fmail&"
"
'HTML = HTML & "My Friend's Location : "&flocn&"
"
'HTML = HTML & "I Refered my friend for the following Job Job Title : "&jbtitle&"
"
'HTML = HTML & "Company : "&jbcomp&"
"
'HTML = HTML & "Job Description : "&jbdesc&"
"
'HTML = HTML & "Skills/Experience Required : "&jbskills&"
"
HTML = HTML & "My Feedback : "&strSubject&"
"
HTML = HTML & "I come to know abt u from : "&strlist&"
"
' HTML = HTML & "Please feel free to contact us in case of further queries.
Best Regards,
ECPL Support
"
HTML = HTML & ""
HTML = HTML & ""
'Response.Write HTML
'Response.End
MyCDONTSMail3.From = strFrom
MyCDONTSMail3.To=strTo
MyCDONTSMail3.Cc="jobish@webtrustsolutions.com"
MyCDONTSMail3.Subject=strSubject
MyCDONTSMail3.BodyFormat=0
MyCDONTSMail3.MailFormat=0
MyCDONTSMail3.Body=HTML
MyCDONTSMail3.Send
'if err.number <> 0 then
'end if
%>
Feedback
Web
hosting Bangalore | Domain Name Registration Bangalore | Windows Hosting
| Linux | Email solutions Provider | Cheap Hosting Bangalore |
|
|
|
| |
| |
| |
|
| Customer
Feedback |
|
| Please
complete the form below and then click the "submit"
button. We aim to respond to your enquiry within 24 hours. |
| ::
Feedback form :: |
|
|
|
|
|
 |
| |
Serving
customers all over the world: Abudhabi, America, Australia, Baharin,
Canada, Dubai, Kuwait, Malaysia, Oman, Muscat, Qatar, Singapore,
Sharjah, UAE, UK, USA |
|
| |
and
Indian Cities : Ahmedabad, Amritsar, Bangalore, Bhuvaneswar, Bhopal,
Bombay, Calcutta, Calicut, Chandigarh, Chennai, Cochin, Delhi, Ernakulam,
Hyderabad, Jaipur, Jodhpur, Kannur, Kanpur, Kolkata, Kochi, Kottayam,
Kozhikode, Mumbai, Mysore, Thrissur, Trichur, Trivandrum and all
over Kerala, Gujarath, Tamilnadu, Andhra Pradesh. |
|
|
|
|
|
|
| |
Copy
right © 2006 webtrustsolutions.com.
All rights reserved. |
|
|
