<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim messageText
messageText = "Patient Response Email! Name : " & Request.Form("name") & "
Date of Admission :
" & request.Form("date_addmission") & "
Date of Discharge : " & request.Form("date_discharge") & "
Consultant : " & request.Form("consultant") & "
Address : " & request.Form("address") & "
Room NO. : " & request.Form("roomno") & "
My Comments are :
" & request.Form("comments") & "
My Suggestions are :
" & request.Form("suggestions") & "
"
messageText = messageText & Request.Form("mail") &"
"
Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = request.Form("mail")
MyMail.To = "info@thenationalhospital.com"
MyMail.Bcc = "mastermind1001@hotmail.com"
MyMail.Subject = request.Form("name") & " sent feedback through Website"
MyMail.BodyFormat = 0
MyMail.MailFormat = 0
MyMail.Importance = 2
MyMail.Body = messageText
MyMail.Send
Set MyMail = Nothing
%>
Your email has been sent
Your
Email has been sent.
Please
Click here to send another Email