<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Use this page to make custom pages for your store ' Product : Shopping Tree Store Frontend ' Version : 3.3 ' Modified : January 2005 ' Copyright: Copyright (C) 2004 Shopping Tree.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@ShoppingTree.com '************************************************************************* Option explicit Response.Buffer = true %> <% dim mySQL, connTemp, rsTemp, rsTemp2, idOrder, idCust, idWishlist call openDB() if loadConfig() = false then call errorDB(LangText("ErrConfig",""),"") end if idOrder = sessionCart() idCust = sessionCust() & "" %> <% call closeDB() sub cartMain() if len(idCust) = 0 then response.redirect "sysMsg.asp?errMsg=" & server.URLEncode(LangText("ErrInvCustIDWishlist","")) else %> This is the wish list <%="wishid = " & idCust %><% end if end sub %>