Slideshow Image 1 Slideshow Image 2 Slideshow Image 3 Slideshow Image 4 Slideshow Image 5 Slideshow Image 6 Slideshow Image 7

News

<% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/bahar01sarah02.mdb") Set rs = Server.CreateObject("ADODB.Recordset") sor = "Select * from wHABER order by tarih desc" rs.Open sor,Sur,1,3 if rs.eof or rs.bof then Response.Write "Kayıtlı haber bulunmamaktadır." end if %> <% for i = 1 to 100 'Bu, yonetici sayfasinda gosterilmesini istediginiz en fazla HABER sayisidir. if rs.eof then exit for %> News Release Date: <%=rs("tarih")%>,
Date of event: <%=rs("etkinlik")%>,
<%=rs("baslik")%>

<%=rs("haber")%>

<% rs.movenext Next rs.close set rs = Nothing %>