..Register for Updates Please fill out the form below for monthly updates and specials. <% End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'This routine creates the data entry form Sub GatherData() %> Please note: All fields are required. Your Name: Your Title: Your Company's Name:  Street Address: City, State, Zip: E-mail Address:

Atlanta 4815 Mendel Court Atlanta, GA 30336 Office: 404.693.9700 • Fax: 404.693.9690 Winter Garden 1158 Elboc Way Winter Garden, FL 34787 Office: 407.798.0004 • Fax: 407.798.0014 Pembroke Park 1911 S.W. 31st Ave. Pembroke Park, FL 33009 Office: 954.518.9923 • Fax: 954.518.9926

<% End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'This routine creates the error form Sub Error() %>

 
Please note: All Fields are required.

Your Name:
Your Title:
Your Company's Name:
Street Address:
City,State,Zip:
E-Mail Address:

<% End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'This routine generates output based on the form input that was received. Sub ProcessData() %>
Thank you. Your information has been submitted.
This is the information you submitted:
<%=Request.Form("Name")%>
<%=Request.Form("Title")%>
<%=Request.Form("Company")%>
<%=Request.Form("Address")%>
<%=Request.Form("CityStateZip")%>
<%=Request.Form("Email")%>
<% strName=Request.Form("Name") strAddress=Request.Form("Title") strCity=Request.Form("Company") strState=Request.Form("Address") strZipCode=Request.Form("CityStateZip") strPhone=Request.Form("Email") SQL="INSERT INTO MailingList (Name, Title, Company, Address, CityStateZip, Email) VALUES (" SQL=SQL & "'" & strName & "', " SQL=SQL & "'" & strTitle & "', " SQL=SQL & "'" & strCompany & "', " SQL=SQL & "'" & strAddress & "', " SQL=SQL & "'" & strCityStateZip & "', " SQL=SQL & "'" & strEmail & "'" & ")" Set dcnDB = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("\database\data.mdb") Mdbfolder = Server.MapPath("epofc") dcnDB.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& MdbFilePath & ";DefaultDir=" & Mdbfolder & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5" set myclient=dcnDB.execute(SQL) End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'This runs the main routine Call Main() %>