Medicine Reminder

<% @LANGUAGE = VBScript %> <% Option Explicit %> Medicine Reminder

Medicine Reminders

" METHOD=POST onSubmit="return validateFormOnSubmit(this)">

Medicine Reminder Service is about free reminders for your medicines or medication refills. This service is useful when you are busy in your work but would never like to neglect the health of your loved ones. Once you send us the frequency (Date and Time) of medicine reminders and the medicine name, we will confirm with you and deliver the medicines as per your instructions.

Submit this form to setup the Medicine Reminders

Name
Telephone
Email
Address
Medicine Name
Frequency of Reminder (Day and time)

	*Enter data in all the fields. Conditions apply.

<% Dim strName, strEmail, strTel, strAddr, strOdr, strQty, htmlText strName = Trim(Request.Form("ClientName")) strTel = Trim(Request.Form("ClientTel")) strEmail = Trim(Request.Form("ClientEmail")) strAddr = Trim(Request.Form("ClientAddr")) strOdr = Trim(Request.Form("ClientOdr")) strQty = Trim(Request.Form("ClientQty")) If (strName <> "" And strTel <> "" And strAddr <> "" And strOdr <> "" And strQty <> "" And strEmail <> "") Then Dim objMail, aRecipients Set objMail = Server.CreateObject("CDONTS.NewMail") htmlText = "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "Medicine Reminder" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "www.nationalchemists.com
" htmlText = htmlText & "Name : " & strName & "
" htmlText = htmlText & "Tel #: " & strTel & "
" htmlText = htmlText & "Email: " & strEmail & "
" htmlText = htmlText & "Addr : " & strAddr & "
" htmlText = htmlText & "Medicine name: " & strOdr & "
" htmlText = htmlText & "Frequency : " & strQty htmlText = htmlText & "" htmlText = htmlText & "" htmlText = htmlText & "" objMail.From = "mail@nationalchemists.com" objMail.To = "mail@nationalchemists.com" objMail.Subject = "Medicine Reminder of " & strName aRecipients = Array("nationalchemist@gmail.com") objMail.BCC = Join(aRecipients, ";") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.Send Response.Write "...Message Sent. Thank You For Writing to National Chemist!
" Set objMail = Nothing Else Response.Write "

" End If %>