<% for i=1 to 5 <% set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFolder(Server.MapPath("GALERI/resimler/")) for each fileObj in f.files p_file=fileObj.Name resim="GALERI/resimler/" & p_file ref=p_file aref="bo_gorseller2.asp?r=" & ref%>

" target="_blank"><%=resim%>
" width="100" height="83" border="1">	<%=fullarsiv("konu")%> " target="_blank">Devamı İçin Tıklayın
__________________________________<%=fullarsiv("tarih")%>

<% next %>