<% SendToEmail="inetlink@vsnl.com" Function SendMail(FromEmail, ToEmail, SubjectText, MsgText) Set mailobj = Server.CreateObject("CDONTS.NewMail") mailobj.From = FromEmail mailobj.To = ToEmail mailobj.MailFormat = 0 mailobj.BodyFormat = 0 mailobj.Subject = SubjectText mailobj.Body = MsgText mailobj.Send Set mailobj = NOTHING End Function CommentsText= Request("Comments") If CommentsText <> "" then isUrgent = Request("Urgent") SubjectText = Request("Subject") Specifics = Request("R1") SenderName = Request("SenderName") SenderEmail = Request("Email") SenderTele = Request("Telephone") SenderFax = Request("Fax") FromEmail="Inquiry" ToEmail = SendToEmail MsgText = "Inquiry about " & Specifics & "
" MsgText = MsgText + "Comments : " & CommentsText & "
" MsgText = MsgText + "Sender Details : " & "
" MsgText = MsgText + "Name : " & SenderName & "
" MsgText = MsgText + "Email : " & SenderEmail & "
" MsgText = MsgText + "Telephone : " & SenderTele & "
" MsgText = MsgText + "Fax : " & SenderFax & "
" If isUrgent <> "" then MsgText = MsgText + "This message is marked urgent by " & SenderName & ". Please reply this asap." End If 'Response.Write MsgText SendMail "inetlink@vsnl.com", ToEmail, SubjectText, MsgText Response.Write "Thank you for your comments. We shall get back to you as soon as we can." Else %>
 

 

Feedback Form

What kind of comment would you like to send?
 Business Website  Professional Website  E-Commerce/ Shopping Portal  Personal Website

Subject

Enter your comments in the space given below

Tell us how to get in touch with you.
Name
Email
Tel
Fax

Please contact me as soon as possible regarding this matter.

 

<% End IF %>

Click to go  Home Page