<% searchword = Request("searchword") category= Request("category") currentpage="search_products.asp?" titlename="Tapeworld / " & Request("producttype") & " Search Results" %> <% Response.Buffer=true %> <%= titlename %>
<% if request.Cookies("tapeworld")("productcount")<1 then response.Cookies("tapeworld")("productcount")=0 end if 'below gets the new numbers if you choose update quantities if Request("type")="update" then productnumber=1 productcount=Request("productcount") Do While productnumber < productcount + 1 qntyconv="quantity"&productnumber response.Cookies("tapeworld")(qntyconv)=Request(qntyconv) productnumber = productnumber + 1 Loop end if 'end getting new number when updating quantities if Request("type")="delete" then response.Cookies("tapeworld")(Request("value1"))=Request("value1") end if product = Request("product") If IsNull(product) Then product = "" Else product = Trim(product) If Len(product) < 1 Then product = "" End If End If 'this ensures price remains if updated. if product="" then else product=Request("product") price=Request("price") shipping=Request("shipping") quantity=Request("quantity") response.Cookies("tapeworld")("productcount")=Request.Cookies("tapeworld")("productcount")+1 response.Cookies("tapeworld")("productname" & Request.Cookies("tapeworld")("productcount"))=product response.Cookies("tapeworld")("productprice" & Request.Cookies("tapeworld")("productcount"))=price response.Cookies("tapeworld")("quantity" & Request.Cookies("tapeworld")("productcount"))=quantity response.Cookies("tapeworld")("shipping" & Request.Cookies("tapeworld")("productcount"))=shipping 'this ends ensuring price remains if updated. end if productcount=Request.Cookies("tapeworld")("productcount") total=0 productnumber=1 shiptotal=0 %> <% Response.Write("
") Do While productnumber < productcount + 1 productlist=("productname"&productnumber) productpricelist=("productprice"&productnumber) quantitylist=("quantity"&productnumber) shippinglist=("shipping"&productnumber) if isnumeric(lcase(Request.Cookies("tapeworld")(quantitylist))) then quantitylistconv = Request.Cookies("tapeworld")(quantitylist) else quantitylistconv = "0" end if if quantitylistconv <= "0" then quantitylistconv="0" else quantitylistconv=Int(Request.Cookies("tapeworld")(quantitylist)) end if If IsNull(quantitylistconv) Then quantitylistconv = "0" Else quantitylistconv = Trim(quantitylistconv) If Len(quantitylistconv) < 1 Then quantitylistconv = "0" End If End If addedup=Request.Cookies("tapeworld")(productpricelist)*quantitylistconv if Request.Cookies("tapeworld")(shippinglist)="" then Response.Cookies("tapeworld")(shippinglist)=0 end if if quantitylistconv > "0" then Response.write("") shiptotal=shiptotal+(Request.Cookies("tapeworld")(shippinglist)*quantitylistconv) end if productnumber = productnumber + 1 total=total+addedup Loop if productnumber<=1 then Response.Write("") end if Response.Write("") Response.Write("") if request("tax")="forgot" then taxrate=0 taxtotal=total*taxrate response.Cookies("tapeworld")("tax")="" Response.Write("") end if if request("tax")="off" or Request.Cookies("tapeworld")("tax")="no" then taxrate=0 taxtotal=total*taxrate response.Cookies("tapeworld")("tax")="" Response.Write("") end if if request("tax")="yes" or Request.Cookies("tapeworld")("tax")="yes" then taxrate=.06 taxtotal=total*taxrate response.Cookies("tapeworld")("tax")="yes" Response.Write("") end if if request("tax")="" and Request.Cookies("tapeworld")("tax")="" then taxrate=0 taxtotal=total*taxrate response.Cookies("tapeworld")("tax")="" Response.Write("") end if fulltotal = total + shiptotal + (total * taxrate) Response.Write("") Response.Write("
Your Tapeworld Shopping Cart
ProductQnty.Del.Price
" & Request.Cookies("tapeworld")(productlist) & "Remove" & FormatCurrency(addedup,2) & "
Your Cart is Empty
Total for Product" & FormatCurrency(total,2) & "
Shipping Charges (Any size Order Only $9.95)") shiptotal=9.95 Response.write(FormatCurrency(shiptotal,2)) Response.write("
Calculate/add 6% tax if you are shipping to Pennsylvania by clicking here
If shipping to PA click here
Tax: (PA 6%) Click here to remove PA tax" & FormatCurrency(taxtotal,2) & "
If shipping to PA click here
Total" & FormatCurrency(fulltotal,2) & "

") select case BrowserType case "MSIE" Response.Write("
") case else Response.Write("
") End select Response.Write("") 'below fills in the hidden fields of the form productnumber=1 Do While productnumber < productcount + 1 productlist=("productname"&productnumber) productpricelist=("productprice"&productnumber) quantitylist=("quantity"&productnumber) if isnumeric(lcase(Request.Cookies("tapeworld")(quantitylist))) then quantitylistconv = Request.Cookies("tapeworld")(quantitylist) else quantitylistconv = "0" end if if quantitylistconv <= "0" then quantitylistconv="0" else quantitylistconv=Request.Cookies("tapeworld")(quantitylist) end if If IsNull(quantitylistconv) Then quantitylistconv = "0" Else quantitylistconv = Trim(quantitylistconv) If Len(quantitylistconv) < 1 Then quantitylistconv = "0" End If End If if quantitylistconv > "0" then addedup=Request.Cookies("tapeworld")(productpricelist)*Request.Cookies("tapeworld")(quantitylist) Response.write("") Response.write("") Response.write("") end if productnumber = productnumber + 1 Loop Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("

") Response.write "

" %> [an error occurred while processing this directive] [an error occurred while processing this directive] <% 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 %>