<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% If (Request.Form("feedbackflag")="true") Then %>
<%
' CDO Form Mailer Creater
' Sorting functionality
'The header/footer for the email
Const Header = "This is customers feedback email."
Const Footer = "End Message"
' read all the form elements and place them in the variable mail_body
Dim mail_Body
mail_Body = Header & vbCrLf & vbCrLf
mail_Body = mail_Body & "FORM submitted at " & Now() & vbCrLf & vbCrLf
If Request.Form("SortOrder") <> "" Then 'Need to sort output
Dim arrSortOrder
arrSortOrder = Split(Request.Form("SortOrder"),"|")
For each FormElement in arrSortOrder
mail_body = mail_body & FormElement & ": " & Request.Form(FormElement) & vbCrLf
Next
Else 'No sorting required
Dim form_element
For Each FormElement in Request.Form
mail_body = mail_body & FormElement & ": " & Request.Form(FormElement) & vbCrLf
Next
End If
mail_Body = mail_Body & vbCrLf & Footer
'Create the mail object and send the mail
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = "customer@ragzgazoo.com"
objMail.To = "ragzgazoo@aol.com"
objMail.CC = ""
objMail.BCC = ""
objMail.Subject = "Email from web site."
objMail.Body = mail_Body
objMail.Send()
Set objMail = Nothing
'Send them to the page specified if requested
Dim rp_redirect
rp_redirect = "feedbackthankyou.htm"
If (rp_redirect <> "") then
Response.Redirect rp_redirect
End If
%>
<% End If %>
Rag-Z Gazoo Feedback Page