sintassi do while loop

[jartuf]

ciao,nn capisco cosa nn va in questo codice!

codiceCollaboratore=request.querystring (ID)
		appo2 = split(ripresecod,",")
		for y = 0 to Ubound(appo2)
		Set rs2 = Server.CreateObject("ADODB.RecordSet")
		rs2.Open "SELECT * FROM video" , oConn, adOpenKeyset, adLockOptimistic
		
		do while not rs2.eof				
		varAppoggio = split (rs2("ripresecod"),",")
		for r = 0 to Ubound(varAppoggio)
		if varAppoggio( r ) = codiceCollaboratore then
			varAppoggio2 = varAppoggio2 & rs2("idvideo")
		End if
		
		rs2.movenext
		loop
		
			
			
	
		Response.Write (varAppoggio2)
		rs2.close

errore: Errore di compilazione di Microsoft VBScript (0x800A040E)
'Loop' senza 'Do'
/pannello/ins_video/view_collaboratori.asp, line 169
loop

grazie