<%
while not rs.eof
%>
<tr><td width =150> </td>
<%
for j=1 to 3
%>
<td>
<%
sql="select top 1 imgURL from albumlist where albumGroupID="& rs(0) &" order by UploadTime desc"
set rs2=server.CreateObject("adodb.recordset")
rs2.Open sql,conn,3,3
if not isnull(rs2("imgURL")) then
SetForDisplay rs2("imgURL"),"image/jpeg"
response.Clear
response.contentType = Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type") = ""
Session("Bytes") = ""
end if
%>
</td>
<%
rs.movenext
if rs.eof then exit for
next
%>
</tr>
<%
wend
%>