<% store_ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\WWWRoot\stikkiworks.com\www\retailers2007.mdb;" 'open connection set oConn = Server.CreateObject("ADODB.Connection") oConn.Open store_ConnectionString SET RSStoreData = Server.CreateObject("ADODB.Recordset") RSStoreData.CursorType = adOpenStatic SQLData = "SELECT * FROM retailers2007 WHERE state LIKE '%" & Request.QueryString("state") & "%' Order BY city" SET RSStoreData = oConn.Execute(SQLData) %>
<% IF RSStoreData.BOF AND RSStoreData.EOF THEN Response.write("

We apologize, at this time there are no locations in this state.

If you would like us to contact your local retailer to stock StikkiWorks products, please contact us with their name & address or phone - we will send them our product information right away & we do appreciate your help!") ELSE %> <% Do While Not RSStoreData.EOF %>

<% RSStoreData.MoveNext Loop %> <% END IF %>
<%= RSStoreData.Fields("company") %>
<%= RSStoreData.Fields("city") %>, <%= RSStoreData.Fields("state") %> <%= RSStoreData.Fields("zip") %>, <%= RSStoreData.Fields("address1") %><% IF NOT RSStoreData.Fields("address2") = " " THEN %>, <%= RSStoreData.Fields("address2") %><% END IF %>
<%= RSStoreData.Fields("phone") %>
"><%= RSStoreData.Fields("webaddress") %>

 
<% 'Close connection RSStoreData.Close set RSStoreData = Nothing set oConn = Nothing %>