Tüm site ziyaretçilerine
merhaba. Şu an Halit Armay Lisesinin resmi web sayfasında bulunuyorsunuz. Sitemiz
okulumuzu tanıtmak için açılmış bulunmaktadır. Sitemize içerik bulma konusunda
bize yardım eden H.A.L.imiz dergisinin yapımında ve yayınında emeği geçen herkese
çok teşekkür eder, başarılarının devamını dileriz.
Halit Armay Lisesi çok kaliteli
bir lise olduğu için bu lise ile ilgili bir sürü site bulabilirsiniz (iki tanesini biz
yaptık:)) taklitlerimizden sakının resmi sitemiz burasıdır.
Sitemiz bir okul sitesi olduğu
halde çok eğlenceli içeriğe sahiptir bunlara yanlardaki butonlarımızdan
ulaşabilirsiniz.
Sitemizde tüm bölümler
gerektiğinde güncellenir. Bu sebeble sürekli ziyaret ederseniz yenilikleri görür,
okuldaki gelişmelerden haberdar olursunuz.
Okulumuzla ilgili genel
bilgiler:
Okulumuzda süper lise ve düz
lise olmak üzere iki çeşit eğitim verilmektedir. 3 tane Hazırlık, 13 tane Lise 1, 9
tane Lise 2, 9 tane Lise 3 bulunmaktadır.
Okulumuz adına bir mail adresi
bulundurmuyoruz. Fakat her sayfanın altındaki STS GRUP butonun basarak bizlerle ilgili
bilgilere ulaşabilir ve okul ile ilgili mailinizi bizlere atabilirsiniz. Size en kısa
zamanda en sağlıklı cevabı yollamaya özen gösteririz.
OKUL TEL: 366 18 06
ADRES: Maltepe =>
Küçükyalı => Klavuzçayır.
İnternet üzerinde iyi vakit
geçirmeniz ve eğitimizde başarılı olmanız dileklerimizle....
<%
zamanmiktari=10000000080 ' BURADAN İSTATİKLERİN TUTULACAĞI ZAMANI BELİRLEYEBİLİRSİNİZ (DAKİKA OLARAK)
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbPath
ip=Request.ServerVariables("REMOTE_ADDR")
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online where ip='"& ip &"'"
kset.open sql, bag, 1, 3
If kset.eof Then
kset.addnew
kset("ip")=ip
kset("tarih")=now
else
kset("tarih")=now
end if
kset.update
kset.Close
Set kset = Nothing
Set kset = Server.Createobject("ADODB.Recordset")
sql = "SELECT * FROM online"
kset.open sql, bag, 1, 3
Do While Not kset.eof
zaman=datediff("n",kset("tarih"),now)
if zaman > zamanmiktari then
sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'"
Set sil = bag.execute(sql)
Set sil = Nothing
end if
kset.movenext
Loop
ToplamKayitSayisi = kset.RecordCount
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%> <%
strsplit=split(Request.Servervariables("HTTP_USER_AGENT"),";")
strsplit(1)=replace(strsplit(1),"MSIE","Internet Explorer")
strsplit(2)=replace(strsplit(2),")","")
strsplit(2)=replace(strsplit(2),"NT 5.1","XP")
strsplit(2)=replace(strsplit(2),"NT 5.0","2000")
strsplit(1)=Trim(strsplit(1))
strsplit(2)=Trim(strsplit(2))
%> |
