Yorum Yaz Modülü lütfen

kurtbey_ticaret · 2012-10-29T23:01:46.0000000+03:00

arkadaslar ayrı ayrı listelenen sayfaların altına bir türlü yorum ekle modülünü yerleştiremedim. Asp kullanıyorum. Biraz daha açmak istersek sanalmezarlık adında siteye bir modül konuldu ben istiyorum ki her mezarın altına yorum yapılabilsin şimdiden ilgilenen arkadaslara tesekkür ederim...

bu arkadaslar kybdetay.asp dosyası











<%

'// Sayfanın önbellekten alnması önleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'// Değişkenler Tanımlanıyor
Dim intmezarID
Dim blnmezar

'// Video numarasını bul
Call getQueryString("yorumID")

'// Varsayılan değerler giriliyor
blnHaberVar = True

'// Haber verisinin olup olmadığı ve verinin sayı olup olmadığı kontrol ediliyor
If intId = "" Or IsNumeric(intId) = False Then
blnHaberVar = False

Else
'// Veri, sayıysa veritabanı kontrolü yapılıyor
kdGenel.Open "SELECT * FROM sanalmezar WHERE durum="& strDBTrue &" AND id = "& CInt(intId) &"", adoCon, 1, 3

'// Uygun kayıt bulunamadıysa mesaj yazılıyor
If kdGenel.EOF Then
blnmezar= False

End If
kdGenel.Close
End If

dim EkleKayit, Tablo, idd
idd = Request.QueryString("id")
Set EkleKayit = server. CreateObject("ADODB.Recordset")
tablo = "Select * from SanalMezar where id like '"& idd &"'"
EkleKayit.Open tablo,ObjConn,1,3
if EkleKayit.Eof Then
Response.Redirect "message.asp?Redirect=Default&StrMsg=" & Server.URLEncode("Hatalı Sorgu!")
end if
EkleKayit("hit")=EkleKayit("hit")+1
EkleKayit.Update
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="tr">
<link href="images/sft.css" type="text/css" rel="stylesheet">
<link href="images/text.css" type="text/css" rel="stylesheet">
<meta content="Microsoft FrontPage 6.0" name="GENERATOR">

<META http-equiv=Content-Language content=tr>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="Revisit-After" Content="1 Days">
<LINK href="images/ayars.css" type=text/css rel=stylesheet>
<LINK href="css/basciftlik.css" type="text/css" rel="stylesheet">
<script language=JavaScript>
var message="resim istekleri için mail atınız.";
///////////////////////////////////
function clickIE() {if (document.all) {(message);return false;}}
function clickNS(e) {if
(document.layers||(document.getElementById&&!document.all)) {
if (e.which==2||e.which==3) {(message);return false;}}}
if (document.layers)
{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}
else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}
</script>
<script language="JavaScript" type="text/JavaScript">

</script>

<script type="text/javascript" src="Flash/myscript1.js"></script>
<script src="Flash/sifr.js" type="text/javascript"></script>
<script src="Flash/sifr-addons.js" type="text/javascript"></script>

<SCRIPT language=JavaScript src="images/loader.js"
type=text/javascript></SCRIPT>
<script type="text/javascript" src="highslide/highslide.js"></script>

<script type="text/javascript">
hs.graphicsDir = 'highslide/graphics/';
hs.outlineType = 'rounded-white';
</script>

<style type="text/css">
.highslide {
cursor: url(highslide/graphics/zoomin.cur), pointer;
outline: none;
}
.highslide img {
border: 2px solid gray;
}
.highslide:hover img {
border: 2px solid white;
}

.highslide-image {
border: 2px solid white;
}
.highslide-image-blur {
}
.highslide-caption {
display: none;

border: 2px solid white;
border-top: none;
font-family: Verdana, Helvetica;
font-size: 10pt;
padding: 5px;
background-color: white;
}
.highslide-display-block {
display: block;
}
.highslide-display-none {
display: none;
}
.highslide-loading {
display: block;
color: white;
font-size: 9px;
font-weight: bold;
text-transform: uppercase;
text-decoration: none;
padding: 3px;
border-top: 1px solid white;
border-bottom: 1px solid white;
background-color: black;
/*
padding-left: 22px;
background-image: url(highslide/graphics/loader.gif);
background-repeat: no-repeat;
background-position: 3px 1px;
*/
}
a.highslide-credits,
a.highslide-credits i {
padding: 10px;
color: silver;
text-decoration: none;
font-size: 15px;
}
a.highslide-credits:hover,
a.highslide-credits:hover i {
color: white;
background-color: gray;
}
</style>

