<% searchword = Request("searchword") category= Request("category") currentpage="search_products.asp?" titlename="Tapeworld / " & Request("producttype") & " Search Results" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\websites\T\tapeworld\private\tapeworld.mdb;" if Request("producttype")="" and Request("brandname")="" then SQLStmt = "select products.producttype,products.price,products.description,products.brandname,products.id,products.instock " SQLStmt = SQLStmt & "FROM products " SQLStmt = SQLStmt & "ORDER by " & Request("sortby") & " ;" elseif Request("brandname")="" then SQLStmt = "select products.producttype,products.price,products.description,products.brandname,products.id,products.instock " SQLStmt = SQLStmt & "FROM products " SQLStmt = SQLStmt & "WHERE producttype = '" & Request("producttype") & "' " SQLStmt = SQLStmt & "ORDER by " & Request("sortby") & " ;" 'Response.write(sqlstmt) elseif Request("producttype")="" then SQLStmt = "select products.producttype,products.price,products.description,products.brandname,products.id,products.instock " SQLStmt = SQLStmt & "FROM products " SQLStmt = SQLStmt & "WHERE brandname = '" & Request("brandname") & "' " SQLStmt = SQLStmt & "ORDER by price ;" 'Response.write(sqlstmt) else SQLStmt = "select products.producttype,products.price,products.description,products.brandname,products.id,products.instock " SQLStmt = SQLStmt & "FROM products " SQLStmt = SQLStmt & "WHERE producttype = '" & Request("producttype") & "' and brandname = '" & Request("brandname") & "' " SQLStmt = SQLStmt & "ORDER by " & Request("sortby") & " ;" 'Response.write(sqlstmt) end if Set RS = Connection.Execute(SQLStmt) %>


Home || Online Specials || Product Search || Contact Us || Email Tapeworld

Over 500 different blank recording media.


<% If Not RS.EOF then %> <% CurrentRecord = 0 Do While CheckRS(RS) Response.write("") else Response.write("No") end if RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %> <% Else SQLStmt = "select products.* " SQLStmt = SQLStmt & "FROM products " SQLStmt = SQLStmt & "WHERE producttype = '" & Request("producttype") & "' " SQLStmt = SQLStmt & "ORDER by " & Request("sortby") & " ;" Set RS2 = Connection.Execute(SQLStmt) %> <% If Not RS2.EOF then %> <% CurrentRecord = 0 Do While CheckRS(RS2) %> <% RS2.MoveNext CurrentRecord = CurrentRecord + 1 Loop %> <% Else %> <% End If %> <% End If %>
<% Response.write("Your search results for '" & Request("brandname") & " " & Request("producttype") & "'" )%>New Search 
BrandDescriptionPriceStock?Qty.Add
" & RS("description") & "
" & RS("producttype") & "
" & formatcurrency(RS("price"),2) & "") if RS("instock") = "False" then Response.write("Yes") Response.write("
 
.gif" width="45" border="0" alt=""><%= RS2("description") %>
<%= RS2("producttype") %>
<%= formatcurrency(RS2("price"),2) %> <% if RS2("instock") = "False" then Response.write("Yes") else Response.write("No") end if %>
" method="post">">">">">
No Results

You can secure order from this site, or give us a call
M-F 9-5

Our 30th year! Call 1-800-245-6000 for more information!
<% rs.Close Set rs = Nothing Connection.Close set connection = nothing %>