Last Updated:3/23/2006 11:39:46 AM <% Sub DisplayBody() %>
Last Updated:3/23/2006 11:39:46 AM
Qplus logo
 
Home >> Service Request Form
SERVICE REQUEST FORM
<% Response.Write strMessage %>
Those with * are mandatory
Name: *
Company Name: *
Your Designation
E-mail ID: *
Your requirements : *
     
<% End Sub Dim strMessage If Request.Form("cmdSubmit") <> "" Then Call SendMail() End If Sub SendMail() 'Dim objMail,strEmailBody,strEmailSubject, strName,strCompany,strEmail,strReq,strDesig strName = trim(Request.Form("txtName")) strCompany = trim(Request.Form("txtCompany")) strEmail = trim(Request.Form("email")) strReq = trim(Request.Form("txtReq")) strDesig = trim(Request.Form("txtDesig")) strEmailSubject = "Requirements - " & Trim(Request.Form("txtName")) strEmailBody = "Requirements - Qpluslearning.com

"&_ "Name : "& strName & "
" &_ "Company : "& strCompany & "
" &_ "Designation : "& strDesig & "
" &_ "Email : "& strEmail & "
" &_ "Requirements : "& strReq & "
" 'Sending mail 'Mail setting for Persits.MailSender 'Set objMail = Server.CreateObject("Persits.MailSender") 'objMail.Host = "smtp.cybercon.com" 'objMail.Host = "216.198.192.194" 'objMail.From = strEmail 'objMail.FromName = strName 'objMail.AddAddress "rahulp@bslindia.com" 'response.write(strEmailSubject) 'Mail setting for CDONTS Set objMail = Server.CreateObject("CDONTS.newmail") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.From = strEmail objMail.To = "careers@qpluslearning.com" objMail.Cc = "preeti@qpluslearning.com; pankaj@binarysemantics.com" objMail.Subject = strEmailSubject objMail.Body = strEmailBody ' objMail.IsHTML=True objMail.Send() Set objMail = Nothing strMessage = "Your Requirements has been successfully posted. We'll get back to you shortly." End Sub Call DisplayBody() %>