HOME  |  PROFILE  |  PRODUCTS  |  SERVICES  |  FACILITY  |  CONTRACT Mfg.  |  PACKAGING  |  QUALITY    
P
 
VIEW CART  |  CONDITIONS  |  CONTACT  |  FEEDBACK  |  LINK  |  SITEMAP
      Shopping Cart :      
             
     
* To Delete Product OR Upgrade Product Qty. please click the chekboxes
<% Dim session_id set rs=server.CreateObject ("AdoDb.recordset") session_id=session.SessionID 'Set rsTemp = Server.CreateObject("AdoDb.Recordset") 'rsTemp.Open "Select * From Temp_Cart Where [Session] = '"& session_id &"'",Conn,1,3 ' For i = 1 To Request.Form("iCount") ' If Request.Form("c" & i) <> "" Then ' rsTemp.Filter = "Product_Id = " & Request.Form("c" & i) ' If rsTemp.Recordcount = 0 Then ' rsTemp.AddNew ' rsTemp("Product_Id") = Request.Form("c" & i) ' rsTemp("Qty") = 1 ' rsTemp("Session") = session_id ' rsTemp.Update ' End If ' rsTemp.Filter = "" ' End If ' Next 'rsTemp.Close set rsCart=server.CreateObject ("AdoDb.recordset") rsCart.Open "Select * From [Temp_Cart] as tc, [Product_Master] as pm where pm.Product_Id=tc.Product_Id and [Session]='" & session_id & "'",conn,1,3 intCount=0 If Not rsCart.EOF Then Do While Not rsCart.EOF intCount=intCount+1 %> <% rsCart.MoveNext Loop Else 'If Not rsCart.EOF Then %> <% End If 'If Not rsCart.EOF Then %>
BRAND NAME PACKING UNIT TRADE M.R.P. QTY. Delete
<%=rsCart("Brand_Name")%> <%=rsCart("Packing")%> <%=rsCart("Unit_Pack")%> <%=rsCart("Trade_Price")%> <%=rsCart("M_R_P")%> ">
No Products In Shopping Cart
       

     
     
     
 
 
     
Copyrights Reserved 2007. OBOI LABORATORIES   Designed by : Ambest Media