davidaustria

<%
Dim i
i = 99

Response.write "<B>Lyrics of the song 99 Bottles of Beer</B><BR><BR>"

While i <> 1
        Response.write  i & " bottles of beer on the wall, " & i & " bottles of beer.<BR>"
        Response.write "Take one down and pass it around, " & i-1 & " bottles of beer on the wall."
        Response.write "<BR><BR>"
        i = i-1
wend


Response.write "1 bottle of beer on the wall, 1 bottle of beer.<BR>"
Response.write "Take one down and pass it around, no more bottles of beer on the wall.<BR><BR>"

Response.write "No more bottles of beer on the wall, no more bottles of beer.<BR>"
Response.write "Go to the store and buy some more, 99 bottles of beer on the wall."

%>