<% Sub FotoGaleri_Title IF Page="Foto-Galeri" Then %> Foto Galeri, <%=Title%> <% End IF End Sub Sub FotoGaleri Set RsGaleri = Server.CreateObject("Adodb.Recordset") RsGaleri.Open "SELECT * FROM FotoGaleri Where Onay=True Order By ID Desc", Conn, 1, 1 %>

Foto Galeri

<% Do While Not RsGaleri.Eof OR RsGaleri.Bof IF RsGaleri.Eof OR RsGaleri.Bof Then Exit Do Set RsResim = Server.CreateObject("Adodb.Recordset") RsResim.Open "SELECT * FROM Resimler Where Galeri=True And GaleriID="&RsGaleri("ID"), Conn, 1, 1 %>
<% RsResim.Close Set RsResim = Nothing RsGaleri.MoveNext Loop %>
<% RsGaleri.Close Set RsGaleri = Nothing End Sub %>