<%@ Language=VBScript %> <% mEmailID = Request.QueryString("EID") mPatientID = Request.QueryString("PID") If Request.Form("txtSendNow") = "Yes" Then Sub SendEmail() Dim oMail On Error Resume Next Set oMail = Server.CreateObject("CDONTS.NewMail") With oMail .From = "infoweb@dwarahat.com" .To = mSendTo .Subject = mSubject .Body = mBody .Send End With Set oMail = Nothing If Err.number <> 0 Then sMsg = Err.Description Err.Clear End If End Sub ' *************** Dim sEmailAddr, sMsg mSubject = Request.Form("txtSubject") mBody = Request.Form("txtBody") mBody = Request.Form("txtBody") mBody = Request.Form("txtBody") mBody = Request.Form("txtBody") mSendTo = Request.Form("txtSendTo") Call SendEmail End if %> Aqua Pure - Water Purifiers

An ISO Certified Company
Home
|
About Us
|
Advanced RO
|
UV Systems
|
|
Testimonials

    » Support

    » Contact Us

    » Downloads

    » Site Map

 
BUSINESS ASSOCIATION



Your Name :
Your Address :
Your City :
Your Email :
Your Query :
Copyright @ 2008, Aqua Pure, All Rights Reserved.