<%
ON ERROR RESUME NEXT
dim strSysFeedBack
'if the contact us form has been submitted then...
If Request.Form <> "" Then
'email variables
dim objMailer
dim strSubject
dim strBody
dim strRecipientEmail
dim strEmail
'Web site survey Form variables:
dim strnavigation
dim strstructure
dim strhomepage
dim strnews
dim strvital
dim strcontent
dim strintexlinks
dim strcolour
dim strfeedback
dim strapplicforms
dim strguidelines
dim strbrowsers
dim strOtherComments
strnavigation = Request.Form("navigation")
strstructure = Request.Form("structure")
strhomepage = Request.Form("homepage")
strnews = Request.Form("news")
strvital = Request.Form("vital")
strcontent = Request.Form("content")
strintexlinks = Request.Form("intexlinks")
strcolour = Request.Form("colour")
strfeedback = Request.Form("feedback")
strapplicforms = Request.Form("applicforms")
strguidelines = Request.Form("guidelines")
strbrowsers = Request.Form("browsers")
strOtherComments = Request.Form("OtherComments")
'set the email address of the person that is to receive the contact us emails
strRecipientEmail = "info@vitesse.ca"
'strRecipientEmail = "shaun@greenbutton.ca"
strEmail = "info@vitesse.ca"
'strEmail = "shaun@greenbutton.ca"
'set the subject attribute of the Mailer object
strSubject = "Web site Survey"
'get competencies info
strBody = strBody & "Web site Survey" & vbCRLF
strBody = strBody & "Navigation: " & strnavigation & vbCRLF
strBody = strBody & "Structure: " & strstructure & vbCRLF
strBody = strBody & "Home page: " & strhomepage & vbCRLF
strBody = strBody & "News Links: " & strnews & vbCRLF
strBody = strBody & "Vital Links: " & strvital & vbCRLF
strBody = strBody & "Site Content: " & strcontent & vbCRLF
strBody = strBody & "Internal and external links operative, relevant and up-to-date: " & strintexlinks & vbCRLF
strBody = strBody & "Appropriate use of colour, fonts, and images: " & strcolour & vbCRLF
strBody = strBody & "Sufficient opportunity to provide feedback: " & strfeedback & vbCRLF
strBody = strBody & "Functional on-line application forms: " & strapplicforms & vbCRLF
strBody = strBody & "Helpful program and workshop application procedures/guidelines: " & strguidelines & vbCRLF
strBody = strBody & "Compatible with different browsers: " & strbrowsers & vbCRLF
If strOtherComments <> "" Then
strBody = strBody & "Other Comments: " & vbCRLF & strOtherComments & vbCRLF
End If
'begin: using the CDONTS mail object to accomodate Magma's server component limitations
Set objMail = server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat = 1 'plain text
objMail.MailFormat = 0
objMail.From = strEmail
objMail.To = strRecipientEmail
'set the subject attribute of the Mailer object
objMail.subject = strSubject
'set the body attribute of the Mailer object
objMail.Body = strBody
objMail.Send
'if an error occured while sending the email then...
If err.number <> 0 Then
'set the strFeedBack variable with a message to let the user know that the sending of the email failed
strSysFeedBack = "*** An error occured while sending your information to Vitesse, please try again later. ***"
'if the email was sent successfully then...
Else
'set the strFeedBack variable with a message to let the user know that the sending of the email was a success
strSysFeedBack = "*** Thank you, your information was successfully sent to Vitesse. ***"
End If
Set objMail = nothing
'end: using the CDONTS mail object to accomodate Magma's server component limitations
End If
ON ERROR GOTO 0
%>
<%If strSysFeedBack <> "" Then%><%=("