1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
| <table cellspacing=0 cellpadding=0 width=100%>
<tr bgcolor=#ff33a6 height=18><td class=menu> <img src="images/fleche_blanche.gif"> FRESH TALENTS</td></tr>
<tr height=5><td></td></tr>
<%
Statement = "SELECT * FROM fresh_talents, countries, fresh_cat WHERE (fresh_talents.country = countries.code) AND (fresh.cat = fresh_cat.ID) ORDER BY cat, name"
RS.Open Statement, Conn, 3,3
Do until RS.EOF
If save_cat <> RS("Cat") then
save_cat = RS("Cat")
%>
<tr bgcolor=#1fcafe height=18><td class=menu> <img src="images/fleche_blanche.gif"> <%=UCase(RS("Categorie"))%></td></tr>
<tr height=5><td></td></tr>
<%
End If
%>
<tr><td>
<table width=100% class=cadrefin height=75>
<tr>
<td valign=top>
<div class=grand><b><%=UCase(RS("Name"))%><%If RS("Alias") <> "" then response.write(" aka "&replace(UCase(RS("Alias")),"AKA","aka"))%> <%End if %></b>
<%=(" <img src=images/flags/"&LCase(RS("country"))&".gif>")%></div><br>
<% If RS("STYLE") <> "" then
Statement = "SELECT * FROM style WHERE id IN ("&RS("STYLE")&") ORDER BY Style"
RS2.Open Statement, Conn, 3,3
Do until RS2.EOF
response.write(RS2("STYLE"))
RS2.Movenext
If NOT RS2.EOF then response.write("-")
Loop
RS2.Close
response.write("<br>")
End If
%>
<%=RS(langue)&" "%><br>
</td>
<td valign=top rowspan=2>
<div align=right><%If RS("Picture") <> "" then response.write("<img src=thumb.php?image=fresh_talents/pictures/"&RS("picture")&"&w=75&h=75>")%> <%End if %></div></td>
</tr>
<tr>
<td valign=bottom>
<a href="/<%=langue%>/deejays_detail/<%=RS("Name")%>">
<%If langue = "EN" then%>see details...<%End If%>
<%If langue = "FR" then%>voir les détails...<%End If%>
</a>
</td>
</tr>
</table>
</td></tr>
<tr height=5><td></td></tr>
<%
RS.Movenext
Loop
RS.Close
%>
</table> |
Partager