Ayuudaaaaaaaa

[miruba]

Ahí va eso. Echale un vistazo por favor:
<%

Letra=Request.QueryString ("Letra")
Set Base = Server.CreateObject ("ADODB.Connection")
Base.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\database\Mp3.mdb")
SET Obj_RS = Server.CreateObject ("ADODB.Recordset")

SQL="SELECT * FROM Grabaciones WHERE Interprete LIKE '"&Letra&"%'"

Obj_RS.Open SQL, Base, 3, 3

IF Obj_RS.RecordCount <> 0 THEN
DO WHILE NOT Obj_RS.Eof

%>
<table class="tabla" align=center>
<TR>
<TD width=250 align=center valign=top>
<img src="<%=Obj_RS ("portada") %>"WIDTH=125 HEIGTH=125><BR>
<a href="clicks.asp?url=Descarga.asp?Cod_Titulo= <%=Obj_RS ("Cod_Titulo")%>"><B>&l t;%=Obj_RS("Interprete")%><BR>
<%=Obj_RS("Titulo")%><BR>
</TD>
<%
Obj_RS.MoveNext
%>
<TD width=250 align=center valign=top>
<img src="<%=Obj_RS ("portada") %>"WIDTH=125 HEIGTH=125><BR>
<a href="Descarga.asp?Cod_Titulo=<%=Obj_RS ("Cod_Titulo")%>"><B>&l t;%=Obj_RS("Interprete")%><BR>
<%=Obj_RS("Titulo")%><BR>
</TD>
</TR>
<%
Obj_RS.MoveNext
LOOP
%>

</TABLE>
<%
ELSE
%>
No hay registros con la letra <%=" & letra & "%>
<%
END IF

Obj_RS.Close
Base.close
SET Obj_RS=Nothing
SET Base=Nothing
%>
</td>