<%
Set rsr = server.CreateObject("ADODB.Recordset")
sql = "Select Top 5 * From haber Where aktif = 'E' And (kategori = 6 OR kategori = 6) Order by ID desc"
rsr.Open sql, conn, 1, 3
if not rsr.eof then
do while not rsr.eof
r = rsr("kategori")
if r = 1 then
kat1 = "Fenerbahçe Haberleri"
elseif r = 2 then
kat1 = "FeDeR Haberleri"
elseif r = 3 then
kat1 = "Röportaj Haberleri"
elseif r = 4 then
kat1 = "Basın Açıklamaları"
elseif r = 5 then
kat1 = "Gündem Haberleri"
elseif r = 6 then
kat1 = "Basından Haberler"
elseif r = 7 then
kat1 = "Vefat ve Başsağlığı"
elseif r = 8 then
kat1 = "Kutlama Mesajları"
elseif r = 9 then
kat1 = "Manşet"
End if
%>
|
<%=rsr("baslik")%> |
 " width="60" height="40" style="margin-right:10px;"> |
|
<% rsr.movenext
Loop %>
<% Else %>
Kayıt bulunamadı.
<% End if %>