<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '// Command Script generated and powered by '// 1ShoppingCart.com(c) 2005 '// http://www.1shoppingcart.com dim merchantID,cmd,dest,baseurl merchantID="60155" cmd=Request("cmd") baseurl="http://www.1shoppingcart.com" dest=baseurl&"/app/default.asp?id="&merchantid if request("productid")<>"" then if cmd="checkout" then dest=baseurl&"/app/javanof.asp?merchantid="&merchantID&"&"&request.querystring else dest=baseurl&"/app/netcart.asp?merchantid="&merchantID&"&"&request.querystring end if elseif cmd<>"" then select case cmd case "cart" dest=baseurl&"/app/netcart.asp?merchantid="&merchantid case "checkout" dest=baseurl&"/app/javanof.asp?merchantid="&merchantid case "login" dest=baseurl&"/app/aflogin.asp?merchantid="&merchantid case "signup" dest=baseurl&"/app/afsignup.asp?merchantid="&merchantid case "cancel" dest=baseurl&"/app/removesave.asp?merchantid="&merchantid&"&clientid="&request("id")&"&removear=Yes" case "update" 'change dest=baseurl&"/app/r.asp?merchantid="&merchantid&"&id="&request("id")&"&c=1" case else 'home dest="www.healthywealthynwise.com" end select else if request("af")<>"" then 'aftrack dest=baseurl&"/app/aftrack.asp?afid="&request("af")&"&u="&request("u") elseif request("ad")<>"" then 'adtrack dest=baseurl&"/app/adtrack.asp?adid="&request("ad") elseif request("imp")<>"" then 'Track Impressions dest=baseurl&"/app/?imp="&request("imp") elseif request("clk")<>"" then 'Track Clicks dest=baseurl&"/app/?clk="&request("clk") elseif request("email1")<>"" then 'contact dest=baseurl&"/app/contactsave.asp?merchantid="&merchantid if request.querystring<>"" then dest=dest & "&" & request.querystring if request.form<>"" then dest=dest & "&" & request.form end if end if response.redirect(dest) response.end() %>