|
BU AYIN ÜRÜNÜ |
Haziran Ayı Ürünümüz 30 Haziran 2007 Tarihine Kadar sipariş verildiği takdirde ALARKO
FLAİR FLR9 9000 Btu KLİMA 720.-YTL nakit ödemedir.
Daha Fazla Bilgi
|
|
ÇELTEKS MÜH. HABERLER |
ÇELTEKS Müh Bilgi Deposu ve Paylaşım Formu
Isıtma, Soğutma, havalandırma ve Doğalgaz sistemleri
hakkında bilgi paylaşımı gerekli porgram ve dökümanların projelerin paylaşımı
ile ilgili
Daha Fazla Bilgi
YARALI BİLGİ VE SİTELER
ALARKO KONFORAL BACALI VE HERMETİK SOBALAR
Tıklayınız
ALARKO
Konforal
Doğalgazlı ve LPG'li Soba
Daha Fazla Bilgi
| [an error occurred while processing this directive]
<%
IP = Request.ServerVariables("REMOTE_ADDR")
sene = cint(Request.Querystring("sene"))
ay = Request.Querystring("ay")
If cint(ay) > 12 or len(ay) =0 Then
ay = month(date)
End If
ay = cint(ay)
If len(Request.Querystring("sene")) =0 Then
sene = year(date)
End If
aay = ay
%>
<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open bag_dize
%>
<% site_ad = "www.celteksmuh.com" %>
[an error occurred while processing this directive]
<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open bag_dize
Set darbe = Server.CreateObject("ADODB.Recordset")
darbe_sql = "select * from darbeler "
darbe_sql = darbe_sql & " where gun = " & bugun
darbe_sql = darbe_sql & " and ay = " & buay
darbe_sql = darbe_sql & " and sene = " & busene
darbe.open darbe_sql, bag, 1, 3
If darbe.eof Then
darbe.addnew
darbe("darbeall") = 1
darbe("darbe") = 1
else
darbe("darbeall") = darbe("darbeall") + 1
End If
darbe.update
darbe.Close
Set darbe = Nothing
bag.Close
Set bag = Nothing
%>
<% IF NOT Session(site_ad) = "sayildi" THEN %>
<%
'*** DARBE MOTORU (BU BÖLÜM GÜNLÜK TEKİL DARBE SAYAR)
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open bag_dize
Set darbe = Server.CreateObject("ADODB.Recordset")
darbe_sql = "select * from darbeler "
darbe_sql = darbe_sql & " where gun = " & bugun
darbe_sql = darbe_sql & " and ay = " & buay
darbe_sql = darbe_sql & " and sene = " & busene
darbe.open darbe_sql, bag, 1, 3
'If darbe.eof Then
' darbe.addnew
' darbe("darbe") = 1
' else
darbe("darbe") = darbe("darbe") + 1
' End If
darbe.update
Session(site_ad) = "sayildi"
darbe.Close
Set darbe = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*** "SENİ BİZE KİM GÖNDERDİ?" TESPİT VE KAYIT MOTORU
geri = Request.ServerVariables("HTTP_REFERER")
If len(geri) <> 0 Then
Set gon = Server.CreateObject("ADODB.Recordset")
sql = "select * from gonderenler where url='" & geri &"' "
gon.open sql, bag, 1, 3
If gon.eof Then
gon.addnew
gon("url") = geri
gon("sayi") = 1
ELSE
gon("sayi") = gon("sayi")+1
End If
gon.update
gon.Close
Set gon = Nothing
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*** TARAYICI BİLGİ VE KAYIT MOTORU
tespit_et browser, system
Set brw = Server.CreateObject("ADODB.Recordset")
Set sys = Server.CreateObject("ADODB.Recordset")
brw_sql = "select * from tarayicilar where tarayici = '" & browser &"'"
sys_sql = "select * from sistemler where sistem = '" & system &"'"
brw.open brw_sql, bag, 1, 3
sys.open sys_sql, bag, 1, 3
If brw.eof Then
brw.addnew
brw("tarayici") = browser
brw("sayi") = 1
ELSE
brw("sayi") = brw("sayi")+1
End If
If sys.eof Then
sys.addnew
sys("sistem") = system
sys("sayi") = 1
ELSE
sys("sayi") = sys("sayi")+1
End If
brw.update
sys.update
brw.Close
Set brw = Nothing
sys.Close
Set sys = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*** BAĞLANTI İÇİN KAPANIŞ VE AZAT
bag.Close
Set bag = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<% END IF %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*** TARAYICI VE İŞLETİM SİSTEM TİPİ TESPİT YÖNTEMİ
sub tespit_et (browser,system)
ua = Request.ServerVariables("HTTP_USER_AGENT")
If Instr(ua, "MSIE") Then
If Instr(ua, "MSIE 6.1") Then
Browser = "Microsoft Internet Explorer 6.1"
Elseif Instr(ua, "MSIE 6.") Then
Browser = "Microsoft Internet Explorer 6.x"
Elseif Instr(ua, "MSIE 5.") Then
Browser = "Microsoft Internet Explorer 5.x"
Elseif Instr(ua, "MSIE 4.") Then
Browser = "Microsoft Internet Explorer 4.x"
ElseIf Instr(ua, "MSIE 3.") Then
Browser = "Microsoft Internet Explorer 3.x"
End If
Else
Browser = "Microsoft Internet Explorer ?"
End If
If Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then
If Instr(ua, "Mozilla/8") Then
Browser = "Netscape Navigator 8.x"
Elseif Instr(ua, "Mozilla/7") Then
Browser = "Netscape Navigator 7.x"
Elseif Instr(ua, "Mozilla/6") Then
Browser = "Netscape Navigator 6.x"
Elseif Instr(ua, "Mozilla/5") Then
Browser = "Netscape Navigator 5.x"
Elseif Instr(ua, "Mozilla/4") Then
Browser = "Netscape Navigator 4.x"
Elseif Instr(ua, "Mozilla/3") Then
Browser = "Netscape Navigator 3.x"
Else
Browser = "Netscape Navigator ?"
End If
ElseIf Instr(ua, "Avant") and Instr(ua, "Avant Browser") = 0 Then 'Kendini ie 6.x gibi tanıtıyor.
If Instr(ua, "Avant") Then
Browser = "Avant Browser"
Else
Browser = "Avant Browser ?"
End If
ElseIf Instr(ua, "Lynx") and Instr(ua, "Lynux") = 0 Then
If Instr(ua, "Lynx") Then
Browser = "Lynux Browser"
End If
ElseIf Instr(ua, "w3m") = 0 Then
If Instr(ua, "w3m") Then
Browser = "W3M Browser"
End If
ElseIf Instr(ua, "Opera") = 0 Then 'Kendini ie 6.x gibi tanıtıyor.
If Instr(ua, "Opera") Then
Browser = "Opera Browser"
End If
ElseIf Instr(ua, "") = 0 Then
If Instr(ua, "") Then
Browser = "Tanınmayan Browser"
End If
End If
'''''''''''''''''''''''''' system tanıyalım '''''''''''''''''''''''''''''''''''''''''''''
If Instr(ua, "Windows 95") or Instr(ua, "Win95") Then
System = "Windows 95"
Elseif Instr(ua, "Windows 98") or Instr(ua, "Win98") Then
System = "Windows 98"
Elseif Instr(ua, "NT 4.") or Instr(u, "Win2000") Then
System = "Windows 2000"
Elseif Instr(ua, "NT 5.") or Instr(ua, "XP") Then
System = "Windows XP"
Elseif Instr(ua, "") or Instr(ua, "unknow") Then
System = "Windows ?"
Elseif Instr(ua, "Mac") Then
System = "Mac"
If Instr(ua, "PowerPC") or Instr(ua, "PPC") Then
System = "Mac PPC"
Elseif Instr(ua, "68000") or Instr(ua, "68K") Then
System = "Mac 68K"
Elseif Instr(ua, "") or Instr(ua, "unknow") Then
System = "Machintosh ?"
End If
Elseif Instr(ua, "X11") Then
System = "UNIX"
Else
System = "Tanınmayan"
End If
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'*** İSTENİLDİĞİNDE DIŞARI YANSITILABİLİR DEĞERLERİN ÜRETİMİ
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu)
Set gun_q = Server.CreateObject("ADODB.Recordset")
Set darbeall_q = Server.CreateObject("ADODB.Recordset")
Set ay_q = Server.CreateObject("ADODB.Recordset")
Set sene_q = Server.CreateObject("ADODB.Recordset")
Set top_q = Server.CreateObject("ADODB.Recordset")
Set ort_q = Server.CreateObject("ADODB.Recordset")
set baslama = bag.execute ("select * from darbeler order by gun_id")
gun_sql = "select sum(darbe) as qdarbe from darbeler where gun = " & bugun & " and ay=" & buay& " and sene=" & busene
ay_sql = "select sum(darbe) as qdarbe from darbeler where ay = " & buay & " and sene=" & busene
sene_sql = "select sum(darbe) as qdarbe from darbeler where sene = " & busene
top_sql = "select sum(darbe) as qdarbe from darbeler "
darbeall_sql = "select sum(darbe) as qdarbe from darbeler where darbeall "
ort_sql = "select avg(darbe) as qdarbe from darbeler "
gun_q.open gun_sql, bag, 1, 3
darbeall_q.open gun_sql, bag, 1, 3
ay_q.open ay_sql, bag, 1, 3
sene_q.open sene_sql, bag, 1, 3
top_q.open top_sql, bag, 1, 3
ort_q.open ort_sql, bag, 1, 3
' burada sayfada kullanılabilecek değişkenlere değerleri atanıyor
bugun_kac = gun_q("qdarbe")
bugun_kacall = darbeall_q("qdarbe")
buay_kac = ay_q("qdarbe")
busene_kac = sene_q("qdarbe")
toplam_kac = top_q("qdarbe")
ort_kac = round(ort_q("qdarbe"))
baslama_tarihi = baslama("gun") & " "& aytespit(baslama("ay")) &" " & baslama("sene")
bugun_tarih = day(date) & " " & aytespit(month(date)) & " " & year(date)
gun_q.Close
Set gun_q = Nothing
darbeall_q.Close
Set gunall_q = Nothing
ay_q.Close
Set ay_q = Nothing
sene_q.Close
Set sene_q = Nothing
top_q.Close
Set top_q = Nothing
ort_q.Close
Set ort_q = Nothing
baslama.Close
Set baslama = Nothing
Bag.Close
Set Bag = Nothing
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
Ziyaretçi İstatistiklerimiz
<% call deger(bugun_kac, bugun_kacall, buay_kac, buay_kacall, busene_kac, busene_kacall, toplam_kac, toplam_kacall, ort_kac, ort_kacall, baslama_tarihi) %>
| |
|
Tekil |
Çoğul |
| Bugün |
: |
<%= sifir(bugun_kac) %> |
<%= sifir(bugun_kacall) %> |
| Bu ay |
: |
<%= sifir(buay_kac) %> |
<%= sifir(buay_kacall) %> |
| Bu sene |
: |
<%= sifir(busene_kac) %> |
<%= sifir(busene_kacall) %> |
| Toplam |
: |
<%= toplam_kac %> |
<%= toplam_kacall %> |
| Ortalama |
: |
<%= ort_kac %> |
<%= ort_kacall %> |
<%
sub deger(bugun_kac, bugun_kacall, buay_kac, buay_kacall, busene_kac, busene_kacall, toplam_kac, toplam_kacall, ort_kac, ort_kacall, baslama_tarihi)
'*** İSTENİLDİĞİNDE DIŞARI YANSITILABİLİR DEĞERLERİN ÜRETİMİ
Set gun_q = Server.CreateObject("ADODB.Recordset")
Set darbeall_q = Server.CreateObject("ADODB.Recordset")
Set ay_q = Server.CreateObject("ADODB.Recordset")
Set ayall_q = Server.CreateObject("ADODB.Recordset")
Set sene_q = Server.CreateObject("ADODB.Recordset")
Set seneall_q = Server.CreateObject("ADODB.Recordset")
Set top_q = Server.CreateObject("ADODB.Recordset")
Set topall_q = Server.CreateObject("ADODB.Recordset")
Set ort_q = Server.CreateObject("ADODB.Recordset")
Set ortall_q = Server.CreateObject("ADODB.Recordset")
set baslama = bag.execute ("select * from darbeler order by gun_id")
gun_sql = "select sum(darbe) as qdarbe from darbeler where gun = " & bugun & " and ay=" & buay& " and sene=" & busene
ay_sql = "select sum(darbe) as qdarbe from darbeler where ay = " & buay & " and sene=" & busene
ayall_sql = "select sum(darbeall) as qdarbeall from darbeler where ay = " & buay & " and sene=" & busene
sene_sql = "select sum(darbe) as qdarbe from darbeler where sene = " & busene
seneall_sql = "select sum(darbeall) as qdarbeall from darbeler where sene = " & busene
darbeall_sql = "select sum(darbeall) as qdarbeall from darbeler where gun = " & bugun & " and ay=" & buay& " and sene=" & busene
top_sql = "select sum(darbe) as qdarbe from darbeler "
topall_sql = "select sum(darbeall) as qdarbeall from darbeler "
ort_sql = "select avg(darbe) as qdarbe from darbeler "
ortall_sql = "select avg(darbeall) as qdarbeall from darbeler "
If not baslama.eof Then
gun_q.open gun_sql, bag, 1, 3
darbeall_q.open darbeall_sql, bag, 1, 3
ay_q.open ay_sql, bag, 1, 3
ayall_q.open ayall_sql, bag, 1, 3
sene_q.open sene_sql, bag, 1, 3
seneall_q.open seneall_sql, bag, 1, 3
top_q.open top_sql, bag, 1, 3
topall_q.open topall_sql, bag, 1, 3
ort_q.open ort_sql, bag, 1, 3
ortall_q.open ortall_sql, bag, 1, 3
' burada sayfada kullanılabilecek değişkenlere değerler atanıyor
bugun_kac = gun_q("qdarbe")
bugun_kacall = darbeall_q("qdarbeall")
buay_kac = ay_q("qdarbe")
buay_kacall = ayall_q("qdarbeall")
busene_kac = sene_q("qdarbe")
busene_kacall = seneall_q("qdarbeall")
toplam_kac = top_q("qdarbe")
toplam_kacall = topall_q("qdarbeall")
ort_kac = round(ort_q("qdarbe"))
ort_kacall = round(ortall_q("qdarbeall"))
baslama_tarihi = baslama("gun") & " "& aytespit(baslama("ay")) &" " & baslama("sene")
gun_q.Close
darbeall_q.Close
ay_q.Close
ayall_q.Close
sene_q.Close
seneall_q.Close
top_q.Close
topall_q.Close
ort_q.Close
ortall_q.Close
baslama.Close
End If
Set ort_q = Nothing
Set ortall_q = Nothing
Set top_q = Nothing
Set topall_q = Nothing
Set sene_q = Nothing
Set seneall_q = Nothing
Set ayall_q = Nothing
Set ay_q = Nothing
Set gun_q = Nothing
Set darbeall_q = Nothing
Set baslama = Nothing
end sub
%><% function sifir(unsur) %><%
If isnull(unsur) Then
unsur="0"
End If
sifir=unsur
%><% end function %><%
Bag.Close
Set Bag = Nothing
%>
|
|
|
|
Kombiler Hakkında Detaylı bilgi için resimler üzerine
Tıklayınız
Serena-Trendy-Harmony-Minea Bacalı ve Hermetik
Kombiler
Türkiye'de pazar ihtiyacına göre Alarko-Carrier farklı
özelliklerde 5 çeşit kombiyi Türkiye pazarına sürerek
müşteri ihtiyacını karşılmaya yönelik ürün grubunu artırarak
ihtiyaçlar doğrultusunda ürün çeşitlerini geliştirmektedir.
Kombiler Hakkında daha
Fazla Bilgi
|
|
 ATAG
Yoğuşmalı
KOMBİ/Kazanların son modelleri TÜRKİYE'de
Alarko
Carrier 2002 yılında Türkiye'yi Avrupa'nın bu önde gelen
markası ile tanıştırdı. Geçen dört yıl süresince ATAG,
Türkiye'deki ısıtma pazarında kullanıcılardan ilgi gördü.
Alarko Carrier, ATAG'la tanışmanın beşinci yılına girerken,
ürün yelpazesini genişleterek tüm Türkiye'ye YENİ NESİL ATAG
ürünlerini ve ATAG E serisi ile ekonomik bir model de
sunuyor
PANEL VE
HAVLUPAN RADYATÖRLER
 Daha Fazla Bilgi
|
Carrier-Toshiba-General-Flair Split Klimalar için resmin
üzerine Tıklayınız
Klima pazarındaki rekabet koşulları göz önünde
bulundurularak Alarko-Carrier ürün çeşitliliğini
kalitesinden ödün vermeden Bireysel klima pazarındaki ürün
grupları teknik dökümanlarla ilgili bilgileri bulabilrisiniz
Daha Fazla Bilgi
|
|
|
