<%
set haber=server.createobject("adodb.recordset")
sorgu="select * from anketler where goster=True"
haber.open sorgu, bag, 1, 3
if not haber.eof then
%>
<%=haber("anket_adi")%>
<%
'if session("ziyaret")<>"ok" then
set haber=server.createobject("adodb.recordset")
sorgu="select * from ziyaretci"
haber.open sorgu, bag, 1, 3
haber("toplam_ziyaretci")=haber("toplam_ziyaretci")+1
if haber("bugun_tarihi")<>date() then
haber("bugun_tarihi")=date()
haber("bugunki_ziyaretci")=1
else
haber("bugunki_ziyaretci")=haber("bugunki_ziyaretci")+1
end if
haber.update
'session("ziyaret")="ok"
'end if
set haber=server.createobject("adodb.recordset")
sorgu="select * from ziyaretci"
haber.open sorgu, bag, 1, 3
%>
