<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% 'Product list Update public ProductList if request("order")="Product Update" then Session("ProductList")="" end if ProductList = Session("ProductList") Sub PutToShopBag(Prodid, ProductList) If Len(ProductList) = 0 Then ProductList = Trim(Prodid) ElseIf InStr( ProductList, Prodid ) <= 0 Then ProductList = ProductList&","&Trim(Prodid) End If End Sub ' Access to ID Products Product_Id = Trim(Request("Product_Id")) if instr(Product_Id,",")>0 then idArr=Split(Product_Id, ",") for i = 0 to ubound(idArr) PutToShopBag idArr(I), ProductList next else PutToShopBag Product_Id, ProductList end if Session("ProductList") = ProductList '判断购物车是否为空 Dim sqlprice,rs_price if Productlist<>"" then sqlprice="select * from [Product] where ID in ("&ProductList&") order by Paix" Set rs_price=Server.CreateObject("ADODB.Recordset") rs_price.open sqlprice,conn,1,3 else response.redirect "../Products.html" response.end end if %> <% Call ShowSite(1,"en")%>

You are here : Home » Order Online

Home » Products » <%=CategoryName%>

<% While Not rs_price.EOF %> <% rs_price.MoveNext Wend rs_price.close set rs_price=nothing %>
  Products you have selected as follows:
Select Product name
" Checked>
<%=rs_price("Title")%>
 
Subject:
*Name:
(Contact Person)
*Business Email:
Company Name:
*Business Phone:
Business Fax:
Message:
Know Us From