<%@ Language=VBScript %>
List All Coupons
| Offer ID | Product ID | Software Name |
Commision | Discount | Coupon | Delete |
<%
Dim strHTML
Dim objSearch
Set objSearch = CreateObject("Coupon.cCoupon")
strHTML = objSearch.ListCoupons()
Set objSearch = Nothing
strHTML = Replace(strHTML, ",", "")
strHTML = Replace(strHTML, vbCrLf, " | " +vbCrLf + "| ")
strHTML = " |
| " + strHTML + " |
"
Response.Write strHTML
%>