% 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") %>
|
[ Home
| INTRODUCTION | SEARCH :
(national) (Toledo) | COMBS
GALLERY | HAIR SYMPOSIUM
1997 | BIBLIOGRAPHY | WEBLIOGRAPHY
| DISCUSSION | FEEDBACK
] |
|||||||||
|
|||||||||
Total Results : <%=i%> |
[ Home | INTRODUCTION | SEARCH : (national) (Toledo) | COMBS GALLERY | HAIR SYMPOSIUM 1997 | BIBLIOGRAPHY | WEBLIOGRAPHY | DISCUSSION | FEEDBACK ]