<%@ Language=VBScript %>
<%
Response.Redirect("sc.asp")
Response.Expires = 0
Dim tBanner
Dim p1Banner
Dim p2Banner
Dim p3Banner
tBanner=GetTopBanner
p1Banner=Get1ProductBanner
p2Banner=Get2ProductBanner
p3Banner=Get3ProductBanner
Dim main_menu
Dim menu_proc
Dim Rds
Dim Rds1
Dim i
Dim i_news
Dim l_section
Dim l_quiz
Dim topten
Session("BackAddress")="shop_cart.asp"
' Menu
main_menu=GetMenu
menu_proc=GetMenuProc
' Login section
l_section=GetLoginFrame
' Quiz section
l_quiz=GetQuiz
Dim csHTML
Dim k
Dim PAbb
Dim PPic
Dim PPri
Dim t
Dim dss
Dim uHTML
csHTML=""
k=0
If Session("UserID")<>"" then
Set Rds = server.CreateObject("ADODB.Recordset")
Set Rds1 = server.CreateObject("ADODB.Recordset")
Rds.Open "SELECT * FROM Disclaimer",Application("conStr")
if Not Rds.EOF then
dss=""
end if
Rds.Close
Rds.Open "SELECT * FROM Members WHERE ID='" & Session("UserID") & "'", Application("conStr")
if Not Rds.EOF Then
uHTML=""
paymethod=""
uHTML=uHTML & "
"
If Left(UCase(Rds.Fields("Country") & ""),3) ="POR" then
paymethod=paymethod & ""
paymethod=paymethod & ""
else
paymethod=paymethod & ""
End if
else
Rds.Close
Set Rds=Nothing
Set Rds1=Nothing
Response.Redirect("error.asp?id=2")
end if
Rds.Close
Rds.Open "SELECT * FROM ShopCarts WHERE UserID='" & Session("UserID") & "'", Application("conStr")
t=0
If Rds.EOF then
butts=""
else
butts=""
butts=butts & ""
end if
Do While Not Rds.EOF
k=k+1
Rds1.Open "SELECT * FROM Products WHERE ID='" & Rds.Fields("ProductID") & "'", Application("conStr")
if not Rds1.EOF then
PAbb=Rds1.Fields("Abbreviation")
PPic=Rds1.Fields("PictureThumbnail")
if now()>Rds1.Fields("PromotionFrom") and now()"
csHTML=csHTML & "
"
Dim dz
dz=""
Rds.Open "SELECT * FROM Delivery ORDER BY dZone", Application("conStr")
kt=0
Do While Not Rds.EOF
dz=dz & ""
Rds.Movenext
Loop
Rds.Close
csHTML=csHTML & "
"
csHTML=csHTML & "
Zona de entrega:
"
csHTML=csHTML & "
Custo: €
"
csHTML=csHTML & "
Total a pagar:
"
csHTML=csHTML & "
€
"
Set Rds=Nothing
Set Rds1=Nothing
else
Response.Redirect("error.asp?id=4")
end if
%>
::::::::::: EmLinha na Internet
<%=menu_proc%>
<%=main_menu%>
Aqui está a sua lista de compras. Se você quer comprar este(s) produto(s) agora clique em FINALIZAR A ENCOMENDA. A sua encomenda será processada em 24horas. Se você quer adicionar mais produtos à sua encomenda, basta continuar, indo para a Página Principal (no menu do canto esquerdo).
