%Response.Buffer = True%>
<%
'-----------------------Adres Çubuğu Verilerinin Aktarımı-------------------------
syf = request.querystring("syf")
bgl = request.querystring("bgl")
dil = request.querystring("dil")
tm = request.querystring("tm")
mn = request.querystring("mn")
ktg = request.querystring("ktg")
altktg = request.querystring("altktg")
id = request.querystring("id")
gstr = request.querystring("gstr")
'-----------------------Server Objeleri-------------------------
ip=Request.ServerVariables("REMOTE_ADDR")
online = Application("NumSession")
tarih = Date()
saat=time()
gun=WeekdayName(Weekday(Date))
tip = Request.ServerVariables("HTTP_USER_AGENT")
if instr(tip,"Mozilla") then
if instr(tip,"MSIE 3.") then
browser = "MS.I.E 3.x"
elseif instr(tip,"MSIE 4.") then
browser = "MS.I.E 4.x"
elseif instr(tip,"MSIE 5.") then
browser = "MS.I.E 5.x"
elseif instr(tip,"MSIE 6.") then
browser = "MS.I.E 6.x"
elseif instr(tip,"MSIE 7.") then
browser = "MS.I.E 7.x"
else
browser = "Explorer"
end if
end if
if instr(tip,"Firefox/0.") then
browser="Firefox"
elseif instr(tip,"Firefox/1.") then
browser="Firefox 1"
elseif instr(tip,"Firefox/2.") then
browser="Firefox 2"
end if
if instr(tip,"Opera 3.") then
browser="Opera 3"
elseif instr(tip,"Opera 4.") then
browser="Opera 4"
elseif instr(tip,"Opera 5.") then
browser="Opera 5"
elseif instr(tipa,"Opera 6.") then
browser="Opera 6"
elseif instr(tip,"Opera 7.") then
browser="Opera 7"
elseif instr(tip,"Opera 8.") then
browser="Opera 8"
elseif instr(tip,"Opera") then
browser="Opera 9"
end if
if instr(tip,"Netscape/3.") then
browser="Netscape 3"
elseif instr(tip,"Netscape/4.") then
browser="Netscape 4"
elseif instr(tip,"Netscape/5.") then
browser="Netscape 5"
elseif instr(tip,"Netscape/6.") then
browser="Netscape 6"
elseif instr(tip,"Netscape/7.") then
browser="Netscape 7"
elseif instr(tip,"Netscape/8.") then
browser="Netscape 8"
elseif instr(tip,"Netscape/9.") then
browser="Netscape 9"
end if
if instr(tip,"Windows 95") or instr(tip,"Win95") then
sistem = "Windows 95"
elseif instr(tip,"Windows 98") or instr(tip,"Win98") then
sistem = "Windows 98"
elseif instr(tip,"Windows 2000") or instr(tip,"Win2000") then
sistem = "Windows 2000"
elseif instr(tip,"NT 5.1") or instr(tip,"XP") then
sistem = "Windows XP"
elseif instr(tip,"NT") or instr(tip,"NT") then
sistem = "Windows NT"
elseif instr(tip,"Mac") then
sistem = "Mac"
elseif instr(tip,"X11") then
sistem = "UNIX"
else
browser = "Firefox"
end if
%>
<%
'-----------------------Access Veri Tabanı Bağlantısı-------------------------
Dim baglanti, ayar, sql
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/data.mdb")
'-----------------------Formlardan Ayar'ın Açılması-------------------------
set ayar = server.createobject("adodb.recordset")
sgl = "select *from Ayar"
ayar.open sgl, baglanti, 1, 3
%>
<%=ayar("background")%>