Count +1

Hvem kan greje den her? Jeg har selvforsøgt uden held. Nedenunder står koden - og nederst det resultat der SKAL fremkomme:

  <%
\'-- forbindelse til databasen
Set RS = server.CreateObject(\"ADODB.connection\")
RS.open ConnString
SQL = \"SELECT * FROM database\"
Set RS = RS.Execute(SQL)

i = 1
y = 0
Response.Write \"<script language=javascript>\"
Response.Write \"f7_droplayer=new Array()\"

do until rs.eof
count = count +1
Response.Write \"f7_droplayer[\" & count & \"]=drop\" & i & \"\"
rs.movenext
loop
Response.Write \"</script>\"

RS.Close
Set RS = Nothing
%>


---------som resultatet SKAL blive ---------

f7_droplayer=new Array()
f7_droplayer[0]=\"drop1\"
f7_droplayer[1]=\"drop2\"
f7_droplayer[2]=\"drop3\"
osv...