%Response.Buffer = True%>
Papyrus Marketing Enquiry Form
<%
' v01a KDM 09/10/00 - Revised form on behalf of Papyrus Marketing including java form validator
Dim Mail_Message, Recipient, Sender, Subject, obj_mail
Recipient = "neil@papyrusmarketing.co.uk"
Sender = "website@papyrusmarketing.co.uk"
Subject = "Papyrus Website Enquiry Received"
%>
<%
If Request("FORM_ACTION") ="POST" Then
' User has filled out the form, so create an E-Mail and send
Mail_Message = "NAME: " & Request("name") & chr(13)
Mail_Message = Mail_Message & "COMPANY: " & Request("company") & chr(13)
Mail_Message = Mail_Message & "BUSINESS: " & Request("business") & chr(13)
Mail_Message = Mail_Message & "TELEPHONE: " & Request("telephone") & chr(13)
Mail_Message = Mail_Message & "FAX: " & Request("fax") & chr(13)
Mail_Message = Mail_Message & "E-MAIL: " & Request("email") & chr(13)
Mail_Message = Mail_Message & "ENQUIRY: " & Request("enquiry") & chr(13)
' Make into Mail Message and Send...
Set objMail = Server.CreateObject("CDO.Message")
With objMail
.From = Sender
.To = Recipient
.Subject = Subject
.HTMLBody = CStr("" & Mail_Message)
.Send
End With
Set objMail = Nothing
' Re-direct to Acceptance Form
Response.Redirect "thanks.htm"
Else
%>
Papyrus Marketing Online Enquiry Form
<%End If%>