<% Response.buffer=true %> <% Dim objto objto = "jimbo@92256.net, info@joshuatreechamber.org" Sub FormPage Response.write "" End Sub If len(Request.Form("emailadd")) < 5 AND len(Request.Form("message")) < 10 then Response.write "" FormPage ElseIf len(Request.Form("emailadd")) < 5 then Response.write "" FormPage Elseif len(Request.Form("message")) < 10 then Response.write "" FormPage Else If LCase(Request.Form("box")) = "s3ed" then sendemail Else Response.write "" End If End If %>

" &_ "" &_ "        Email Address:   Required Subject:   Message:   Required   " & Request.Form("message") & "         Type these letters in box before clicking SEND " End Sub Sub sendemail() Dim eBody Dim objMail Dim email Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = Request.Form("emailadd") objMail.To = objto objMail.Subject = "JTCoC-" & Request.Form("esubject") objMail.Body = Request.Form("message") objMail.Send Set objMail = Nothing Response.write "

Your message has been mailed to Joshua Tree Chamber of Commerce.

Email Address Required

Message Required

Go Back - Security Word Required