 EMAIL US! |
<% If Request.Form.Count > 0 Then Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.Open "DBQ=D:\inetpub\wwwroot\waterfallsetc\products\prodx.mdb;Driver={Microsoft Access Driver (*.mdb)};" If Request.Form("cat_submit") = "Go" Then strSQL = "SELECT * FROM Products WHERE Category = '" & Request.Form("Category") & "';" If Request.Form("search_submit") = "Go" Then strSQL = "SELECT * FROM Products WHERE Name LIKE '%" & Request.Form("search") & "%' OR Category LIKE '%" & Request.Form("search") & "%' OR Desc LIKE '%" & Request.Form("search") & "%';" Session("boolTag") = true End If Set RS = DBConn.Execute(strSQL) Set RS2 = DBConn.Execute("SELECT Distinct Category FROM Products;") If RS.EOF Then Session("error") = true Response.Redirect "index.asp" End If %>
<% While Not RS.EOF %> <% RS.MoveNext Wend %> <% Session.Abandon Else Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.Open "DBQ=D:\inetpub\wwwroot\waterfallsetc\products\prodx.mdb;Driver={Microsoft Access Driver (*.mdb)};" Set RS = DBConn.Execute("SELECT Distinct Category FROM Products;") %> <% Session.Abandon End If %> Waterfalls Page | References Available | Photo Album | Email Waterfalls Etc. Copyright ©1997 Waterfalls Etc. Landscaping
& Masonry In Business Since 1977 This site designed &
hosted by: |