<%@ 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 %> Owners Association of Murphy Farms, Murphy, TX

 

The Owners Association of Murphy Farms, Inc.
Murphy, Texas
75094

Home
HOA News

HOA INFO

ACC
Amenity Center/Pool
Board of Directors
Email Groups
HOA Documents

CLUBS
Crime Watch
Ladies Group
Mom's Club

SOCIAL EVENTS
Calendar of Events
Neighborhood Events

LINKS

City of Murphy
CAI
Murphy Messenger
The Murphy Monitor
NMI

CLASSIFIEDS
Items for Sale or Free
Services Offered by Residents
Company/Contractor Referrals
Lost or Found Pets
Landscape Tip of the Month

 

 

 

 

 

Email Groups

These are the group emails that can be used to email all homeowners, ladies group, or the Board:
 


 

 

 

 

 

 

 

 

Copyright © 2008 The Owners Association of Murphy Farms, Inc. Last Updated 1/16/08
Email the Webmaster at webmaster@murphyfarms.org  with questions or comments about this site.