% if session("FirstName") = "" then Response.Redirect "index14.asp" end if dim priceS(100) TrachingNumber = request.querystring("TrachingNumber") dim invoice1(100) dim invoiceN(100) dim SinvoisCom(100) dim objConn Dim DBView dim filTXT(7) dim sea(3) pr = pathDB & "Invoice.mdb" set objConn = server.CreateObject("ADODB.connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConn.mode = 3 objConn.Open set DBView = Server.CreateObject("ADODB.Recordset") DBView.Open "Select price ,ItemPro, QTY from Products WHERE TrachingNumber = '" & TrachingNumber & "'" , objConn ,3,3 hh4 = DBView.RecordCount DBView.MoveFirst t= 0 While Not DBView.EOF t= t+1 QTY = DBView("QTY")+ Qty invoice1(t) =DBView("ItemPro") invoiceN(t) = DBView("QTY") ' priceS(t) = DBView(5) priceS(t) = DBView("price") DBView.MoveNext wend DBView.close set DBView = Nothing objConn.close Set objConn = Nothing set DBView = Nothing pr = pathDB & "PORdata.mdb" set objConn = server.CreateObject("ADODB.connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConn.Open set DBView = Nothing set DBView = Server.CreateObject("ADODB.Recordset") %> <%' =session("proN") %> <% pr1=hh4 'for t= 1 to pr1 'pr4= pr4+ invoiceN(t) 'next ' session("Part")= Pr4 ' Session("SinvoisCom") = invoice1 ' session("Sinvoice1")= invoice1 ' session("SinvoiceN")= invoiceN ' pr1=session("proN") if pr1 > 0 then if add<>"" then DBView.Open "Select * from tab1 WHERE ItemNumber = '" & add & "'" , objConn ,3,3 pr5=session("SubTotal") session("SubTotal") = pr5 + (DBView("TodyPrice")) DBView.close end if weh = " ItemNumber = ('" + invoice1(1) + "')" if pr1 > 1 then for t = 2 to pr1 weh= weh + " or ItemNumber = ('" + invoice1(t) +"')" next 'weh= "(" + weh + ")" end if %> <%' = weh %> <% DBView.Open "Select * from tab1 WHERE " & weh , objConn ,3,3 'DBView.Open "Select * from tab1 " , objConn ,3,3 ui= DBView.RecordCount 'if ui> 0 then 'DBView.MoveFirst 'While Not DBView.EOF ' total=total+1 ' DBView.MoveNext 'wend %> <%' = Total %> <% 'end if DBView.MoveFirst end if %>
|
|
|
|||||||||||||||||||||||||||||||||||||
<%
DBView.close
set DBView = Nothing
objConn.close
Set objConn = Nothing
%>