Yayın Saat :
 
  Yayın İsmi :
 
 

 


Kayıt Edilen Saatler
16:00 - 18:00 Sil
14:00 - 16:00 Sil
12:00 - 14:00 Sil

 

<% Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("yakis/db/articles.mdb") %> <% Set cy = Server.CreateObject("ADODB.Recordset") sor = "Select * from haber order by id desc" cy.Open sor,Sur,1,3 shf = Request.QueryString("shf") if shf="" then shf=1 end if %>
<% If cy.eof then Response.Write "
Kayıtlı yazı yok...
" Response.End End If %>
<% cy.pagesize = 5 cy.absolutepage = shf sayfa = cy.pagecount for i=1 to cy.pagesize if cy.eof then exit for %> <%cy.movenext%> <% next %>

<%=cy("baslik")%>
<%=cy("haber")%>

 

Sayfa : <% for y=1 to sayfa if shf=y then response.write y else response.write " "&y&"" end if next %>

Bugün 1 ziyaretçi (1 klik) kişi burdaydı!
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol