<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "josh.kilborn@thegardenproduce.com" MailSubject = "TheGardenProduce.com Career Page Form" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("mail.appsoftdevelopment.com","25","","jwiddows@appsoftdevelopment.com","tiger99") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries set WA_MailObject = WAUE_AddCC(WA_MailObject,"josh.kilborn@thegardenproduce.com") MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "The following was filled out on CAREERS from TheGardenProduce.com
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "First Name: " MailBody = MailBody & cStr(Request.Form("FirstName")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Last Name: " MailBody = MailBody & cStr(Request.Form("LastName")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Address: " MailBody = MailBody & cStr(Request.Form("Address")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "City " MailBody = MailBody & cStr(Request.Form("City")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "State " MailBody = MailBody & cStr(Request.Form("State")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "PostCode " MailBody = MailBody & cStr(Request.Form("PostCode")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Tel " MailBody = MailBody & cStr(Request.Form("Tel")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Tell us why you'd make a great team member : " MailBody = MailBody & cStr(Request.Form("team")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "Please describe what type of position you are looking for: " MailBody = MailBody & cStr(Request.Form("position")) MailBody = MailBody & "
" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("jon@thegardenproduce.com ") WA_Universal_Email_1_SendMail("matt@thegardenproduce.com ") WA_Universal_Email_1_SendMail("payroll@thegardenproduce.com") 'Send Mail All Entries if ("thankyou.htm"<>"") then Response.Redirect("thankyou.htm") end if end if %> Jacksonville Florida - Garden Produce

Home

About the Garden

Our Produce

Transportation & Delivery

Visit The Garden

Meet the Gardeners

Careers at The Garden

Resources & Links

Order Now

Careers at The Garden

We are always looking for hard working individuals and leaders. Please complete the form below and someone from HR will contact you shortly.