Sizce Hata Nerde?

</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"></td>
</tr>
<tr>
<td colspan="3"></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
%>

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>

" data-href="addadvices.asp?NewsID=<%=ObjMainNews("NewsID")%>">Bu haberi tavsiye edin

Benzer içerikler