Profil: EEmmrraahh | DonanımHaber Forum

E

EEmmrraahh (Emrah Kaya) · Otomobil Yardım ve Sigorta işlemleri altına konu açtı. 9 yıl

Hyundai accent admire dizel çalışmama sorunu

Yanıt Yok

Yanıtla

Favorilere Ekle

0

E

EEmmrraahh (Emrah Kaya) · Trafik ve Biz altına konu açtı. 9 yıl

Araç muayenesi hakkında

3 Yanıt

Yanıtla

Favorilere Ekle

0

E

EEmmrraahh (Emrah Kaya) · Accent / Era altına konu açtı. 12 yıl

Merhaba arkadaşlar, Yakıt konusunda cimri olan 206 hdi aracımı satıp Hyundai Accent Admire (2004) Aldım.

Aracı alırken sıkıntılarının farkındaydım, Bir Enjektörü arızalı kaçırma yapıyor.

Aracı aldığımdan beri 3.000 km yol yaptım. Geç çalışması haricinde bir sıkıntı yaşamıyorum.

Aracımın durumu:

1. Enjektör sorunu yukarda bahsettiğim.
2. Filtreler değişmesi lazım değiştirmedim henüz.
3. Ön amörtisör takımı patlamış dedi usta araba biraz yaylanıyor ama hız yapmadığım ve dikkatli kullandığım için üstüne düşmedim.

yakıt durumu:

100 Km'de Şehir içi 8-9 Lt kadar yakıyorum. Bağcılar tarafında oturduğum için genelde aracı yoğun trafik ve kısa mesafe (2-3 km) aralıklarında kullanıyorum.

Son zamanlarda 20+20 km ler yapmaya başladım ve genelde orta devir sürdüm arabayı (2,5) bu haliyle yakıt durumu 100 km'de 7lt

Sormak istediğim soru şu:

İstanbul - izmir yolculuğu yapmak istiyorum. Aracımın motorundan yana bir sıkıntı hissetmiyorum. Yakıttan yana biraz korkum var. önceki konuları okuduğumda aracının sorunsuz olduğunu söyleyip şehir içi benimle aynı yakanlar ile karşılaştım aynı kişi Araçla şehirler arası 90 km de 1 depoda 1000 km yaptığını söylemiş depo 45 LT

Araca yola çıkmadan önce masraf yapmak istiyorum fakat yolculuk öncesi biraz maddi sıkışıklık olduğu için pek yanaşmıyorum. Yapacağım masrafı yolda yakıta harcarsam daha karlı olurum diye düşünüyorum. İzmir dönüşü elim rahatlayacak o zaman daha kapsamlı bir bakım yaptırabilirim.

Bu konuda kafam çok karışık. Sıkılmadan okuyan arkadaşlara teşekkür eder değerli yorumlarınızı beklerim.

Not: Konuyu markalar ve modelleri kategorisine yanlışlıkla açmıştım fakat fazla vaktim olmadığı için düzeltilmesini beklemeden buraya da açmak istiyorum. yetkililer anlayışla karşılarlarsa sevinirim.

2 Yanıt

Yanıtla

Favorilere Ekle

0

E

EEmmrraahh (Emrah Kaya) · Markalar ve Modelleri altına konu açtı. 12 yıl

Uzun Yol Öncesi Sorularım

Merhaba arkadaşlar, Yakıt konusunda cimri olan 206 hdi aracımı satıp Hyundai Accent Admire (2004) Aldım.

Aracı alırken sıkıntılarının farkındaydım, Bir Enjektörü arızalı kaçırma yapıyor.

Aracı aldığımdan beri 3.000 km yol yaptım. Geç çalışması haricinde bir sıkıntı yaşamıyorum.

Aracımın durumu:

1. Enjektör sorunu yukarda bahsettiğim.
2. Filtreler değişmesi lazım değiştirmedim henüz.
3. Ön amörtisör takımı patlamış dedi usta araba biraz yaylanıyor ama hız yapmadığım ve dikkatli kullandığım için üstüne düşmedim.

Yakıt durumu:

100 Km'de Şehir içi 8-9 Lt kadar yakıyorum. Bağcılar tarafında oturduğum için genelde aracı yoğun trafik ve kısa mesafe (2-3 km) aralıklarında kullanıyorum.

