<% response.expires = -1 '******************************************************************************************* '***** Program Name : viewcart.asp '***** Module Name : ../code '***** Summary Of The Page : This is the cart page '***** '***** '***** Calling Pages : left.asp,products.asp 1 '***** '***** Prepared By : stanley '***** Modified By : '***** Creation Date : 18/12/00 '***** Modification Date : '***** Version : 4.1 '******************************************************************************************* %> <% 'Do not display shopping cart if this has been called from Order Now on Cart AND no errors (ie ready to go to Order Form) if not (submitcarterrors = "NO" and tighten(request("submitcart"))="YES") then %> link="#<%= LinkColour %>" alink="#<%= ALinkColour %>" vlink="#<%= VLinkColour %>" topmargin="<%= PageTop %>" leftmargin="<%= PageLeft %>" marginwidth="<%= PageLeft %>" marginheight="<%= PageTop %>"> <%= PageAlign %> <%=chr(10)&chr(13)%> <% response.Write(coolmenu) response.Write(chr(10)&chr(13)) response.Write(coolmenu2) response.Write(chr(10)&chr(13)) %> <% if not hideheader = "Y" then response.Write chr(10)&chr(13) 'sees first whether site header needs to be processed processheaderandfooter("header") ' get quadrants from featuredsectors table created by implement changes in back end headertext = fp_getquadrants("headerfooter","header") ' replaces {ifloggedon} tags etc headertext = logonreplace(headertext) ' replaces cart summary information (eg {noitemsincart} headertext = cartsummary(headertext) 'replaces cart buttons headertext = scartbuttonreplacer(headertext,"header") response.Write headertext response.Write chr(10)&chr(13) end if %> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <% if navorientation= 0 then%> <%=chr(10)&chr(13)%> <%end if if marginspace > 0 then %> <%end if%> <% mainwidth = pagewidth - NavWidth - marginspace %> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <% if navorientation= 1 then%> <%=chr(10)&chr(13)%> <%end if%>

" width="<%=MarginSpace%>" height="1">

id="viewcartcontent" name="viewcartcontent"> <%=chr(10)&chr(13)%> <% response.write(" " & chr(10) & chr(13)) 'sees first whether navheader needs to be processed processheaderandfooter("carttop") ' get quadrants from featuredsectors table created by implement changes in back end headertext = fp_getquadrants("headerfooter","carttop") ' replaces {ifloggedon} tags etc headertext = logonreplace(headertext) ' replaces cart summary information (eg {noitemsincart} headertext = cartsummary(headertext) 'replaces cart buttons headertext = scartbuttonreplacer(headertext,"cartheader") response.Write headertext response.Write chr(10)&chr(13) '---------------------MAIN TABLE IN SHOPPING CART DISPLAYED HERE-------------------- %> <% '---------------------ZONES and CLASSES------------------------ %> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <% if cartbuttonshowdisp = 0 then response.write("") response.write("") response.write(" " & ordernowbutt & " " & cancelorderbutt & " " & shopformorebutt & " " & savequotebutt & " " & recoverquotebutt & " " & chr(10)&chr(13)) end if %> <%=chr(10)&chr(13)%> <% 'sees first whether cartbottom needs to be processed processheaderandfooter("cartbottom") ' get quadrants from featuredsectors table created by implement changes in back end headertext = fp_getquadrants("headerfooter","cartbottom") ' replaces {ifloggedon} tags etc headertext = logonreplace(headertext) ' replaces cart summary information (eg {noitemsincart} headertext = cartsummary(headertext) ' replaces cart messages information (eg welcome back message) headertext = cartmessages(headertext) 'replaces cart buttons headertext = scartbuttonreplacer(headertext,"cartbottom") response.Write headertext response.Write chr(10)&chr(13) %>

<% if not hidefooter = "Y" then response.Write chr(10)&chr(13) 'sees first whether site footer needs to be processed processheaderandfooter("footer") ' get quadrants from featuredsectors table created by implement changes in back end headertext = fp_getquadrants("headerfooter","footer") ' replaces {ifloggedon} tags etc headertext = logonreplace(headertext) ' replaces cart summary information (eg {noitemsincart} headertext = cartsummary(headertext) response.Write headertext response.Write chr(10)&chr(13) %> <%end if%> <% end if %>