<%option explicit%>
<!--#include file="shop$db.asp"-->
<!--#include file="shopcoupon.asp"-->
<%
Const CouponContinueURL=""
'*******************************************************
' Version 6.50 a coupon has just been entered 
' Feb 4, 2003
' via hyperlink, form etc, coupon can be set
'*********************************************************
dim coupon, returnurl, rc

'VP-ASP 6.50 - precautionary security fix
coupon=cleanchars(request("coupon"))
returnurl=cleanchars(request("returnurl"))

If getconfig("xallowCoupons")<>"Yes" then
   ShopError getlang("LangCustNotAllowed")
end if
if coupon="" then
     Serror=getlang("LangCouponMissing") 
     PerformReturn
end if
LocateCoupon coupon, rc, serror
if Serror="" then
       SetSess "coupon",coupon
end if    
PerformReturn
'
Sub PerformReturn
if Serror<>"" then
   ShopError sError
end if
If returnurl="" then
   Returnurl=CouponContinueURL
end if
If returnurl="" then
    returnurl=xhome
end if
responseredirect returnurl
end sub
%>