%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/data.mdb")
haber1=""
haber2=""
haber3=""
sql = "select * from Haber order by Zaman desc"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
i=0
do while not rs.eof
i=i+1
metin = rs("Metin").value
metin = mid(metin,1,175)
if i=1 then
haber1="" & rs("Subj").value & " " & metin & "..."
elseif i=2 then
haber2="" & rs("Subj").value & " " & metin & ""
elseif i=3 then
haber3="" & rs("Subj").value & " " & metin & ""
exit do
end if
rs.movenext
loop
rs.close
set rs=nothing
'sayac için
if not request.Cookies("Sayac")="1" then
sql = "select * from Sayac where ID=1"
set rs = server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs("Toplam").value = rs("Toplam").value+1
rs.update
rs.close
set rs = nothing
response.Cookies("Sayac")="1"
end if
%>