---

CARATULES >> GRUPS
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
 

GRUP

DISC

DV

DR

CDI

CDII

<% 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 grups") escull="1" letraa=Ucase(request.querystring("letraa")) if letraa="" then %>
<%response.write "Escull una lletra" escull="0" end if trobat="0" Do While Not registros.EOF letra=registros.Fields("lletra").Value if letra=letraa then %> <% trobat="1" end if registros.MoveNext Loop if trobat="0" and escull="1" then %>
<%response.write "No hi ha cap grup que comenci per " & letraa end if registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing %>  

<% response.write registros.Fields("grup").Value %>

<%= registros.Fields("disc").Value %>

dv.jpg" target=blank class=lincs><% if registros.Fields("dv").Value<>"" then response.write("X") %>

dr.jpg" target=blank class=lincs><% if registros.Fields("dr").Value<>"" then response.write("X") %>

cd.jpg" target=blank class=lincs><% if registros.Fields("cd1").Value<>"" then response.write("X") %>

cd.jpg" target=blank class=lincs><% if registros.Fields("cd2").Value<>"" then response.write("X") %>