<%@ Language=VBScript %> <% Response.Expires = 0 %> <% lnOrdno=SESSION("order") llOrderExist="TRUE" lndtlid=request.querystring("ord_dtl") lcfrom=request.querystring("frompg") lnprodid=request.querystring("prodid") IF UCASE(lcfrom)="ORDER1.ASP" Then lcfrom="Order1.asp?xxaction=REMOVE&prod_id="&lnprodid End If IF isempty(lcfrom) or cint(lndtlid)=0 Then response.redirect "http://www.britt2.com" End If set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\home\britt2\process\wassco.mdb;" If lnordno>0 then strSQLquery="SELECT * FROM ord_mstr WHERE order_id="&lnordno set ro = Server.CreateObject("ADODB.Recordset") ro.Open strSQLQuery, conn If ro("invno")>0 AND ro("cust_id")>0 Then ro.close conn.close set ro = nothing set conn = nothing session("order")=0 session.abandon response.redirect "http://www.britt2.com" End If ro.close SET ro = nothing End if StrSQLCmd="DELETE FROM Ord_dtl WHERE detail_id="&lndtlid SET rd = Server.CreateObject("ADODB.Recordset") rd.open StrSQLCmd, conn, , 3, 1 lntotqty=0 lntotqty=cint(lntotqty) lnyouthqty=0 lnadultqty=0 lnprice=0 lnadultprice=0 lnyouthprice=0 IF NOT isempty(lnordno) AND lnordno<>0 Then strSQLquery="SELECT * FROM ord_dtl WHERE order_id="&lnOrdno&" AND prod_id="&lnprodid set rz = Server.CreateObject("ADODB.Recordset") rz.Open strSQLQuery, conn DO WHILE NOT rz.eof lntotqty=lntotqty+rz("qty") If rz("bandsize")="Adult" Then lnadultqty=lnAdultqty+rz("qty") End If If rz("bandsize")="Youth" Then lnyouthqty=lnyouthqty+rz("qty") End If rz.movenext LOOP rz.close strSQLquery="SELECT * FROM prod_dtl WHERE prod_id="&lnProdId set rd = Server.CreateObject("ADODB.Recordset") rd.Open strSQLQuery, conn DO WHILE NOT rd.EOF 'response.Write "rd.min="&rd("min")&"
" 'response.Write "rd.max="&rd("max")&"
" 'response.Write "lnTotQty="&lntotqty&"
" If cint(lnprodid)<5 Then IF lnTotQty >= 3000 AND lnadultqty >=1000 AND lnyouthqty >=1000 Then IF lnTotQty>=rd("min") AND lnTotQty==rd("min") AND lnAdultQty==rd("min") AND lnYouthQty==rd("min") AND lnTotQty<=rd("max") Then lnPrice=rd("price") End If End if rd.MoveNext LOOP rd.close SET rd = NOTHING strSQLquery="SELECT * FROM ord_dtl WHERE order_id="&lnOrdno&" AND prod_id="&lnprodid rz.Open strSQLQuery, conn, , 3, 1 DO WHILE NOT rz.eof If cint(lnprodid)<5 then If UCASE(rz("bandsize"))="ADULT" Then rz("price")=lnadultprice rz.update End If If UCASE(rz("bandsize"))="YOUTH" Then rz("price")=lnyouthprice rz.update End If Else IF UCASE(rz("text2"))="NONE" or UCASE(rz("text2"))="N/A" Then rz("price")=lnprice rz.update Else rz("price")=lnprice+3 rz.update End If End If rz.movenext LOOP rz.close SET rz = NOTHING End If conn.close SET conn=NOTHING SET rd=NOTHING response.redirect lcfrom %>