Son zamanlarda 20+20 km ler yapmaya başladım ve genelde orta devir sürdüm arabayı (2,5) bu haliyle yakıt durumu 100 km'de 7lt

Sormak istediğim soru şu:

İstanbul - izmir yolculuğu yapmak istiyorum. Aracımın motorundan yana bir sıkıntı hissetmiyorum. Yakıttan yana biraz korkum var. önceki konuları okuduğumda aracının sorunsuz olduğunu söyleyip şehir içi benimle aynı yakanlar ile karşılaştım aynı kişi Araçla şehirler arası 90 km de 1 depoda 1000 km yaptığını söylemiş depo 45 LT

Araca yola çıkmadan önce masraf yapmak istiyorum fakat yolculuk öncesi biraz maddi sıkışıklık olduğu için pek yanaşmıyorum. Yapacağım masrafı yolda yakıta harcarsam daha karlı olurum diye düşünüyorum. İzmir dönüşü elim rahatlayacak o zaman daha kapsamlı bir bakım yaptırabilirim.

Bu konuda kafam çok karışık. Sıkılmadan okuyan arkadaşlara teşekkür eder değerli yorumlarınızı beklerim.

-------------------------------------------------------------------------------------------------

Yolculuk sonrası görüşlerim:

Cevaplar için çok teşekkür ederim arkadaşlar.

Aracımın yağını, yağ filtresini, hava filtresini, mazot filtresini değiştirdim. Yakıt müşürünü temizlettirdim. Ve öylece yola çıktım.

Salı sabahı 160 TL'ye (36 lt- depom 40 lt) depoyu shell W-power ile fulleyip saat 6 da bağcılardan çıkıp izmir bornovaya geldim. Gelişim sürem 5-6 saat kadar sürdü.

Vapura binmedim körfezi dolandım. Yol yaklaşık 600 Km kadardı. Sabah erken saatleri olduğu için balıkesire kadar 120-150 arası geldim. Balıkesirden sonra ortalama 110 ile geldim. Araçta toplam biraz eşya vardı, ben eşim ve kızım(10kg daha :) ) vardık.İzmir bornovaya girdiğimde daha 30 tl lik yakıt vardı.

Amörtisörler hiç sorun çıkarmadı çünkü dikkatli geldim bir defa biraz panik fren yaptm onda da araç yavaşlarken kontrol kaybediyor gibiydi. Onun dışında yağmurlu yollarda da hiç sorun yaşamadım.

Bu Aracımı uzun yolda ilk defa kullandığım için hararet konusunda çıkarken şüpheliydim ama Araç maşallah tık demeden geldi izmire kadar ve hararette en ufak bir oynama yoktu.

Anlayacağınız Çok şükür kusursuz bir şekilde gelmiş oldum. Yarın öğlen tekrar yola çıkacağım istanbula döneceğim. Umarım geldiğimdeki gibi rahat dönüş yaparım.

Hepinize iyi forumlar.

11 Yanıt

Yanıtla

Favorilere Ekle

0

E

EEmmrraahh (Emrah Kaya) · Site Tanıtımları altına konu açtı. 17 yıl

Ders çalışmaktan, Web sitesi yapmaktan, İş Stresinden yorulduysan 10DK Mola ver..

Yanıt Yok

Yanıtla

Favorilere Ekle

0

E

EEmmrraahh (Emrah Kaya) · Asp / Asp.NET altına konu açtı. 18 yıl

db oluşturma

