David Firmstone : www.davidfirmstone.com

<%@LANGUAGE="VBSCRIPT"%> <% ' WA eCart Update if (cStr(Request.Form("Firmstone_Update")) <> "" OR cStr(Request.Form("Firmstone_Update.x")) <> "") then set Firmstone = WA_eCart_UpdateCart(Firmstone) Redirect_redirStr=""'_redirStr if (Redirect_redirStr <> "") then if (cStr(Request.QueryString()) <> "") then if (InStr(Redirect_redirStr, "?") <= 0) then Redirect_redirStr = Redirect_redirStr & "?" & Request.QueryString() else Redirect_redirStr = Redirect_redirStr & "&" & Request.QueryString() end if end if Firmstone_redirStr = Redirect_redirStr end if Firmstone_cartAction = "Update" end if %> <% ' WA eCart Continue Shopping if (cStr(Request.Form("Firmstone_Continue")) <> "" OR cStr(Request.Form("Firmstone_Continue.x")) <> "") then Redirect_redirStr="gallery.html"'_redirStr if (Redirect_redirStr <> "") then if (cStr(Request.QueryString()) <> "") then if (InStr(Redirect_redirStr, "?") <= 0) then Redirect_redirStr = Redirect_redirStr & "?" & Request.QueryString() else Redirect_redirStr = Redirect_redirStr & "&" & Request.QueryString() end if end if Firmstone_redirStr = Redirect_redirStr end if Firmstone_cartAction = "Continue" end if %> <% 'WA eCart Check Out Update if (cStr(Request.Form("Firmstone_Checkout")) <> "" OR cStr(Request.Form("Firmstone_Checkout.x")) <> "") then set Firmstone = WA_eCart_UpdateCart(Firmstone) Firmstone_cartAction = "CheckOutUpdate" end if %> <% 'WA eCart Redirect Check Out if (cStr(Request.Form("Firmstone_Checkout")) <> "" OR cStr(Request.Form("Firmstone_Checkout.x")) <> "") then Redirect_redirStr="checkout.asp"'_redirStr if (Redirect_redirStr <> "") then if (cStr(Request.QueryString()) <> "") then if (InStr(Redirect_redirStr, "?") <= 0) then Redirect_redirStr = Redirect_redirStr & "?" & Request.QueryString() else Redirect_redirStr = Redirect_redirStr & "&" & Request.QueryString() end if end if Firmstone_redirStr = Redirect_redirStr end if Firmstone_cartAction = "Checkout" end if %> <% ' WA eCart Redirect if (Firmstone_redirStr <> "") then Response.Redirect(Firmstone_redirStr) end if %> David Firmstone : www.davidfirmstone.com

.Home .The Gallery .David's Biography .Purchasing Information .Contact Details .View Shopping Cart

<% 'WA eCart Show If Start if (NOT WA_eCart_IsEmpty(Firmstone)) then %>

"> <% 'WA eCart Looper Start 'ecart="Firmstone" 'looper="1" if (true) then while (NOT WA_eCart_EOF(Firmstone)) %> <% 'WA eCart Looper Middle 'ecart="Firmstone" 'looper="1" set Firmstone = WA_eCart_MoveNext(Firmstone) if (NOT WA_eCart_EOF(Firmstone)) then %> <% 'WA eCart Looper Middle End 'ecart="Firmstone" 'looper="1" end if %> <% 'WA eCart Looper End 'ecart="Firmstone" 'looper="1" set Firmstone = WA_eCart_MoveNext(Firmstone) wend set Firmstone = WA_eCart_MoveFirst(Firmstone) end if %>

David Firmstone.com
Product	Description	Price	Qty	Del	Tot. Price
<%=WA_eCart_DisplayInfo(Firmstone, "Name")%>	<%=WA_eCart_DisplayInfo(Firmstone, "Description")%>	<%=WA_eCart_DisplayMoney(Firmstone, WA_eCart_DisplayInfo(Firmstone, "Price"))%>	">	" name="Firmstone_Delete_<%=Firmstone.DisplayIndex%>">	<%=WA_eCart_DisplayMoney(Firmstone, WA_eCart_DisplayInfo(Firmstone, "TotalPrice"))%>
<%=WA_eCart_DisplayInfo(Firmstone, "Name")%>	<%=WA_eCart_DisplayInfo(Firmstone, "Description")%>	<%=WA_eCart_DisplayMoney(Firmstone, WA_eCart_DisplayInfo(Firmstone, "Price"))%>	">	" name="Firmstone_Delete_<%=Firmstone.DisplayIndex%>">	<%=WA_eCart_DisplayMoney(Firmstone, WA_eCart_DisplayInfo(Firmstone, "TotalPrice"))%>
SubTotal					<%=WA_eCart_DisplayMoney(Firmstone, WA_eCart_TotalColumn(Firmstone, "TotalPrice"))%>
Total (excluding shipping)					<%=WA_eCart_DisplayMoney(Firmstone, WA_eCart_GrandTotal(Firmstone))%>

<% 'WA eCart Show If Middle else %> Your cart is empty.

<% 'WA eCart Show If End end if %>

Contact Details