</HEAD>
<BODY background="siteresimleri//bg.gif">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=990 border=0>
<TBODY>
<TR>
<TD vAlign=top >
<TABLE id=table2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top bgcolor="#FCFAF3">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0 id="table3">
<TR>
<TD height="30" bgcolor="#000000">
<font color="#FAC845"><b>
SANAL MEZARLIK SİSTEMİ -
<a href="Sanalmezar.asp" style="text-decoration: none">
<font color="#FAC845">ANA SAYFA</font></a></b></font></TD>
</TR>
<TR>
<TD width="100%" height="25">
<table border="0" width="100%" id="table4" cellspacing="0" cellpadding="0" height="381">
<tr>
<td height="382" bgcolor="#FAC845">
<table border="0" cellspacing="0" width="100%" id="table5">
<tr>
<td height="25" width="32%" bgcolor="#FAC845">

<table border="0" cellspacing="0" width="100%" id="table6">
<tr>
<td width="30"> </td>
<td>
<table border="0" cellspacing="0" width="100%" id="table7">
<tr>
<td height="50" align="center">
<% if EkleKayit("resim")="yok" Then %>
<img border="0" src="images/merhum_resim/yok.jpg" width="120" height="158" style="border: 1px solid #800000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px">

<% else %>
<center>
<a id="thumb1" href="images/merhum_resim/<%=EkleKayit("resim")%>" class="highslide" onclick="return hs.expand(this, {captionId: 'caption1'})">
<img src="images/merhum_resim/<%=EkleKayit("resim")%>" alt="Resmi Büyütmek İçin Tıklayın"
width="120" height="158" style="border-style:solid; border-color:#800000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px"align="left"></a>
</center>
<% end if %>

</td>
</tr>
</table>
</td>
</tr>
</table>

</td>
<td height="25" width="67%" valign="top">
<table border="0" cellspacing="0" width="100%" id="table8">
<tr>
<td>
<table border="0" cellspacing="0" width="414" id="table9">
<tr>
<td width="408" height="45" colspan="3">
</td>
</tr>
<tr>
<td width="114" height="25" bgcolor="#FFFFCC">
<font color="#FF0000" style="font-size: 8pt; font-weight: 700"> Adı
Soyadı</font></td>
<td width="15" height="25" bgcolor="#FFFFCC" align="center">
<font color="#FF0000"><b>:</b></font></td>
<td height="25" bgcolor="#FFFFCC" width="279"><%=EkleKayit("adsoyad")%></td>
</tr>
<tr>
<td width="114" height="25" bgcolor="#FFFFFF">
<font color="#FF0000"> <span style="font-size: 8pt; font-weight: 700">Doğum
Tarihi</span></font></td>
<td width="15" height="25" align="center" bgcolor="#FFFFFF">
<font color="#FF0000"><b>:</b></font></td>
<td height="25" width="279" bgcolor="#FFFFFF"><%=EkleKayit("dogum")%></td>
</tr>
<tr>
<td width="114" height="25" bgcolor="#FFFFCC">
<font color="#FF0000" style="font-size: 8pt; font-weight: 700"> Vefat
Tarihi</font></td>
<td width="15" height="25" bgcolor="#FFFFCC" align="center">
<font color="#FF0000"><b>:</b></font></td>
<td height="25" bgcolor="#FFFFCC" width="279"><%=EkleKayit("olum")%></td>
</tr>
<tr>
<td width="114" height="25" bgcolor="#FFFFFF">
<font color="#FF0000" style="font-size: 8pt; font-weight: 700"> </font><font color="#FF0000"><span style="font-weight: 700; font-size: 8pt">Defnedildiği
Yer</span></font></td>
<td width="15" height="25" bgcolor="#FFFFFF" align="center">
<font color="#FF0000"><b>:</b></font></td>
<td height="25" bgcolor="#FFFFFF" width="279">
<%=EkleKayit("definyeri")%></td>
</tr>
<tr>
<td width="408" height="25" bgcolor="#FFFFCC" colspan="3">
<p align="center"><b><font size="2"> Toplam <font color="#FF0000"><%=EkleKayit("hit")%></font>
defa ziyaret edilmiştir.</font></b></td>
</tr>
<tr>
<td width="408" height="25" colspan="3">
</td>
</tr>
<tr>
<td width="114" height="25">
</td>
<td width="15" height="25" align="center">
</td>
<td height="25" width="279"> </td>
</tr>
</table>
</td>
<td width="23"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<td style="padding-right:10px;">

