下面的代码有什么错误呢?怎么我调试的时候它老提示 错误的 'Next'?

set rs=server.CreateObject("adodb.recordset") rs.Open "select * from musiclist",conn,2,3

dim a(),b(),c(),r,s

for r=0 to 3

a(r)=trim(request.form("songname"& r))

b(r)=trim(request.form("singer"& r))

c(r)=trim(request.form("special"& r))

if a(r)<>"" and b(r)<>"" and c(r)<>"" then next r

else

response.write ""

end if

for s=0 to 3

rs.addnew

rs("songname")=a(s)

rs("singer")=b(s)

rs("special")=c(s)

rs("adddate")=now()

rs.update

next s

rs.close

set rs=nothing

其中的for循环是属于VBScript还是javaScript?