//giris.asp 
  <% if Session("durum")="giris_yapmis" then %> 
  <% Response.Redirect "giris_sayfasi.asp" %> 
   
  <%else %> 
  <FORM name=loginform action="giris_kontrol.asp" method=post> 
  <FONT face=verdana size=2>Kullanıcı Adı:</FONT></td><td><input name=kullanici_adi></td></tr> 
  <tr><td><FONT face=verdana size=2>Şifre:</FONT></td><td><input type=password name=sifre></td></tr> 
  <tr><td><center><input type=submit value=Gönder></center></FORM> 
  <% end if %> 
   
  //giris_kontrol.asp 
  <%  
  Set baglanti = Server.CreateObject("ADODB.Connection")  
  baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &  
  Server.MapPath  
  ("database/db.mdb")  
  %>  
   
  <%  
  'Sql Injection 'ı Önlemek ve HTML Kodlarını Pasif Hale Getirmek İçin  
  Kullanılan  
  Karakter Temizleme Metodu  
  function guvenlik(data)  
  data = Replace (data ,"`","",1,-1,1)  
  data = Replace (data ,"=","",1,-1,1)  
  data = Replace (data ,"&","",1,-1,1)  
  data = Replace (data ,"%","",1,-1,1)  
  data = Replace (data ,"!","",1,-1,1)  
  data = Replace (data ,"#","",1,-1,1)  
  data = Replace (data ,"<","",1,-1,1)  
  data = Replace (data ,">","",1,-1,1)  
  data = Replace (data ,"*","",1,-1,1)  
  data = Replace (data ,"And","",1,-1,1)  
  data = Replace (data ,"'","",1,-1,1)  
  data = Replace (data ,"Chr(34)","",1,-1,1)  
  data = Replace (data ,"Chr(39)","",1,-1,1)  
  data = Replace (data ,"select","",1,-1,1)  
  data = Replace (data ,"join","",1,-1,1)  
  data = Replace (data ,"union","",1,-1,1)  
  data = Replace (data ,"where","",1,-1,1)  
  data = Replace (data ,"insert","",1,-1,1)  
  data = Replace (data ,"delete","",1,-1,1)  
  data = Replace (data ,"update","",1,-1,1)  
  data = Replace (data ,"like","",1,-1,1)  
  data = Replace (data ,"drop","",1,-1,1)  
  data = Replace (data ,"create","",1,-1,1)  
  data = Replace (data ,"modify","",1,-1,1)  
  data = Replace (data ,"rename","",1,-1,1)  
  data = Replace (data ,"alter","",1,-1,1)  
  data = Replace (data ,"cast","",1,-1,1)  
  guvenlik=data  
  end function  
  %>  
   
  <%  
  If trim(guvenlik(request.form("kullanici_adi")))="" then  
  Response.Write  
  "<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Kullanıcı  
  adınızı yazınız!<br><br><a href='javascript:history.back(1)'><FONT  
  color=#e45f0e><u>Geri Dön</u></a></b></center>"  
  response.end  
  end if  
   
  If trim(guvenlik(request.form("sifre")))="" then  
  Response.Write  
  "<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Şifrenizi  
  yazınız!<br><br><a href='javascript:history.back(1)'><FONT  
  color=#e45f0e><u>Geri  
  Dön</u></a></b></center>"  
  response.end  
  end if  
  %>  
  <%  
  Set rs = Server.CreateObject("Adodb.Recordset")  
  Sorgu = "select id, kullanici_adi, sifre from uyeler where kullanici_adi =  
  '" &  
  guvenlik(request.form("kullanici_adi")) & "' and sifre = '" &  
  guvenlik(Request.form  
  ("sifre")) & "'"  
  rs.Open Sorgu, Baglanti, 1, 3  
  If rs.BOF And RS.EOF Then  
  Response.Write  
  "<center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Kullanıcı  
  adınız ya da şifreniz yanlıştır!<br><br><a  
  href='javascript:history.back(1)'><FONT  
  color=#e45f0e><u>Geri Dön</u></a></b></center>"  
  Else  
  Session("durum") = "giris_yapmis"  
  Session("id") = rs("id")  
  Session("kullanici_adi") = rs("kullanici_adi")  
  Response.Cookies("TekTech")("kullanici_adi") = Request.Form("kullanici_adi")  
  Response.Cookies("TekTech")("sifre") = Request.Form("sifre")  
  Response.Cookies("TekTech").Expires = Now()+15  
  Response.Redirect "giris_sayfasi.asp"  
  End If  
  %> 
   
  //giris_sayfasi.asp 
  <% 
  Set baglanti = Server.CreateObject("ADODB.Connection") 
  baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb") 
  %> 
   
  <% if Session("durum")="giris_yapmis" then %> 
   
  <% 
  Set rs = Server.CreateObject("Adodb.Recordset") 
  id = Session("id") 
  Sorgu = "Select * from uyeler where id= " & id 
  rs.Open Sorgu, Baglanti, 1, 3 
  if rs.eof then  
  Response.Write "<center>Üye bilgisi bulunmamaktadır!</center>" 
  else 
  %> 
  <b>Kullanıcı Adı:</b> <%=rs("kullanici_adi")%> 
  <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=14254667&url=cikis_yap.asp" data-href="cikis_yap.asp"><b>ÇIKIŞ YAP</b></a> 
  <% end if %> 
   
  <%else %> 
  </p> 
  <center><br><br><br><br><br><br><br><b>UYARI:</b><br><br>Lütfen giriş yapınız!<br><br><a href='giris.asp'><FONT color=#e45f0e><u>Anasayfa</u></a></b></center> 
  <% end if %> 
   
  //cikis_yap.asp 
  <% 
  Session("durum")=""  
  Response.Cookies("TekTech")("kullanici_adi")="" 
  Response.Cookies("TekTech")("sifre")="" 
  Session("id")=""  
  %> 
  <% Response.Redirect "giris.asp" %>

