<%
If V.baglanti.State <> 1 Then V.baglanti.Open()
V.komut_metni = "SELECT * FROM ETKINLIKLER WHERE SITEID=14 "
V.komut = New Data.SqlClient.SqlCommand(V.komut_metni, V.baglanti)
V.okuyucu = V.komut.ExecuteReader
While V.okuyucu.Read
%>
<%= Day(CDate(v.okuyucu.Item("TARIH")))%> <%= MYF.MONTHTONAMETR(Month(CDate(V.okuyucu.Item("TARIH"))))%> <%= Year(CDate(V.okuyucu.Item("TARIH")))%>
<%= Left(v.okuyucu.Item("ACIKLAMA"), 50)%> ...
">Etkinliği Oku »
<% End While
V.okuyucu.Close()
v.baglanti.CLOSE()
%>