% if (Request.ServerVariables("HTTP_METHOD")) = "POST" then nm = Request.Form("txtname") add = Request.Form("txtadd") ph = Request.Form("txtphone") fax = Request.Form("txtfax") email = Request.Form("txtmail") comment = Request.Form("txtcomment") set pMail=Server.CreateObject("CDONTS.NewMail") pMail.mailformat =cdomailformatmime pMail.From=email pMail.To="info@rajbuilders.com" pMail.Subject="Feedback Details" pMail.Cc="support@updateindia.com" str= " Feedback Details " & vbcrlf str= str & " Name : " & nm & vbcrlf str= str & " Address: " & add & vbcrlf str= str & " Name : " & ph & vbcrlf str= str & " Name : " & fax & vbcrlf str = str & " Email :" & email & vbcrlf str = str & " Message :" & comment & vbcrlf pMail.Body = str pMail.Send Set pMail= Nothing response.redirect("thanks.html") end if%>
|
|||||||
| Site Developed By Accudata Networks - www.accudatagroup.com |