Arkadaşlar Yukarda Yazan SCriptin bana db sini yapabilecek bir arkadaş varmı ? yeni başlıyorumda ben yaptım bitanem ama sorun çıktı

id ye otomatik sayı verdim
kullanici_adi not
sifre not

dedim ama olmadı hata verdi giris_kontrol.asp de 64. satırda hata verdi. Şimdiden Tşkler

4 Yanıt

Yanıtla

Favorilere Ekle

0

E

EEmmrraahh (Emrah Kaya) · Asp / Asp.NET altına konu açtı. 18 yıl

Sizce Hata Nerde?

Haber Eklerken Haber içerisindeki resimler vdeolar ve Linkler wswiyg editörde (adını tam hatırlamıyom:D ) gösteriyor ama Haber anasayfasında Şöyle Çıkıyor :

>> Albümü Satın Almak için Tıkla! " target="_blank">http://muzikbazaar.com/www/product_info.php?products_id=752">>> Albümü Satın Almak için Tıkla!

Sorun ne Olabilir sizce ? Haberlerin Gösterildiği Sayfanın Kodları :

<!--#INCLUDE FILE="haber_includes/connections.asp"--> 
  <!--#INCLUDE FILE="haber_includes/pagesettings.asp"--> 
  <!--#INCLUDE FILE="haber_includes/style.inc"--> 
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
  <link rel="stylesheet" href="haber_includes/style.css" type="text/css"> 
  <title><%=StrPageTitle%></title> 
  <body bgcolor="<%=StrPageBody%>" topmargin="0" leftmargin="0"> 
  <% 
  	If Request("NewsID") = "" Then 
  		Response.Redirect "default.asp" 
  	Else 
   
  	'##-- 
   
  	If Request("a") = "plus" Then 
   
  		Set ObjMainNews = Createobject("ADODB.Recordset") 
  			ObjMainNews.Open  "SELECT * FROM TblNews Where NewsID=" & Request("NewsID") & "", ObjConn , 1 , 3 
  			If Session("StrPointLock") = Request("NewsID") Then 
  			Else 
  			ObjMainNews("StrPoint") = ObjMainNews("StrPoint") + Request("p") 
  			Session("StrPointLock") = Request("NewsID") 
  			End If 
  			ObjMainNews.Update 
  			ObjMainNews.Close() 
  		Set ObjMainNews = Nothing 
   
  		Response.Redirect "newsdetail.asp?NewsID=" & Request("NewsID") 
   
  	End If 
   
  	'##-- 
   
  	Set ObjMainNews = Createobject("ADODB.Recordset") 
  		ObjMainNews.Open  "SELECT * FROM TblNews Where NewsID=" & Request("NewsID") & " And StrStatus=True", ObjConn , 1 , 3 
  		If Session("StrReadLock") = Request("NewsID") Then 
  		Else 
  		ObjMainNews("StrRead") = ObjMainNews("StrRead") + 1 
  		Session("StrReadLock") = Request("NewsID") 
  		End If 
  		ObjMainNews.Update 
   
  	Set ObjCategorys = Createobject("ADODB.Recordset") 
  		ObjCategorys.open  "SELECT * FROM TblCategory Where CatID=" & ObjMainNews("CatID") & " And StrStatus=True", ObjConn , 1 , 3 
   
  	Set ObjSource = Createobject("ADODB.Recordset") 
  		ObjSource.open  "SELECT * FROM TblSource Where SourceID=" & ObjMainNews("SourceID") & "", ObjConn , 1 , 3 
   
  	Set ObjEditor = Createobject("ADODB.Recordset") 
  		ObjEditor.open  "SELECT * FROM TblEditors Where EditorID=" & ObjMainNews("EditorID") & "", ObjConn , 1 , 3 
   
  	Set ObjComments = Createobject("ADODB.Recordset") 
  		ObjComments.open  "SELECT * FROM TblComments Where NewsID=" & Request("NewsID") & " And StrStatus=True order by CommentsID desc", ObjConn , 1 , 3 
   
  	Set ObjRelations = Createobject("ADODB.Recordset") 
  		ObjRelations.open  "SELECT * FROM TblRelated Where NewsID=" & Request("NewsID") & " order by RelatedID desc", ObjConn , 1 , 3 
  %> 
  <center> 
  <table bgcolor="<%=StrPageTblBody%>" width="1%" border="0" cellspacing="0" cellpadding="0"> 
  	<tr> 
  		<td colspan="3"><!--#INCLUDE FILE="haber_includes/header.asp"--></td> 
  	</tr> 
  	<tr> 
  		<td bgcolor="<%=StrPageMenuLeft%>" valign="top"><!--#INCLUDE FILE="haber_includes/menu_left.asp"--></td> 
  		<td valign="top"> 
  			<table width="1%" border="0" cellspacing="0" cellpadding="0"> 
  				<tr> 
  					<td><img src="haber_images/spacer.gif" height="1" width="475"></td> 
  				</tr> 
  				<tr> 
  					<td class="main"> <b><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=10903378&url=default.asp" data-href="default.asp">Ana Sayfa</a> > <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=10903378&url=categorys.asp?CatID=<%=ObjCategorys("CatID")%>" data-href="categorys.asp?CatID=<%=ObjCategorys("CatID")%>"><%=ObjCategorys("Category")%></a> > <font color="red">Haber Detay</font></td> 
  				</tr> 
  				<tr> 
  					<td class="main"><hr size="0" color="#000000"></td> 
  				</tr> 
  				<tr> 
  					<td valign="top"> 
  						<center> 
  						<table width="96%" border="0" cellspacing="0" cellpadding="0"> 
  							<tr> 
  								<td valign="top"> 
  									<table class="main_2"> 
  										<tr> 
  											<td colspan="2"><b><font color="#333399" size="3"><u><%=ObjMainNews("StrSubject")%></u></font></b></td> 
  										</tr> 
  										<tr> 
  											<% If ObjMainNews("StrImage") = "0" Then %> 
  											<td width="1%" valign="top"><img src="haber_images/noimage_2.gif" height="150" width="150" border="1"></td> 
  											<% Else %> 
  											<td width="1%" valign="top"><img src="<%=ObjMainNews("StrImage")%>" height="150" width="150" border="1"></td> 
  											<% End If %> 
  											<td><%=ObjMainNews("StrFrontBody")%></td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><hr size="0"></td> 
  										</tr> 
  										<tr> 
  											<td colspan="2" valign="top"><%=FormatChar(ObjMainNews("StrBody"))%><br><br></td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><b>Haber Tarihi :</b> <%=ObjMainNews("StrDate")%></td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><b>Haber Editörü :</b> <%=ObjEditor("StrName")%></td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><b>Haber Kaynağı :</b> <%=ObjSource("Source")%><br><br></td> 
  										</tr> 
  										<tr> 
  											<td bgcolor="#E5EAEF" colspan="2"> 
  												<center> 
  												<table class="main_2"> 
  													<tr> 
  														<td>Bu habere</td> 
  														<td> 
  															<select name="StrPoint" onchange="window.location=StrPoint(selectedIndex).value"> 
  																<% For i = 0 to 10 %> 
  																<option value="newsdetail.asp?NewsID=<%=ObjMainNews("NewsID")%>&a=plus&p=<%=i%>"><%=i%></option> 
  																<% Next %> 
  															</select> 
  														</td> 
  														<td>puan verin</td> 
  													</tr> 
  												</table> 
  												</center> 
  											</td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><center>Bu haber <b><font color="red"><%=ObjMainNews("StrRead")%></font></b> kez okundu ve <b><font color="red"><%=ObjMainNews("StrPoint")%></font></b> puan aldı</center><br></td> 
  										</tr> 
  										<tr> 
  											<td bgcolor="#FEF8F9" colspan="2"> 
  												<center> 
  												<table class="main_2"> 
  													<tr> 
  														<td><center><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=10903378&url=addadvices.asp?NewsID=<%=ObjMainNews("NewsID")%>" data-href="addadvices.asp?NewsID=<%=ObjMainNews("NewsID")%>"><b>Bu haberi tavsiye edin</a></b></center></td> 
  													</tr> 
  													<tr> 
  														<td>Bu haberi arkadaşlarınıza tavsiye edin</td> 
  													</tr> 
  												</table> 
  												</center> 
  											</td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><br></td> 
  										</tr> 
  										<tr> 
  											<td bgcolor="#FEF8F9" colspan="2"> 
  												<center> 
  												<table class="main_2"> 
  													<tr> 
  														<td><center><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=10903378&url=addcomments.asp?NewsID=<%=ObjMainNews("NewsID")%>" data-href="addcomments.asp?NewsID=<%=ObjMainNews("NewsID")%>"><b>Haberi Yorumla</b></a></center></td> 
  													</tr> 
  													<% If ObjComments.EOF And ObjComments.BOF Then %> 
  													<tr> 
  														<td>Bu habere yapılmış bir yorum bulunmamaktadır</td> 
  													</tr> 
  													<%  
  														Else 
  														Do While Not ObjComments.EOF 
  													%> 
  													<tr> 
  														<td><hr size="0" color="#000000"></td> 
  													</tr> 
  													<tr> 
  														<td><%=ObjComments("StrComment")%></td> 
  													</tr> 
  													<tr> 
  														<td><b>Yazan :</b> <i><%=ObjComments("StrAuthorName")%></i> | <b>Email :</b> <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=10903378&url=mailto:<%=ObjComments("StrAuthorEmail")%>" data-href="mailto:<%=ObjComments("StrAuthorEmail")%>"><i><%=ObjComments("StrAuthorEmail")%></i></a></td> 
  													</tr> 
  													<%  
  														ObjComments.MoveNext 
  														Loop 
  														End If 
  													%> 
  												</table> 
  												</center> 
  											</td> 
  										</tr> 
  										<tr> 
  											<td colspan="2"><br></td> 
  										</tr> 
  										<tr> 
  											<td bgcolor="#FEF8F9" colspan="2"> 
  												<center> 
  												<table class="main_2"> 
  													<tr> 
  														<td><b><center>İlişkili Haberler</center></b></td> 
  													</tr> 
  													<% If ObjRelations.EOF And ObjRelations.BOF Then %> 
  													<tr> 
  														<td>İlişkili haber bulunmamaktadır</td> 
  													</tr> 
  													<%  
  														Else 
  														Do While Not ObjRelations.EOF 
   
  														Set ObjRelationsNews = Createobject("ADODB.Recordset") 
  															ObjRelationsNews.open  "SELECT * FROM TblNews Where NewsID=" & ObjRelations("RelID") & "", ObjConn , 1 , 3 
  													%> 
  													<tr> 
  														<td><a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=10903378&url=newsdetail.asp?NewsID=<%=ObjRelationsNews("NewsID")%>" data-href="newsdetail.asp?NewsID=<%=ObjRelationsNews("NewsID")%>"><%=ObjRelationsNews("StrSubject")%></a></td> 
  													</tr> 
  													<%  
  															ObjRelationsNews.Close() 
  														Set ObjRelationsNews = Nothing 
   
  														ObjRelations.MoveNext 
  														Loop 
   
  														End If 
  													%> 
  												</table> 
  											</td> 
  										</tr> 
  									</table> 
  								</td> 
  							</tr> 
  						</table> 
  						<br> 
  						</center> 
  					</td> 
  				</tr> 
  			</table> 
  		</td> 
  		<td bgcolor="#EEEEEE" valign="top"><!--#INCLUDE FILE="haber_includes/menu_right.asp"--></td> 
  	</tr> 
  	<tr> 
  		<td colspan="3"><!--#INCLUDE FILE="haber_includes/footer.asp"--></td> 
  	</tr> 
  </table> 
  <% 
  		ObjRelations.Close() 
  	Set ObjRelations = Nothing 
   
  		ObjComments.Close() 
  	Set ObjComments = Nothing 
   
  		ObjEditor.Close() 
  	Set ObjEditor = Nothing 
   
  		ObjSource.Close() 
  	Set ObjSource = Nothing 
   
  		ObjCategorys.Close() 
  	Set ObjCategorys = Nothing 
   
  		ObjMainNews.Close() 
  	Set ObjMainNews = Nothing 
   
  	End If 
  %>