<%
Dim objMember, intMember_id,loggedin
' Create objects
Set objMember = New clsMember
If objMember.CheckLogin(Session.SessionID, intUsers_ID) = false Then
loggedin="false"
Else
loggedin = ""
End If
%>
<%
If UCase(Request.Form("hdnSubmit")) = "YES" Then
' Store Form Variables
strForm_Subject = Trim(Request.Form("Subject"))
strForm_Message = Trim(Request.Form("Message"))
strForm_From = Trim(Request.Form("From"))
strForm_Email = Trim(Request.Form("Email"))
strForm_Fax = Trim(Request.Form("Facsimile"))
strForm_Post = Trim(Request.Form("Post"))
strForm_NoReply = Trim(Request.Form("NoReply"))
strForm_PhoneNo = Trim(Request.Form("PhoneNo"))
Call CheckField(strErrorMsg, strForm_Subject, "
Please enter the Subject", strBGColor_DoctorName)
Call CheckField(strErrorMsg, strForm_Message, "
Please enter the Message", strBGColor_DoctorSurgery)
Call CheckField(strErrorMsg, strForm_From, "
Please enter the a From name", strBGColor_Phone)
' If there are no errors
If strErrorMsg = "" Then
' Put everything in session for preview
session("Subject") = strForm_Subject
session("Message") = strForm_Message
session("From") = strForm_From
session("Email") = strForm_Email
session("Facsimile") = strForm_Facsimile
session("Post") = strForm_Post
session("NoReply") = strForm_NoReply
session("PhoneNo") = strForm_PhoneNo
strBodyMsg = "Contact Us Form Details" & Chr(10) & _
"--------------" & Chr(10) & _
session("Message") & Chr(10) & _
"From : " & session("From") & Chr(10) & Chr(10)
IF strForm_NoReply = "on" THEN
strBodyMsg = strBodyMsg & "I am not expecting a reply"
ELSE
strBodyMsg = strBodyMsg & "Please reply to me via : "
IF strForm_Email = "on" THEN
strBodyMsg = strBodyMsg & "Email "
END IF
IF strForm_Fax = "on" THEN
strBodyMsg = strBodyMsg & "Facsimile "
END IF
IF strForm_Post = "on" THEN
strBodyMsg = strBodyMsg & "Post "
END IF
END IF
strBodyMsg = strBodyMsg & Chr(10) & "I can be reached on : " & strForm_PhoneNo & Chr(10) & Chr(10) & _
"http://www.dorevitch.com.au/"
' Create instance of Email Class
Set objEmail = New clsEmail
With objEmail
' setup configuration
.MailComponent = application("smtp_component")
.MailServer = application("smtp_server")
' email sent from
.FromName = "Symbion"
.FromEmail = "dorevitch.contact.us@wdg.com.au"
.ContentType = "text/html"
.Priority = "3"
.AddRecipient "Joanne.Clapton@symbionhealth.com", "Joanne Clapton"
'.AddRecipient "apowell@wdg.com.au", "QML Contact Us"
.Subject = "Dorevitch Contact Us - " & strForm_Subject
.TextBody = strBodyMsg
blnResult = .Send()
End With
' display response (hidden from view)
response.write ""
' Test if mail successfully sent
If blnResult = False Then
Response.Write "Mailer Response:"& objEmail.Response &""
strErrorDesc = "Your message could not be sent. " & _
"Please ensure your E-mail address is valid. "
End If
blnSuccess = true
Else
If session("FirstName") <> "" Then
strForm_FirstName = session("FirstName")
End If
If session("SurName") <> "" Then
strForm_SurName = session("SurName")
End If
If session("Phone") <> "" Then
strForm_Phone = session("Phone")
End If
If session("Email") <> "" Then
strForm_Email = session("Email")
End If
If session("Comments") <> "" Then
strForm_Comments = session("Comments")
End If
End If
End If%>
If you have any comments or suggestions about our service, we would like to hear from you. We aim to learn from any concerns you have and are eager to implement new ideas that will improve our service.
Please fill in this form and press the 'send' button to submit it to us. We look forward to receiving your comments.