<% 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 %>

 

 

 


                                                

Tracking Number: <%= TrachingNumber %>

This cart is contain:

Items: <% =hh4 %>     Parts:<% = QTY %>   

 
<% if pr1 > 0 then %>
<% While Not DBView.EOF Pr2=pr2+1 %> <% DBView.MoveNext Wend Session("SinvoisCom")=SinvoisCom 'session("priceS")= priceS %> <% DBView.close set DBView = Nothing objConn.close Set objConn = Nothing pr = pathDB & "Invoice.mdb" set objConn = server.CreateObject("ADODB.connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConn.Open set DBView = Server.CreateObject("ADODB.Recordset") DBView.Open "Select * from Shopping WHERE TrackingNumber = '" & TrachingNumber & "'" , objConn ,3,3 hh4 = DBView.RecordCount DBView.MoveFirst Code = session("Code") if DBView("Peyercode") <> Code or Code = "" then ' Response.Redirect "index14.asp" end if %>
<%= na2%>

QTY

Price

Subtotal

") fu3= replace(fu2,chr(10),"") fu4= replace(fu3,chr(34),"") na1=(DBView("Name")) na2= replace(na1,chr(34),"") %> onMouseover="tip_it(1,'<%= na2%>','<%= fu4 %> ');" onMouseout="tip_it(0, '', '')">

 

<% pr3 = pr3+ (invoiceN(pr2) * (DBView("TodyPrice"))) ship = ship + (invoiceN(pr2) * 8 ) %>

<% =(DBView("Name"))%> <%SinvoisCom(pr2) = DBView("Name") & " " & DBView("Company")%>

Subtotal :

<% session("SubTotal") = pr3 %>
<% %> <% =tyu13 %>

ZIP Code :

<% = DBView("ShipMethode")%>

Shipping Method & TrackingNumber: 

Tax :

<% = DBView("Tax")%>

<% = DBView("ShipMethode")%> &  <% = DBView("ShipID")%>

Shipping :

$<%= DBView("Shipping")%>

Grand Total :

$<% = DBView("GarndTotal")%>

<% %>

User Code: <% =DBView("Peyercode") %> Items: <% =hh4 %>
Date: <%= DBView("DateTime")%> Parts: <% = QTY%>
Street: <%=DBView("Street") %> City: <%=DBView("City")%>
Street2: <%=DBView("Street2")%> ZipCode: <%=DBView("Zipcode")%>
State: <%=DBView("State")%> Country: <%=DBView("Country")%>
 

    All  Satatus:

<% Dim objConnRMA Dim TabRMA Dim Tabstatus pr = pathDB & "AdminComment.mdb" set objConnRMA= server.CreateObject("ADODB.connection") objConnRMA.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConnRMA.mode = 3 objConnRMA.Open set TabRMA= Server.CreateObject("ADODB.Recordset") TabRMA.open "select * from Tab where TrackingNumber= '" & TrachingNumber& "'" ,objConnRMA ,3 , 3 if Not TabRMA.EOF then TabRMA.movelast hh3= TabRMA.RecordCount +1 T= 0 While Not TabRMA.Bof t=t+1 comment = TabRMA(1) date1 = cdate(TabRMA(2)) All = " " & comment & "" &" on " & date1 %> <% %> <% TabRMA.MovePrevious wend TabRMA.Close set TabRMA= Nothing objConnRMA.close Set objConnRMA= Nothing %>
<% =hh3- t%>. <% = SatMain %> <%= all%>

 

<% Else %> You don’t have any items in your shopping cart.  <% End if %>

 

 



Tell us what you think about this site.
Please Help us to know our Problems or abilities.
      
  Comment:  
Medium
great
excellent
 

Get the latest product information, availability and pricing online or via phone
818-709-4312
in business hours

Copyright © 2007 Company Solutions. All rights reserved. [PanaSystem]  

Design By: M.A.Shamooelian

 

   

 

<% DBView.close set DBView = Nothing objConn.close Set objConn = Nothing %>