|
<%
rs.open "Select * from whats_new", con, 1, 3
while rs.eof = false
id = rs("id")
judul = rs("judul")
teks = rs("teks")
%>
<%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)%>
<%
rs.movenext
wend
%>
| 
