<% vdate=date Dim strTo, strSubject, strBody 'Strings for recipient, subject, boby Dim objCDOMail 'The CDO object strSubject = "APPOINTMENT REQUEST" strBody = vbcrlf & "Todays Date : " & vdate & vbcrlf & vbcrlf strBody = strBody & "Preferred Appointment Time..." & vbcrlf strBody = strBody & " " & request.form("Preferred_Appointment_Month") & " " & request.form("Preferred_Appointment_Day") & ", " & request.form("Preferred_Appointment_Time") & vbcrlf & vbcrlf strBody = strBody & "Second Choice..." & vbcrlf strBody = strBody & " " & request.form("Preferred_Appointment_Month2") & " " & request.form("Preferred_Appointment_Day2") & ", " & request.form("Preferred_Appointment_Time2") & vbcrlf & vbcrlf strBody = strBody & "First Name : " & request.form("Preferred_Appointment_First_Name") & vbcrlf strBody = strBody & "Last Name : " & request.form("Preferred_Appointment_Last_Name") & vbcrlf strBody = strBody & "Phone : " & request.form("Preferred_Appointment_Phone") & vbcrlf strBody = strBody & "Email : " & request.form("Preferred_Appointment_Email_Address") & vbcrlf %> <% If InStr(request.form("Email"), "@") > 0 then sSender = request.form("Email") Else sSender = "ortho@drboschken.com" End If sSender = request.form("Email") 'OPTIONAL Set JMail = Server.CreateObject("JMail.Message") JMail.ISOEncodeHeaders = false 'JMail.addrecipient("lidia@drboschken.com") JMail.addrecipient("lidia@drboschken.com") JMail.ReplyTo = sSender 'OPTIONAL JMail.From = "form_mail@televoxsites.com" JMail.FromName = "Web Site Form" JMail.subject = strSubject JMail.body = strBody JMail.priority = 3 JMail.MailServerUserName = "form_mail@televoxsites.com" JMail.MailServerPassWord = "myPass4Mail" JMail.Send "localhost" set jmail = nothing Response.Redirect("../contact/thanks.shtml") %>