---

CARATULES >> RECOPILATORIS
<% Dim conexion, registros, basedatos basedatos = Server.MapPath("caratules.mdb") Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";" Set registros = conexion.Execute("SELECT * FROM recopilatoris") Do While Not registros.EOF %>

DISC	DV	DR	CD I	CD II
<%= registros.Fields("disc").Value %>	dv.jpg" target=blanc class=lincs> <% if registros.Fields("dv").Value<>"" then response.write("X") %>	dr.jpg" target=blanc class=lincs> <% if registros.Fields("dr").Value<>"" then response.write("X") %>	cd.jpg" target=blanc class=lincs> <% if registros.Fields("cd1").Value<>"" then response.write("X") %>	cd.jpg" target=blanc class=lincs> <% if registros.Fields("cd2").Value<>"" then response.write("X") %>
<% registros.MoveNext Loop registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing %>