<% ' Dummy shop coupon Sub LocateCoupon (Coupon, rc, msg) dim rs, dbc msg= getlang("LangCouponNotFound") &"
" rc=4 end sub %>