<% *--- Active FoxPro Pages (AFP) - ProLib Software GmbH, Germany *--- Listing by Jochen Kirstätter *--- (simple version - at http://www.afpages.de/ is an object-oriented version) Local lnCount, lnIndex, lcContent, lcSuffix m.lnCount = 99 For m.lnIndex = m.lnCount To 1 Step -1 If Not m.lnIndex == 1 m.lcSuffix = "s" EndIf m.lcContent = Transform(m.lnIndex) + " bottle" + m.lcSuffix + " of beer" Response.Writ