ŞİRKETİMİZİN KISACA FAALİYET ALANLARI

Kent ve Bahçe Mobilyaları, Çevre Düzenleme ve Peyzajı önemli bir sektördür. Çocuk Parklarının ve Sektörün vazgeçilmez gereksinimleri Çocuk Oyun Grubu ve elemanlarıdır. Bu ürünlerin üretiminde kesinlikle kalitesizliğe tahammül yoktur. Yarınlarımızı emanet edeceğimiz çocuklarımızın üzerinde oynayarak büyüdükleri bu oyun setleri birinci kalite, sağlam, güvenilir ve çocuk gelişimine uygun ve faydalı olmalıdır. Firmamız bu konularda tavizsiz olmakla beraber, ürünlerinde ve hizmetlerinde en iyiyi Siz Değerli Müşterilerine sunmaktadır.

Faaliyet Alanlarımız ve Üretimlerimiz ;

  • Dış Mekan Aydınlatma Elemanları
  • Krom Aydınlatma Elemanları
  • Kent ve Bahçe Mobilyaları, Çocuk Parkları Çocuk Oyun Grupları
  • Park Tasarımı, Yapısal Peyzaj ve Uygulamaları
  • Polieten Metal Oyun Grupları, Salıncak, Tahtaravalli, Zıp Zıp
  • Banklar, Çöp Sepetleri, Piknik Masaları, Orman Oturakları
  • Gezebo, Pergole
  • Spor ve Fitness Aletleri
<%Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/urun.mdb")%> <% bugun="BUGUN" Set RS=server.createObject("ADODB.Recordset") sor = "select*from sayac " RS.open sor,Bag,1,3 rs.movefirst if rs("tarih") = date then RS.fields("ziyaret") = rs.fields("ziyaret") + 1 saybugun=rs("ziyaret") else rs("tarih")=date rs("ziyaret") = 1 saybugun=1 end if rs.getrows(1) rs("tarih") = date rs("ziyaret") = rs("ziyaret") + 1 saytoplam=rs("ziyaret") RS.update%> <% sure=1 ip=Request.ServerVariables("REMOTE_ADDR") Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM online where ip='"& ip &"'" kset.open sql, bag, 1, 3 ip=Request.ServerVariables("REMOTE_ADDR") 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 > sure then sql = "DELETE FROM online WHERE ip = '"&kset("ip")&"'" Set sil = bag.execute(sql) Set sil = Nothing end if kset.movenext Loop online = kset.RecordCount kset.Close Set kset = Nothing bag.Close Set bag = Nothing%> <%dim num%>
» Aktif Ziyaretçi <%Response.Write "" & online & ""%>  
» Bugün Gelen <%Response.Write "" & saybugun & ""%>  
» Toplam Ziyaretçi <%Response.Write "" & saytoplam & ""%>  
Sizin
» IP'niz: <%Dim temp, ip temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If temp<>"" Then ip = temp Else ip = Request.ServerVariables("REMOTE_ADDR") End If Response.Write ip%>
» Sitemizi ziyaretiniz