<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'// Command Script generated and powered by
'// 1AutomationWiz(c) 2004
'// http://www.1automationwiz.com

dim merchantID,cmd,dest,baseurl

merchantID="49270"
cmd=Request("cmd")
baseurl="http://www.1automationwiz.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.newhealthdiscoveries.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("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()
%>