Código:
<%
Cadena = ""
While Not images.EOF
Cadena = Cadena & "'" & images("imagen")& "',"
images.MoveNext
Wend
Cadena = MID(Cadena, 1, LEN(Cadena)-1)
%>
var Slides = new Array(<%=Cadena%>);
Saludos
PD. Necesitas valida qué hará el programa en caso de que no haya registros en
images.