<% 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 = "webmaster@stevejohnsonbuilders.com" MailSubject = "Contact From Website" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("mail.stevejohnsonbuilders.com","25","","sjohnson@stevejohnsonbuilders.com","builders123") 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 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 & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "The following information was filled out on your contact form.

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "First Name: " MailBody = MailBody & cStr(Request.Form("fname")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Last Name: " MailBody = MailBody & cStr(Request.Form("lname")) 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 & "Zip: " MailBody = MailBody & cStr(Request.Form("zip")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Phone: " MailBody = MailBody & cStr(Request.Form("phone")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Email: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comments: " MailBody = MailBody & cStr(Request.Form("textarea")) 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("joie@stevejohnsonbuilders.com") 'Send Mail All Entries if ("thankyou.htm"<>"") then Response.Redirect("thankyou.htm") end if end if %> Steve Johnson Builders of North Florida | Custom Residential Contractors

house plans

About Us | Our Team | Custom Homes | Commercial | Lot Inventory | Remodeling | Awards | Floor Plans | Testimonials | Links

Contact us

Thanks for your interest. How can we help you? Please fill out and submit the form below with your question or request. I will personally make sure that a reply is sent to you promptly. Click on the map, below, for directions to our location.

Steve Johnson, Inc.
2301 Park Avenue, Suite 208
Orange Park, FL 32073
(904)215-1400
(904)264-1435 Fax

Email: joie@stevejohnsonbuilders.com

Business hours: 8 am - 4 pm
(from Monday to Friday)
After hours, please call
(904) 215-1400

What's New

6/19/2006
Steve Johnson Builders, Inc. was awarded the People's Choice Award "Best Of Show" Street of Dreams competition in Eagle Harbor, February 1995

7/19/2006
Steve Johnson Builders, Inc. was featured on the cover of Kitchen & Bath Design News in September 1991.

Our Location

Steve Johnson, Inc.
2301 Park Avenue, Suite 208
Orange Park, FL 32073
(904)264-0708
(904)264-1435 Fax

Please visit BB&T to learn how to get your new home loan.

LaStrada Furniture and Interiors

Copyright 2007 Steve Johnson Builders. All rights reserved Web Site Design & Internet Marketing by Appsoft Development