%@ Language=VBScript %>
<%
Option Explicit
' This next set of code executes if all the required text fields have been filled in
' The code below places the form input into an html format
Dim strMsgContents
strMsgContents = "VBS Registration:
Grade: " & Request.Form("Grade") & "
"
strMsgContents = strMsgContents & "Age: " & Request.Form("Age") & "
"
strMsgContents = strMsgContents & "Name: " & Request.Form("Name") & "
"
strMsgContents = strMsgContents & "Address: " & Request.Form("Address") & "
"
strMsgContents = strMsgContents & "City: " & Request.Form("City") & "
"
strMsgContents = strMsgContents & "State: " & Request.Form("State") & "
"
strMsgContents = strMsgContents & "Zip: " & Request.Form("Zip") & "
"
strMsgContents = strMsgContents & "Phone: " & Request.Form("Phone") & "
"
strMsgContents = strMsgContents & "Birthdate: " & Request.Form("Birthdate") & "
"
strMsgContents = strMsgContents & "ARBC Member? " & Request.Form("Member") & "
"
strMsgContents = strMsgContents & "Visitor? " & Request.Form("Visitor") & "
"
strMsgContents = strMsgContents & "Brought by: " & Request.Form("BroughtBy") & "
"
strMsgContents = strMsgContents & "Email: " & Request.Form("email") & "
"
'strMsgContents = strMsgContents & " " & Request.Form("Music") & "
"
'strMsgContents = strMsgContents & " " & Request.Form("Special_needs") & "
"
'strMsgContents = strMsgContents & " " & Request.Form("Recreation") & "
"
'strMsgContents = strMsgContents & " " & Request.Form("Awana") & "
"
'strMsgContents = strMsgContents & " " & Request.Form("update_info") & "
"
'strMsgContents = strMsgContents & " " & Request.Form("add_email") & "
"
'strMsgContents = strMsgContents & "Comments: " & Request.Form("Comments") & "
"
'strMsgContents = strMsgContents & "Organization: " & Request.Form("org") & "
"
'strMsgContents = strMsgContents & "Certifications: " & Request.Form("cert") & "
"
'strMsgContents = strMsgContents & "Other Changes: " & Request.Form("otherchange") & "
"
'strMsgContents = strMsgContents & "Comments: " & Request.Form("comments") & "
"
'Response.write strMsgContents
' This code creates an email object, specifies recipients and formats the document
Dim mailObject
Set mailObject = Server.CreateObject("CDONTS.NewMail")
mailObject.From = Request.Form("email")
mailObject.To = ""
mailObject.Cc = "whisenant@comcast.net"
mailObject.Subject = "Lost or Found Pet"
mailObject.BodyFormat = 0
mailObject.MailFormat = 0
mailObject.Importance = 2
mailObject.Body = strMsgContents
mailObject.Send
Set mailObject = Nothing
' The html code below is what the user sees when this page displays
%>
| |||||||
|
|
| ||||||
|
Copyright © 2008 The Owners Association of Murphy Farms, Inc.
Last Updated 1/16/08 |