ıbrıcak.NET

<%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")%> ıbrıcak.NET

Anasayfa

Radyo

Forum

Ziyaretçi Defteri

İletişim

DUYURULAR

ANASAYFA

Radyomuzu Dinlemek Için Tıklayınız.

ERKAN SOFTWARE
ERKAN ÇENGELCİK

WEB TASARIM VE PROGRAMLAMA
İLETİSİM: son_mohikan01@windowslive.com

SİTEMİZ YENİ BİR BAKIM SÜRECİNE GİRMİŞTİR.
BU SÜREÇ İÇERSİNDE HİZMET VEREMEMEKTEDİR.

ANLAYIŞINIZ İÇİN TEŞEKKÜR EDERİZ.

IBRICAK.NET YÖNETİMİ