" class="attachment-300x160" alt="pic-102">
<%= Left(v.okuyucu.Item("ACIKLAMA"), 50)%> ...
">Habere Git »Haberler
<%
If v.baglanti.STATE <> 1 Then v.baglanti.OPEN()
'v.komut_metni = "SELECT H.*,(select RESIM FROM V_HABERLER WHERE HABERID=H.ID) RESIM,(select AD FROM KULLANICILAR WHERE ID=H.YAZAR) AD FROM MOD_HABERLER H "
V.komut_metni="SELECT TOP 4 * FROM HABERLER WHERE SITEID=14 Order by ID DESC"
v.komut = New Data.SqlClient.SqlCommand(v.komut_metni, v.baglanti)
v.okuyucu = v.komut.ExecuteReader
Dim SAYAC = 1
While V.okuyucu.Read()
%>
<% end While
v.okuyucu.Close()
v.baglanti.CLOSE()
%>
