Black Hair Search Results

<% language="VBScript"%> <% area = Request.QueryString("area") set mycon=Server.CreateObject("ADODB.Connection") mycon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\fpdb\db1.mdb")) set rs= mycon.execute("select * from salons where area ='"&area&"'ORDER BY name") %> Black Hair Search Results

Searched The Toledo Hair Salon Directory for <%=area%> region

<% i=0 while not rs.eof i=i+1 %> <% rs.movenext wend mycon.close %>

Name	Address	Phone #	E-mail
"> <%=rs("name") %>	<%=rs("address") %> <%=rs("zipcode") %>	<%=rs("phone") %>	<%=rs("email") %>

Total Results : <%=i%>