%>
end if
if (page="arsiv")and(arsivtarih="") then
arsivtarih=request.querystring("yil") & "-" & request.querystring("ay") & "-" & request.querystring("gun")
end if
if (page="etkinlik")and(etkinliktarih="") then
etkinliktarih=request.querystring("yil") & "-" & request.querystring("ay") & "-" & request.querystring("gun")
end if
if siteneekle<>"" then page="siteneekle"
if faydalilinkler<>"" then page="faydali"
if videoid<>"" then page="video_detay"
if galeriid<>"" then page="foto_detay"
if videokatid<>"" then page="video_galeri"
if galerikatid<>"" then page="foto_galeri"
if etiket<>"" then page="anahtarliste"
if haberid<>"" then
haberidsp=split(haberid,"-")
haberid=haberidsp(0)
haber.open "select haberid,haberbaslik,haberustbaslik,haberozet,haberresim,habersaat,habertarih,haberanahtar,direktlink from haber where " & checktarih & " and haberid='" & haberid & "'",baglanti,0
baslik=trim(replace(haber("haberbaslik") & " ","''","'"))
ozet=replace(haber("haberozet"),"''","'")
url="http://" & fulldomain & "/haber/" & baslikdegistir(baslik) & "/" & haberid
htarih=formatdatetime(haber("habertarih"),1)
hsaat=formatdatetime(haber("habersaat"),4)
metatarih1=right("00" & month(haber("habertarih")),2) & "/" & right("00" & day(haber("habertarih")),2) & "/" & year(haber("habertarih")) & " " & formatdatetime(haber("habersaat"),4)
metatarih2=year(haber("habertarih")) & right("00" & month(haber("habertarih")),2) & right("00" & day(haber("habertarih")),2)
resim=replace(haber("haberresim"),"''","'")
keywords=haber("haberanahtar")
if keywords="" then
keywords=replace(baslik," ",",")
end if
if haber("direktlink")<>"" then response.redirect(haber("direktlink"))
haber.close
end if
if page="foto_detay" then
haber.open "select * from galeri where galeriid='" & galeriid & "'",baglanti,0
baslik=replace(haber("galeribaslik"),"''","'")
ozet=replace(haber("galeribaslik"),"''","'") & " fotoğrafları."
htarih=formatdatetime(haber("galeritarih"),1)
hsaat=formatdatetime(haber("galeritarih"),4)
resim=replace(haber("galeriresim"),"''","'")
url="http://" & fulldomain & "/galeri/" & baslikdegistir(haber("galeribaslik")) & "/" & galeriid
haber.close
end if
if page="video_detay" then
haber.open "select * from video where videoid='" & videoid & "'",baglanti,0
baslik=replace(haber("videotitle"),"''","'")
ozet=replace(haber("videosummary"),"''","'") & " fotoğrafları."
htarih=formatdatetime(haber("videodate"),1)
hsaat=formatdatetime(haber("videodate"),4)
resim=replace(haber("videoimage"),"''","'")
url="http://" & fulldomain & "/video/" & baslikdegistir(haber("videotitle")) & "/" & videoid
haber.close
end if
if etiket<>"" then
set fana=server.createobject("adodb.recordset")
fana.open "select * from haber where haberanahtar2 like('%#" & etiket & "#%') limit 1",baglanti,,3
ans2=fana("haberanahtar2")
anahtars=split(fana("haberanahtar"),",")
anahtars2=split(right(ans2,len(ans2)-1),"#")
for i=0 to ubound(anahtars)
if anahtars2(i)=etiket then etiket2=anahtars(i)
next
baslik=etiket2 & " haberleri"
ozet=sitename & " sitesinde yer alan " & etiket2 & " haberlerinin tamamı."
url="http://" & fulldomain & "/etiket/" & etiket & "/"
fana.close
set fana=nothing
end if
if page="yazar" then
sql="select * from koseyazisi,yazar where koseyazisiyazar=yazarid and id='"& yaziid & "' order by koseyazisi.id desc limit 1"
haber.open sql,baglanti,adopenforwardonly
baslik=replace(haber("yazarad") & " - " & haber("koseyazisibaslik"),"''","'")
ozet=replace(haber("yazarad") & " adlı yazara ait " & haber("koseyazisibaslik"),"''","'") & " başlıklı köşe yazısı."
resim=trim(replace(haber("yazarresim") & " ","''","'"))
url="http://" & fulldomain & "/yazar/" & baslikdegistir(haber("koseyazisibaslik")) & "/" & yaziid & "/"
haber.close
end if
if katid<>"" then
katid=cint(katid)
kategori.open "select * from kategori where kategoriid=" & katid,baglanti,0
kategoriadi=replace(kategori("kategoriadi"),"''","'")
mtitle=kategori("mtitle")
mdesc=kategori("mdesc")
keywords=kategori("mkeyword")
kategori.close
end if
%>
Meclis TV
Künye
Facebook
Twitter
Günün
Haberleri