.: 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

Firmamız Açıkdeniz Ltd Şti, Sakaryada bayiliğini sürdürdüğü Akpet Akaryakıt firmasının ürünlerini Toptan - Perakende satışlarını gerçekleştirmektedir...

Bayisi olduğumuz Akpet,şu anda, dağıtım lisansına sahip 50 şirket arasında Pazar büyüklüğü bakımından 6. sırada, depolama kapasitesi bakımından 3. sırada, depo sayısı bakımından da 2. sırada yer almaktadır.

97 OKTAN KURŞUNSUZ BENZİN

Renksiz,şeffaf bir petrol ürünüdür. Yüksek performanslı bir kurşunşuz benzindir. Oktan sayısı minimum 97’dir. Buji ateşlemeli motorlarda yakıt olarak kullanılır.

KURŞUNSUZ BENZİN

Açık sarı renkte ve parlak bir petrol ürünüdür. Oktan sayısı minimum 95, alevlenme noktası -40 °C olup, buji ateşlemeli motorlarda yakıt olarak kullanılır.

MOTORİN

Rengini üretilen ham petrolden alabilse de genelde renksizdir. Çevreci bir dizel yakıt olarak bilinir. Setan sayısı minumum 46’dır.

KIRSAL MOTORİN

Bilinen adıyla Motorin max. çevreci bir yakıt türüdür.

KALORİFER YAKITI

Koyu renkte olup yarı akışkan bir petrol ürünüdür. Kalorifer yakıtı olarak kullanılmaktadır. Alevlenme noktası minimum 55 °C olup, kükürt değeri max 1,5 (% ağırlıkça), viskozite max 250 (SSU 50 C) dir.

FUEL-OİL

Koyu renkte olup az akışkan bir petrol ürünüdür. Alevlenme noktası minimum 66 °C olup, kükürt değeri max 4.0 (% ağırlıkça), viskozite max 300 (SSF 50 °C) dir.

LPG

Sıvılaştırılmış petrol gazı (LPG), petrolün damıtılması ve parçalanması sırasında elde edilen ve sonradan basınç altında sıvılaştırılan başlıca propan, bütan v.b. gibi hidrokarbonlar veya bunların karışımıdır.

Hizmetlerimiz l

Resim Galerisi l