|









|

<%
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
%>
|
|
<%
If Session("boolTag") = true then
Response.Write "Search Results"
Else
Response.Write RS("Category")
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
691 Larchmont Wood Ranch,
California 93065
B1 & C27 License: CA LIC #489139
This site designed &
hosted by:
DIGITAL AQUARIUS, LLC |
|