<%@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 = "webmaster@appsoftdevelopment.com" MailSubject = "Contact From Website" '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,"jwiddows@appsoftdevelopment.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 Appsoftdevelopment.com
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name: " MailBody = MailBody & cStr(Request.Form("your_name")) 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 & "How did you find our site? " MailBody = MailBody & cStr(Request.Form("through")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Webdesign " MailBody = MailBody & cStr(Request.Form("website-design")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Redesign " MailBody = MailBody & cStr(Request.Form("redesign")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "SEO " MailBody = MailBody & cStr(Request.Form("seo")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "WebMarketing " MailBody = MailBody & cStr(Request.Form("web-market")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "PayPerClick " MailBody = MailBody & cStr(Request.Form("payperclick")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Collateral " MailBody = MailBody & cStr(Request.Form("collateral-idenity")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "AppDevelopment " MailBody = MailBody & cStr(Request.Form("App-Develop")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Billboards " MailBody = MailBody & cStr(Request.Form("billboards")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "VideoProduction " MailBody = MailBody & cStr(Request.Form("Vid-Production")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "ThreeD " MailBody = MailBody & cStr(Request.Form("threeD")) MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comments/Questions: " MailBody = MailBody & cStr(Request.Form("comments")) 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("sales@appsoftdevelopment.com") WA_Universal_Email_1_SendMail("jwiddows@appsoftdevelopment.com") 'Send Mail All Entries if ("thankyou.htm"<>"") then Response.Redirect("thankyou.htm") end if end if %> Contact AppSoft Development 904-241-9777









Contact Us at (904) 241-9777

Appsoft Development
317 4th Ave North
Jacksonville Beach, Florida
904-241-9777

Thank you for your interest in AppSoft’s web design, search engine optimization and web development services.

We always enjoy the opportunity to work with new people with fresh ideas for their websites and marketing. Please take a few moments to fill out our quote form, and feel free to contact us at 904-241-9777 if you have any questions. Also, you can visit our online contact form to submit a request for quote to our sales team.

 

Name
Phone
E-Mail
 
Web Site Design Web Site Redesign
Search Engine Optimization Website Marketing
Pay-Per-Click Managment Identity & Collateral
Web Application Development Billboard Design
Video Production 3-D Rendering Presentions
How did you find our site


Comments/Questions:
 

 

 

 


 More Links:
divider Website Design
divider
Search Engine Optimization
divider
Web Hosting
divider
Home About Us Solutions Services Company News Get A Quote Portfolio Testimonials Career Opportunities
divider

Web Design

Website Design Website Redesign Website Management Website FAQ
divider

Search Engine Optimization

Search Engine Optimization Search Engine Optimization Company Florida Search Engine Optimization Search Engine Optimization Case Studies Search Engine Optimization Testimonials Online Marketing SEO Relationship Chart

divider

3D Renderings & Animations

Architectural 3D Renderings & Animation The Process
from CAD to 3D Our Demo Reel
divider

SEO Resources

SEO BlogsSEO Forums Search Engine Optimization FAQ
divider

Web Hosting

Website HostingHosting FAQ's Hosting Glossary
divider

Help & Support

F.A.Q Resources / Links Contact WebMail Login
divider