<% rs.open "Select * from whats_new", con, 1, 3 while rs.eof = false id = rs("id") judul = rs("judul") teks = rs("teks") if len(teks)>120 then teks=left(teks,120) & "..." end if %> <%response.write(judul)%> <% whats_new_id = id set rsImage = server.createObject("ADODB.Recordset") rsImage.open "Select * from whats_new_image where whats_new_id = '"&whats_new_id&"'", con, 1, 3 baris = 0 while rsImage.eof = false image_file = rsImage("image_file") if baris mod 3 = 0 then response.write " " end if %> <% rsImage.movenext baris=baris+1 wend %> <%response.write(teks)%> [ details ] <% rs.movenext wend %>