<% Dim cmd, rs %> Wurkz Property Maintenance

Gallery

<% Set cmd = Server.CreateObject("ADODB.Command") cmd.ActiveConnection = cn cmd.CommandText = "SELECT file_id, caption, arrangement, break_before FROM uploadedfiles_files WHERE folder_ref = 1 ORDER BY arrangement ASC;" cmd.CommandType = 1 Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open cmd, , 1, 1 Set rs.ActiveConnection = Nothing If Not rs.EOF Then Do While Not rs.EOF %>
yes<% Else %>no<% End If %> break_before">
<% rs.MoveNext Loop %>
<% Else %>

New images are coming shortly.

<% End If rs.Close Set rs = Nothing Set cmd = Nothing %>