Yeni Etkinlik Ekle

Tarih: Gün <% for asf=1 to 31 %> <% if asf<10 then %> <%=asf%> <%else%> <%=asf%> <%end if next%>  /  Ay 1 2 3 4 5 6 7 8 9 10 11 12  /  Yil <% peggy = year(date) for pedi = peggy to peggy + 50 %> <%=pedi%> <%next%> -- Başlık: Açıklama:

Kayıtlı Etkinlikler

<% set rs = Server.CreateObject("adodb.recordset") rssql = "Select * from Ajanda ORDER BY id" rs.open rssql, bag, 1, 3 If rs.eof or rs.bof then response.Write(" Kayitli etkinlik yok ") response.end end if sayfa = Request.QueryString("sayfa") If sayfa="" Then sayfa=1 rs.pagesize = 999999999 rs.absolutepage = sayfa sayfa_sayisi = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for end if %> › <%=rs("baslik")%> ">Düzenle ">Sil <%rs.movenext Next%>