<%
amarSave "invoice1"
if session("FirstName") = "" then
Response.Redirect "SingIn2.asp"
end if
dim objConn
Dim DBView
dim filTXT(7)
dim sea(3)
pr=server.MapPath("PORdata.mdb")
%>
<%'= pr %>
<%
'pr = "e:\home\nedahosting.com\users\nsuperelectriir\db\data.mdb" 'www
'pr ="D:\Webs\aryares1\afaridegar\afaridegar.com\db\data.mdb"
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")
add = request.querystring("add")
if add<>"" then
session("proN") = session("proN") + 1
end if
%>
<%' =session("proN") %>
<%
if session("proN") > 0 then
pr1=session("proN")
dim invoice1(100)
dim invoiceN(100)
dim SinvoisCom(100)
dim priceS(100)
if add<>"" then
for t= 1 to session("proN")-1
invoice1(t) = session("Sinvoice1")(t)
invoiceN(t) = session("SinvoiceN")(t)
next
else
for t= 1 to session("proN")
invoice1(t) = session("Sinvoice1")(t)
invoiceN(t) = session("SinvoiceN")(t)
next
end if
sw2=0
for m=1 to pr1-1
if invoice1(m)=add then
invoiceN(m)= (invoiceN(m)+1)
session("proN") = session("proN") - 1
pr1=pr1-1
Sw2 =1
end if
next
if sw2=0 then
invoice1(t)= add
invoiceN(t)= 1
end if
end if
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
amarSave "invoice2"
%>
<%
user= session("FirstName") & " " & session("LastName")
%>
welcome:
<% if session("FirstName")<>"" then
%>
<% =user %>
[Edit]
<% else %>
Guest
( Sign In
|
Sign UP)
<% END IF %>
Your cart contain:
Items:
<%if session("proN")="" then session("proN")= 0 %> <% =session("proN") %>
Parts:<%if session("SubTotal")="" then session("Part")= 0 %><% = session("Part") %>
<% if pr1 > 0 then %>
<% Else %>
You don’t have any
items in your shopping cart.
<% End if %>
Get the latest product information, availability and pricing online or via phone 818-709-4312 in business hours
You don’t have any
items in your shopping cart.
<% End if %>
<%
if pr1>0 then
DBView.close
set DBView = Nothing
end if
objConn.close
Set objConn = Nothing
%>