<% if request("hdtxtFlag")="1" then txtEmail=Request.form("txtEmail") txtPhone=Request.form("txtPhone") txtName=Request.form("txtName") txtPurpouse=Request.form("txtPurpouse") dtDate=Request.form("cmbDay") &"-" & Request.form("cmbMonth") &"-" & Request.form("cmbYear") Subject = "Appointment request from trustHospital site Visitor" Body = "Following message has been sent by - " & txtName&" " Body = Body & txtPurpouse & " " Body = Body & "Email : " & txtEmail & " " Body = Body & "Date : " & dtDate & " " if txtPhone<>"" then Body = Body & "Phone : " & txtPhone & " " End if Set myMail = CreateObject("CDO.Message") myMail.From="info@TrustHospital.com" myMail.To="info@TrustHospital.com" myMail.Subject=Subject myMail.HTMLBody=Body myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="ns1.ibee01.org" myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 myMail.Configuration.Fields.Update myMail.Send set myMail=nothing Response.Redirect("appointment.asp?sc=1") Elseif Request.QueryString("sc")=1 then %> Appointment Thank You! For Your Appointment We would be thankful to you for the comments on the website. We appreciate any feedback about the site, the contents on the site, user experience, etc. We request you to bring to our notice if you are not able to access any of the documents/links provided in this site. We welcome your ideas & suggestions on improving this site. <% else%> Appointment * Name : * Email : * Date : Day <% for i=1 to 31 %> <%=i%> <% next %> Month <% for i=1 to 12 %> <%=i%> <% next %> Year <% for i=year(date) to year(date)+5 %> <%=i%> <% next %>    Phone no : * Purpouse of appointment : <% End if %>