<%IF Request.Cookies("YuenHing")("YuenHingOrder")<>"" Then%> <% Set rss = Server.CreateObject("ADODB.Recordset") sql = "select * from HTX_Order_Pro where CookieID='"&Request.Cookies("YuenHing")("YuenHingOrder")&"' order by TempID Asc" rss.open sql,conn,1,1 IF not rss.eof Then OrderAmount = 0 %> <% Do while not rss.eof %> <% OrderAmount = OrderAmount + CDbl(UnitPrice)*rss("ProductQuantity") rss.movenext Loop %>

" target="_blank"><%=rss("ProductCode")%> " target="_blank">" width="50" /> " target="_blank"><%=rss("ProductName")%>

<% UnitPrice = 0 IF rss("ProductSpecialPrice")=0 Then UnitPrice = rss("ProductListPrice") %> HK$ <%=FormatNumber(rss("ProductListPrice"),2,-1)%> <% Else UnitPrice = rss("ProductSpecialPrice") %> HK$ <%=FormatNumber(rss("ProductListPrice"),2,-1)%> HK$ <%=FormatNumber(rss("ProductSpecialPrice"),2,-1)%> <%End IF%>

" style="width:30px;ime-mode:disabled;" onkeyup="value=value.replace(/[^\d]/g,'') " onblur="ChangeQuantity('<%=rss("TempID")%>',this.value);"/>

HK$ <%=FormatNumber(CDbl(UnitPrice)*rss("ProductQuantity"),2,-1)%> &action=del">刪除

<%Else%>

您的購物車中沒有商品

<% End IF rss.close Set rss = Nothing %> <%Else%>

您的購物車中沒有商品

<%End IF%>