%@ language="VBScript" %>
<%
thisPage = Trim(Request("thisPage"))
if thisPage = "" then thisPage = 1
thisPage = cINT(thisPage)
'if Session("IsReseller") = True then
' PriceLevel = "B"
'else
' PriceLevel = "E"
'end if
Cart = Session("Cart")
Items = Ubound(Cart,2)
GST = 1.1
if (request("Show") > "") OR (request("search") > "") then
set FM =Server.CreateObject("SoftArtisans.FileManager")
ShowType = trim(request("Show"))
SelectedBrand = request("Brands")
SelectedModel = request("Models")
SelectedCode = trim(request("Code"))
RelatedCode = request("RelatedCode")
ProductCategory = request("ProductCategory")
if request("search") > "" then
ShowType = "Search for Product"
SelectedCode = request("search")
end if
'response.write "
SelectedBrand = " & SelectedBrand
'response.write "
SelectedModel = " & SelectedModel
'response.write "
SelectedCode = " & SelectedCode
'response.write "
ShowType = " & ShowType
if ShowType = "1a" then
sql = "SELECT Prices.Query2_CustomListText, Prices.[Gen/Compat] AS Compat, Prices.ItemNumber, Prices.ItemDescription, Prices.ItemName, Prices.[SellingPrice] AS Price "&_
"FROM Prices WHERE (((Prices.Query2_CustomListText)='" & SelectedBrand & "') AND ((Prices.[PriceLevel])='" & Session("PriceLevel") & "')) ORDER BY Prices.[ItemNumber];"
elseif ShowType = "Go" then
sql = "SELECT DISTINCT Compatibility.[ItemNumber] AS ItemNumber, Prices.ItemDescription, Prices.ItemName, Prices.[Gen/Compat] AS Compat, Prices.[SellingPrice] AS Price "&_
"FROM (Machines INNER JOIN Compatibility ON Machines.ID = Compatibility.MachineID) INNER JOIN Prices ON Compatibility.[ItemNumber] = Prices.[ItemNumber] "&_
"WHERE (((Machines.Machine)='" & SelectedModel & "') AND ((Prices.[PriceLevel])='" & Session("PriceLevel") & "'));"
elseif ShowType = "Search for Product" then
'sql = "SELECT Prices.[ItemNumber] AS ItemNumber, Prices.ItemName, Prices.ItemDescription, Prices.[Gen/Compat] AS Compat, Prices.[SellingPrice] AS Price FROM Prices "&_
' "WHERE ((((Prices.[ItemNumber]) Like '%"&SelectedCode&"%') OR ((Prices.[ItemName])) Like '%"&SelectedCode&"%') AND ((Prices.[PriceLevel])='" & Session("PriceLevel") & "'));"
sql = "SELECT DISTINCT Prices.ItemNumber AS ItemNumber, Prices.ItemName, Prices.ItemDescription, Prices.[Gen/Compat] AS Compat, Prices.SellingPrice AS Price "&_
"FROM (Prices INNER JOIN Compatibility ON Prices.ItemID = Compatibility.ItemID) INNER JOIN Machines ON Compatibility.MachineID = Machines.ID "&_
"WHERE ((Prices.ItemNumber Like '%" & SelectedCode & "%') AND (Prices.PriceLevel='" & Session("PriceLevel") & "')) OR ((Prices.PriceLevel='" & Session("PriceLevel") & "') AND ([Prices].[ItemName] Like '%" & SelectedCode & "%')) OR ((Prices.PriceLevel='" & Session("PriceLevel") & "') AND (Machines.Machine Like '%" & SelectedCode & "%'));"
elseif ShowType = "Show Related Machines" then
sql = "SELECT Machines.Machine, Brand.Brand, [Machine Type].[Machine Type] AS MachineType FROM ((Compatibility INNER JOIN Machines ON Compatibility.MachineID = Machines.ID) "&_
"INNER JOIN Brand ON Machines.BrandID = Brand.ID) INNER JOIN [Machine Type] ON Machines.[Machine TypeID] = [Machine Type].ID "&_
"WHERE (((Compatibility.ItemNumber)='" & RelatedCode & "')) ORDER BY Brand.Brand, [Machine Type].[Machine Type];"
elseif ShowType = "Show Related Products" then
inner_sql = "SELECT Machines.Machine FROM Compatibility INNER JOIN Machines ON Compatibility.MachineID = Machines.ID "&_
"WHERE (((Compatibility.[ItemNumber])='" & RelatedModel & "')) ORDER BY Machines.Machine;"
sql = "SELECT DISTINCT Compatibility.[ItemNumber] AS ItemNumber, Prices.ItemDescription, Prices.ItemName, Prices.[Gen/Compat] AS Compat, Prices.[SellingPrice] AS Price "&_
"FROM (Machines INNER JOIN Compatibility ON Machines.ID = Compatibility.MachineID) INNER JOIN Prices ON Compatibility.[ItemNumber] = Prices.[ItemNumber] "&_
"WHERE (((Machines.Machine)IN (" & inner_sql & ")) AND ((Prices.[PriceLevel])='" & Session("PriceLevel") & "'));"
elseif ShowType = "List Products in this Category" then
sql = "SELECT Prices.ItemID, Prices.ItemNumber, Prices.ItemName, Prices.ItemDescription, Prices.SellingPrice AS Price, Prices.[Gen/Compat] AS Compat "&_
"FROM Prices WHERE (((Prices.PriceLevel)='" & Session("PriceLevel") & "') AND ((Prices.Category)='" & ProductCategory & "')) ORDER BY Prices.ItemName;"
end if
'response.write sql
'set rs = project.execute(sql)
set rs = Server.CreateObject("ADODB.Recordset")
with rs
.CursorType = adOpenStatic
.PageSize = 25
.Open sql, Project
'.AbsolutePage = thisPage
end with
if not rs.eof then
rs.AbsolutePage = thisPage
end if
rowCount = 0
end if
%>
<% if ShowType = "1a" then %>
<% response.write request("Brands") & " " & request("Code") & " " & request("RelatedCode") & " " & request("ProductCategory") & " " & request("Search") %> Ink Cartridges - Printer Cartridges- Toner Cartridges - WA Ink Supplies Online Shop
<% else %>
<% response.write request("Brands") & " " & request("Models") & " " & request("Code") & " " & request("RelatedCode") & " " & request("ProductCategory") & " " & request("Search") %> Ink Cartridges - Printer Cartridges- Toner Cartridges - WA Ink Supplies Online Shop
<% end if %>
|
|
|
Existing Customers may login - New and Existing Customers can buy without logging in
|
Find us on
|
|
|
Order Now! Online, or by Phone 1800 985 105 Free Call (Except Mobiles)
|
|