<%@ LANGUAGE="VBSCRIPT"%> <% If Session( "varNotSet" ) = null or Session( "varNotSet" ) = "" then Dim sItemNums(0), nItemQtys(0) sItemNums(0) = "" nItemQtys(0) = 0 Session( "CartProdIDArray" ) = sItemNums Session( "CartProdQtyArray" ) = nItemQtys Session( "varNotSet" ) = 1 End If Function getCatName(id_tmp) strSQL1111 = "Select name from cat Where id = "&id_tmp Set rs1111 = Server.CreateObject( "ADODB.Recordset" ) rs1111.Open strSQL1111, Conn if not rs1111.eof then getCatName = rs1111("name") else getCatName = "-" end if End Function thetype = Request("thetype") seriesID = Request("seriesID") id = Request("id") catID = Request("catID") curpage = Request("curpage") sCartProdIDs = Session( "CartProdIDArray" ) nCartProdIDQtys = Session( "CartProdQtyArray" ) nNumCartProds = UBound( sCartProdIDs ) sMode = Request( "mode" ) Select case sMode Case "Proceed to Submit" sMode = "checkout" Case "Update Quantity" sMode = "recalc" Case "Continue Browsing" sMode = "continue" End Select If sMode = "add" then nThisProdIndex = 0 sProdID = Request("id") If nNumCartProds > 0 then For i = 1 to nNumCartProds If ( sCartProdIDs( i ) = sProdID ) then nThisProdIndex = i Exit For End if Next End if If nThisProdIndex = 0 then nThisProdIndex = nNumCartProds + 1 Redim Preserve sCartProdIDs( nThisProdIndex ) Redim Preserve nCartProdIDQtys( nThisProdIndex ) sCartProdIDs( nThisProdIndex ) = sProdID nCartProdIDQtys( nThisProdIndex ) = 1 Else nCartProdIDQtys( nThisProdIndex ) = nCartProdIDQtys( nThisProdIndex ) + 1 End if Session( "cartProdIDArray" ) = sCartProdIDs Session( "cartProdQtyArray" ) = nCartProdIDQtys nNumCartProds = UBound( sCartProdIDs ) End if If sMode = "remove" then n = Cint(request("n")) tempNumCartProds = UBound( sCartProdIDs ) - 1 Dim tempProdIDs() Redim tempProdIDs( tempNumCartProds ) Redim tempProdQtys( tempNumCartProds ) If UBound( sCartProdIDs ) = 1 then tempProdIDs(0) = "" tempProdQtys(0) = 0 Else count = 1 For i = 1 To nNumCartProds If Not i = n then tempProdIDs( count ) = sCartProdIDs( i ) tempProdQtys( count ) = nCartProdIDQtys( i ) count = count + 1 end if Next end if Session( "cartProdIDArray" ) = tempProdIDs Session( "cartProdQtyArray" ) = tempProdQtys nNumCartProds = UBound( tempProdIDs ) sCartProdIDs = Session( "CartProdIDArray" ) nCartProdIDQtys = Session( "CartProdQtyArray" ) End if If sMode = "recalc" or sMode = "checkout" or sMode = "continue" then For i = 1 to nNumCartProds nThisQty = int( Request.Form( "txtItemQty" & i ) ) nCartProdIDQtys( i ) = nThisQty Next Session( "cartProdIDArray" ) = sCartProdIDs Session( "cartProdQtyArray" ) = nCartProdIDQtys End if If sMode = "continue" then if thetype = "1" then Response.Redirect "products_show.asp?curpage="&curpage&"&catID="&catID else Response.Redirect "office_show.asp?curpage="&curpage&"&catID="&catID end if end if If sMode = "checkout" then Subtitle = "RFQ List" Else Subtitle = "View RFQ List" end if %> TA Furniture Industries Sdn. Bhd.- malaysia bedroom furniture, cabinet, living room furniture, office furniture, table furniture, wooden furniture, office system, tacasa, casaliving, casa living, casaqueen, casa queen, casamono, casa mono, casaoffice, casa office
 
   
Home About Us Events Contact Us
 
 
 
 
 
     
 
  Total Products : <%=listCount%>
 
 
     
     
 
 
 
 
 
 
 
  RFQ List
 
 
<%If sMode = "checkout" then%> <%Else%> <%end if%>
<%If nNumCartProds = 0 then%> <%Else If sMode = "checkout" then%> <%else%> <%end if%> <%If sMode = "checkout" then%> <%Else%> <%elseif thetype = "3" then %>    <%else%>    <%end if%> <%End If%> <%end if%>


There are no items in your RFQ list.










Your RFQ list is ready to submit. Please fill in your contact information and click the " Submit " button.
Contact Information :-

( * denotes required field )
Company
Contact Person *
E-mail *
Phone *
Mobile
Fax
Address *
Remarks

RFQ List Summary :-
Your RFQ list currently contains these items:-
<%If Not sMode = "checkout" then%> <%End If%> <% cSubTotal = 0 nNumItems = 0 For i = 1 To nNumCartProds Set rs = Server.CreateObject( "ADODB.Recordset" ) sql = "Select catID, code, id From product Where id = " & sCartProdIDs(i) rs.open sql, conn, 2, 3 %> <%If Not sMode = "checkout" then%> <%End If%> <% Next %>
# Category Product ID 
<%=i%> <%=getCatName(rs("catID"))%> <%=rs("code")%>
  
<%if thetype = "1" then %>   

 
 
 
 
Copyright 2006 © T.A. Furniture Industries Sdn. Bhd. All rights reserved.