<ul id="countrytabs" class="shadetabs">
<li><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=67482314&url=<%=strScriptYolu%>popup/mezar-yorumlar.asp?yorumID=<%=intId%>" class="selected" rel="#iframe" data-href="<%=strScriptYolu%>popup/mezar-yorumlar.asp?yorumID=<%=intId%>" class="selected" rel="#iframe">Yorumlar</a></li>
<li><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=67482314&url=<%=strScriptYolu%>popup/mezar-yorum-yaz.asp?yorumID=<%=intId%>" rel="#iframe" data-href="<%=strScriptYolu%>popup/mezar-yorum-yaz.asp?yorumID=<%=intId%>" rel="#iframe">Yorum Yaz</a></li>
</ul>

<div id="countrydivcontainer" style="border:1px solid #c1c1c1; margin-bottom: 1em; padding:10px;">

</div>

<script type="text/javascript">
var countries=new ddajaxtabs("countrytabs", "countrydivcontainer")
countries.setpersist(true)
countries.setselectedClassTarget("link")
countries.init()
</script>

</td>

</tr>
</table>

</td>
</tr>
<tr>
<td colspan="3" id="alt">
<style type="text/css">body{ background-image: url("http://www.gercehaber.com/img/gercek1.jpg");</style>

<% Call Alt() %>

<%
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
Response.Write "<p>Altyapı: <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=67482314&url="http://www.gercehaber.com"" target=""_blank"" title=""MyDesign | Kod Arşivi"" data-href=""http://www.gercehaber.com"" target=""_blank"" title=""MyDesign | Kod Arşivi"">Gerce Haber Sistemi</a></p>"
' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
%>
</td>
</tr>
</table>
</div>
</body>
</html> <td height="25" width="99%" bgcolor="#FAC845" colspan="2">

<center>
<a id="thumb1" href="images/Sanal_mezar_resim/<%=EkleKayit("kabir_resim")%>" class="highslide" onclick="return hs.expand(this, {captionId: 'caption1'})">
<img src="images/Sanal_mezar_resim/<%=EkleKayit("kabir_resim")%>" alt="Resmi Büyütmek İçin Tıklayın"
width="617" height="414" style="border:1px solid #800000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px"align="left"></a>
</center>

</td>
</tr>
<tr>
<td height="25" width="32%" bgcolor="#FAC845">

</td>
<td height="25" width="67%" valign="top">

</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="24"> </td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD>
</TD>
</TR>
</TABLE></DIV><BR> </TD>
</TR>
<TR>
<TD vAlign=top bgcolor="#FCFAF3">
<DIV align=center>
<TABLE cellSpacing=19 cellPadding=5 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE></DIV></TD>
</TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE></DIV></BODY></HTML>

bu da kybdetay dosyasının altına yorum yazdırmak için kullanmak istediğim asp dosyaları...

mezar-yorum-yaz.asp

<% @ Language=VBScript %>
<% Option Explicit %>

<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'// Sayfanın önbellekten alnması önleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'// Değişkenler Tanımlanıyor
Dim intmezarID
Dim blnmezar

blnmezarVar = True
intmezarID= Temizle(Trim(Request.QueryString("yorumID")))

If intmezarID= "" Or IsNumeric(intmezarID) = False Then
blnmezarVar = False

Else
'// Veri, sayıysa veritabanı kontrolü yapılıyor
kdGenel.Open "SELECT id, adsoyad FROM sanalmezar WHERE durum = "& strDbTrue &" AND id= "& CInt(intmezarID) &"", adoCon, 1, 3
If kdGenel.EOF Then
blnmezarVar = False
End If
kdGenel.Close

End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=strSiteAdi%> - Yorum Yaz</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254" />
<meta name="generator" content="MyDesign Haber <%=strVersiyon%>" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>css/stil.css" />
<style type="text/css">
body { margin-right:10px; background:#fff; }
</style>
</head>
<body>
<%
If blnmezarVar Then %>

<div id="yorum-yaz">
<%
strIsim = BaslikTemizle(Trim(Request.Form("isim")))
strEPosta = BaslikTemizle(Trim(Request.Form("eposta")))
strMesaj = BaslikTemizle(Trim(Request.Form("mesaj")))

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

'// Onay Kodu Doğrulanıyor
If blnOnayKodu Then
If Session("OnayKodu") <> "" AND Session("OnayKodu") = Temizle(Trim(Mid(Request.Form("onaykodu"), 1, 6))) Then
blnGuvenlikOK = True
Else
blnGuvenlikOK = False
End If
Session("OnayKodu") = ""
Else
blnGuvenlikOK = True
End If

If Len(strMesaj) >= 3 Then blnMesajOK = True Else blnMesajOK = False End If ' Mesaj kontrolü yapılıyor
If IsMail(strEPosta) Then blnEPosta = True ' E-Posta doğrulanıyor
If Len(strIsim) >= 3 Then blnIsim = True '// İsim doğrulanıyor

If blnIsim = True and blnEPosta = True and blnMesajOK = True and blnGuvenlikOK = True Then

'// Admin Onayı Kontrol Ediliyor
If blnAdminOnay Then
blnOnay = strDBFalse
strOnayMesaji = "Yorumunuz editörlerimiz tarafından incelendikten sonra yayınlanacaktır."
Else
blnOnay = strDBTrue
strOnayMesaji = "Yorumunuz kayıtlara eklenmiştir."
End If

'// Veritabanına Kayıt Yapılıyor
kdYorum.Open "SELECT * FROM yorumlar2 ", adoCon, 1, 3
kdYorum.AddNew
kdYorum("yazan") = strIsim
kdYorum("eposta") = strEPosta
kdYorum("yorum") = strMesaj
kdYorum("id") = intmezarID
kdYorum("tarih") = Now()
If Request.ServerVariables("X_FORWARDED_FOR") = "" Then
kdYorum("ip") = Request.ServerVariables("REMOTE_ADDR")
Else
kd("ip") = Request.ServerVariables("X_FORWARDED_FOR")
End If
kdYorum("durum") = blnOnay
kdYorum.Update
kdYorum.Close

'// Ziyaretçiyi hatırlamak için çerez gönderiliyor
Response.Cookies(strCerezAdi)("isim") = strIsim
Response.Cookies(strCerezAdi)("email") = strEPosta
Response.Cookies(strCerezAdi).Expires = Now() + 30

Response.write("<p style=""text-align:center;"">Yorumunuz için teşekkürler <b>"& strIsim &"</b>.</p>" & _
vbCrLf & "<p style=""text-align:center;"">"& strOnayMesaji &"</p>")

Else

Call Form()

Response.Write "<p><b style=""color:#f00;"">Yorumunuz eklenemedi :</b> Lütfen tüm alanları doldurunuz.</p>"

End If

Else

Call Form()

End If %>

</div>

<%

Else
Response.Write "<p>Video bulunamadı!</p>"
End If %>
</body>
</html>

<% Sub Form() %>
<form method="post" action="mezar-yorum-yaz.asp?yorumID=<%=intmezarID%>" style="display:inline">

<label for="isim">İsim:</label>
<input type="text" name="isim" id="isim" class="input" value="<%=strIsim%>" /><br />

<label for ="eposta">E-Posta:</label>
<input type="text" id="eposta" name="eposta" class="input" value="<%=strEPosta%>" /><br />

<label for="mesaj">Mesaj:</label>
<textarea id="mesaj" name="mesaj" cols="40" rows="5" class="input"><%=strMesaj%></textarea><br /><%

If blnOnayKodu Then
Session("OnayKodu") = ""
For intLooper = 1 To 6
Randomize Timer
Session("OnayKodu") = Session("OnayKodu") & CStr(CInt(Rnd * 9))
Next
Session.Timeout = 60 %>
<p style="padding-left:100px"><img src="<%=strScriptYolu%>guvenlik_kodu.asp?I=1&<% = hexValue(4) %>" alt="" /><img src="<%=strScriptYolu%>guvenlik_kodu.asp?I=2&<% = hexValue(4) %>" alt="" /><img src="<%=strScriptYolu%>guvenlik_kodu.asp?I=3&<% = hexValue(4) %>" alt="" /><img src="<%=strScriptYolu%>guvenlik_kodu.asp?I=4&<% = hexValue(4) %>" alt="" /><img src="<%=strScriptYolu%>guvenlik_kodu.asp?I=5&<% = hexValue(4) %>" alt="" /><img src="<%=strScriptYolu%>guvenlik_kodu.asp?I=6&<% = hexValue(4) %>" alt="" /></p>
<label for="onaykodu">Onay Kodu:</label>
<input id="onaykodu" type="text" name="onaykodu" size="60" class="input" /><br /><%
End If %>

<label for="gonder"> </label>
<input id="gonder" type="submit" value=" Gönder " class="buton" /><br />

</form>
<% End Sub %>

mezar-yorumlar.asp dosyası bu

<% @ Language=VBScript %>
<% Option Explicit %>

<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'// Sayfanın önbellekten alnması önleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"

'// Değişkenler Tanımlanıyor
Dim intmezarID
Dim blnmezarVar
Dim renk
Dim puan

blnmezarVar = True
intmezarID = Temizle(Trim(Request.QueryString("mezar")))

If intmezarID = "" Or IsNumeric(intmezarID) = False Then
blnmezarVar = False

Else
'// Veri, sayıysa veritabanı kontrolü yapılıyor
kdGenel.Open "SELECT yorumID, Adsoyad FROM sanalmezar WHERE Durum = "& strDBTrue &" AND id = "& CInt(intmezarID) &"", adoCon, 1, 3
If kdGenel.EOF Then
blnmezarVar = False
End If
kdGenel.Close
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=strSiteAdi%> - Yorumlar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254" />
<meta name="generator" content="MyDesign Haber <%=strVersiyon%>" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>css/stil.css" />
<style type="text/css">
body { background:#fff; }
</style>

<script type="text/javascript" src="<%=strScriptYolu%>js/ajax.js"></script>

<script language="JavaScript" type="text/javascript">
function openWin(theURL,winName,features) {
window.open(theURL,winName,features);
}
</script>
</head>
<body id="popup">
<% If blnmezarVar Then %>

<%
SQL = "SELECT yorumID FROM mezarYorumlar WHERE id = "& intmezarID
If blnAdminOnay Then SQL = SQL & " AND durum = "& strDBTrue
SQL = SQL & " ORDER BY Tarih DESC"

kdGenel.Open SQL, adoCon, 1, 3

If kdGenel.Eof Then

Response.Write "<p style=""color:#666;"">Henüz yorum yazılmamış.</p>"

Else

Response.Write "<div id=""yorumlar"">"

Do While Not kdGenel.Eof

puan = kdGenel("arti") - kdGenel("eksi")

If puan < 0 Then
renk = "#f00"
Elseif puan > 0 Then
renk = "#060"
Else
renk = "#666"
End If

If puan > 0 Then puan = "+"& puan %>

<div class="yorum_baslik">
<table width="100%" cellpadding="0" border="0" cellspacing="0">
<tr>
<td style="width:38%;" class="yorum_ad"><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=67482314&url=mailto:<%=kdGenel("eposta")%>" data-href="mailto:<%=kdGenel("eposta")%>"><%=kdGenel("yazan")%></a>
<span class="puan" id="<%=kdGenel("yorumID")%>-puan">(<span style="color:<%=renk%>"><%=puan%></span>)</span></td>
<td style="width:35%;" class="yorum_tarih"><%=TarihFormatla(kdGenel("tarih"),1)%></td>
<td style="width:15%;" class="yorum_ihbar"><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=67482314&url=JavaScript:openWin('<%=strScriptYolu%>popup/yorum-ihbar.asp?id=<%=kdGenel("yorumID")%>&tur=galeri','ihbar','toolbar=0,location=0,status=0,menubar=1,scrollbars=1,resizable=1,width=400,height=390')" data-href="JavaScript:openWin('<%=strScriptYolu%>popup/yorum-ihbar.asp?id=<%=kdGenel("yorumID")%>&tur=galeri','ihbar','toolbar=0,location=0,status=0,menubar=1,scrollbars=1,resizable=1,width=400,height=390')">Yöneticiye Bildir</a></td>
<td style="text-align:right; padding-right:7px; vertical-align:middle;"><a title="+1" onclick="yorumPuanVer('galeri','1','<%=kdGenel("yorumID")%>');"><img src="<%=strScriptYolu%>img/icon/arti.gif" alt="+1" border="0" /></a> <a title="-1" onclick="yorumPuanVer('galeri','0','<%=kdGenel("yorumID")%>');"><img src="<%=strScriptYolu%>img/icon/eksi.gif" alt="-1" border="0" /></a></td>
</tr>
</table>
</div>
<div class="yorum_ozet"><%=MesajFormatla(kdGenel("yorumID"))%></div><%

kdGenel.MoveNext
Loop

Response.Write "</div>"

End If
kdGenel.Close

Else

Response.Write "<p>MEZAR bulunamadı!</p>"

End If %>
</body>
</html>

AynAkolik_0660

Çavuş

76 Mesaj

Tüm Başarılarını Gör

ayhan_sr

Yüzbaşı

690 Mesaj

Tüm Başarılarını Gör

Benzer içerikler