.: Açıkdeniz Tesisleri Sakarya :.

<% Set Baglanti = Server.Createobject("ADODB.Connection") Baglanti.Open (Cumle) Set Rs = Server.Createobject("ADODB.Recordset") sql = "select * FROM yurt WHERE Kimlik = " & Request.QueryString("id") Rs.open sql, Baglanti, 1, 3 If Len(rs("yurt_tekil")) > 0 Then Else rs("yurt_tekil") = 0 End If If Len(rs("yurt_cogul")) > 0 Then Else rs("yurt_cogul") = 0 End If rs.update rs.close Set Rs = Server.Createobject("ADODB.Recordset") sql = "select * FROM yurt WHERE Kimlik = " & Request.QueryString("id") Rs.open sql, Baglanti, 1, 3 Set Rs2 = Server.Createobject("ADODB.Recordset") sql = "select * FROM sayac WHERE ip = '" & Request.ServerVariables("REMOTE_ADDR") & "'" Rs2.open sql, Baglanti, 1, 3 If Rs2.Eof or Rs2.Bof Then rs2.addnew rs2("ip") = Request.ServerVariables("REMOTE_ADDR") rs2("visit") = rs("Kimlik") & "." rs2("tarih") = Date rs2.update rs2.close set rs2 = nothing If Not Len(rs("yurt_tekil")) > 0 Then aradegisken_tekil = 0 Else aradegisken_tekil = rs("yurt_tekil") End If If Not Len(rs("yurt_cogul")) > 0 Then aradegisken_cogul = 0 Else aradegisken_cogul = rs("yurt_cogul") End If rs("yurt_tekil") = aradegisken_tekil + 1 rs("yurt_cogul") = aradegisken_cogul + 1 rs.update Else durum = 0 VisitedSites = Rs2("visit") for i = 1 to Len(VisitedSites) abc = Cint(InStr(VisitedSites,".")) - 1 If abc > 0 Then SolvedVisitedSites = Left(VisitedSites,abc) If cint(SolvedVisitedSites) = rs("Kimlik") Then If Not Len(rs("yurt_cogul")) > 0 Then aradegisken_cogul = 0 Else aradegisken_cogul = rs("yurt_cogul") End If rs("yurt_cogul") = aradegisken_cogul + 1 rs.update Exit For End If Else If Not Len(rs("yurt_tekil")) > 0 Then aradegisken_tekil = 0 Else aradegisken_tekil = rs("yurt_tekil") End If If Not Len(rs("yurt_cogul")) > 0 Then aradegisken_cogul = 0 Else aradegisken_cogul = rs("yurt_cogul") End If rs("yurt_tekil") = aradegisken_tekil + 1 rs("yurt_cogul") = aradegisken_cogul + 1 rs.update rs2("visit") = rs2("visit") & rs("Kimlik") & "." rs2.update Exit For End If VisitedSites = Right(VisitedSites, Len(VisitedSites) - InStr(VisitedSites,".")) Next End If Set RsSehir = Server.Createobject("ADODB.Recordset") sql = "select * FROM sehir WHERE Kimlik = " & Rs("yurt_sehir") RsSehir.open sql, Baglanti, 1, 3 Set RsIlce = Server.Createobject("ADODB.Recordset") sql = "select * FROM ilce WHERE Kimlik = " & Rs("yurt_ilce") RsIlce.open sql, Baglanti, 1, 3 %> .: Açıkdeniz Tesisleri Sakarya :.

Hizmetlerimiz l

Resim Galerisi l

Açıkdeniz Tesisleri, Türkiyede ilk TSE belgesine sahip olan otogaz istasyonudur. Ayrıca Bulunduğu Sakarya ilinin de ilk otogaz istasyonudur.

1988 yılında lokanta işletmesi ile başladığımız ticari faaliyetimize, 1991 Yılında Yerli Sermayeye dayalı olarak kurulan Ergaz Gaz Şirketinden bayilik alarak Sakarya Bayisi olarak devam etmiştir...

Firmamız 1994 yılında Lokanta Hizmetleri ve Tüp satışının yanı sıra İnşaat Malzemeleri satışını gerçekleştirmeye başlamıştır.1996 yılına geldiğimizde Açıkdeniz Gıda Petrol Ürünleri olarak bugünkü ünvanını almıştır...

03/03/1998 yılında Sakaryanın ilk Otogaz İstasyonu, Türkiyenin ise ilk TSE belgesine sahip otogaz istasyonu, bunun yanı sıra Otogaz Dönüşüm Sistemleri Montaj Ve Yetkili Servisi olarak ticari hayatına devam etmiştir.

29 Temmuz 1999 tarihinde (17 Ağustos Depreminden 20 Gün Önce) Eskişehir yolu E-25 Karayolu üzerinde,otogaz istasyonumuzun hemen yanına Açıkdeniz Akaryakıt Tesisimizi faaliyete geçirdik. Ve 17 Ağustos 1999 Salı Günü 03.02 Sularında meydana gelen Depremde hasar alan istasyonumuzda faaliyetlerimize tadilat için kısa bir ara verdikten sonra devam ettik.

2000 yılında yurt dışından otogaz istasyonu sistemlerini ithal ederek Türkiye genelinde otogaz istasyonları kurduk...

2002 yılında şirket hedeflerimiz doğrultusunda Erenlerdeki ikinci akaryakıt istasyonumuzu faaliyete geçirerek büyüme hedeflerimiz doğrultusunda ticari hayatımıza devam ettik.

Şu an Eskişehir Yolu Üzeri Toyotasa Hastanesi karşısında bir, Erenlerde bir olmak üzere iki Akaryakıt İstasyonumuzda toptan ve perakende akaryakıt satışı, Ergaz Otogaz Satışı, ev ve iş yerlerine dökme gaz satışı, evlere tüpgaz,kömür ve su servisi hizmetlerini gerçekleştirmekteyiz...

Hizmetlerimiz l

Resim Galerisi l