<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> INVENT TECH - Laptops
       
Sign up to receive special offers by e-mail
 
 
 
 
Credit Card Accepted
<% set Prs = Server.CreateObject("ADODB.Recordset") Prs.CursorLocation = 3 ' adUseClient If Request.QueryString("Bid") = 1 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=1 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 2 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=2 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 3 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=3 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 4 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=4 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 5 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=5 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 6 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=6 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 7 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=7 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 8 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=8 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 9 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=9 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 10 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=10 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 11 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=11 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 12 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Brand_Id=12 AND p.Category_Id=1 Order By Product_Id ASC", cn elseIf Request.QueryString("Bid") = 0 then Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Category_Id=1 Order By Product_Id ASC", cn mark = "all" else Prs.Open "SELECT Product_Id, Brand_Image, Product_Image, Product_Name, Product_Model, Product_Description, Product_Price, Product_Qty, Product_Warranty, Product_Disable, Product_Condition FROM Products as p, Brand as b WHERE p.Brand_Id=b.Brand_Id AND p.Category_Id=1 Order By Product_Id ASC", cn mark = "all" End if if Prs.bof = false and Prs.eof = false then %>
<% if mark="all" then %> <% else %> <% end if %>  
Product Description Price Cond. Warranty  
<% Prs.PageSize = 5 intPageCount = Prs.PageCount MovePage = Request.QueryString("Go") Select Case MovePage 'case "<<" 'intpage = 1 case "Back" intpage = Trim(Request.QueryString("Pno"))-1 if intpage < 1 then intpage = 1 case "Next" intpage = Trim(Request.QueryString("Pno"))+1 if intpage > intPageCount then intpage = IntPageCount 'Case ">>" 'intpage = intPageCount case else intpage = 1 end select Prs.AbsolutePage = intPage For intRecord = 1 To Prs.PageSize %> <% Prs.MoveNext If Prs.EOF Then Exit For Next Prs.Close set Prs = Nothing %>
 
<%=Prs(3) & " - " & Prs(4) %>
<%=replace(Prs(5),VbCrLf, "
") %>
<%if Prs(6)=0 then%>N/A<%else%>

Rs.

<%=Prs(6)%><%end if%>
<%=Prs(10)%> <%=Prs(8)%>  
Page: <%=Intpage & " of " & intpagecount%>   < Back Next >
<% elseif Prs.bof = true and Prs.eof = true then %>   Requested brand is not available in our stock list, please check another brand.     <% end if %>
 
Powered by IMAX Technologies
© 2005-2006 Invent Tech. All rights reserved