<% Sub Haberler_Title IF Page="Bizden-Haberler" Then %> Bizden Haberler, Basında Biz, Duyurular, <%=Title%> <% End IF End Sub Sub Haberler Set RsHaberler = Server.CreateObject("Adodb.Recordset") RsHaberler.Open "SELECT * FROM Haberler Where Onay=True Order By ID Desc", Conn, 1, 1 %>

Bizden Haberler

<% Do While Not RsHaberler.Eof OR RsHaberler.Bof IF RsHaberler.Eof OR RsHaberler.Bof Then Exit Do Set RsResim = Server.CreateObject("Adodb.Recordset") RsResim.Open "SELECT * FROM Resimler Where Haber=True And HaberID=" &RsHaberler("ID")& " Order By ID Desc", Conn, 1, 1 %>

<%=RsHaberler("Baslik")%>

<%=RsHaberler("Icerik")%>

<% RsResim.Close Set RsResim = Nothing RsHaberler.MoveNext Loop %>
<% RsHaberler.Close Set RsHaberler = Nothing End Sub %>