<% Dim Cn Dim rs dim i set cn=server.createobject("ADODB.Connection") cn.ConnectionString = "driver={SQL Server};;" cn.Open set rs= server.createobject("ADODB.Recordset") rs.ActiveConnection=cn rs.Source="stoGalleryPictListCaptionOnly 22" rs.Open if NOT rs.EOF AND NOT rs.BOF THEN rs.movefirst i=0 %> <% do until rs.eof %> <% rs.movenext i=i+1 loop %>

.jpg" border="0">

<% End If rs.close cn.close SET rsExhibit=Nothing set cn=Nothing %>