Resim Üzerine Google reklam ? Mydesign

22-02-2010, 17:31:30

#1

AngellorD

Merhaba Arkadaşlar
Sizlere iki sorum olucak

Sitemde üst tarafa eklediğim bannerin yanına google reklamı eklemek istiyorum site mydesign nasıl ekleyebilirim yardımcı olursanız sevinirim

bide mydesigndan anlıyan arkadaşldar son dakikadan saati nasıl kaldırıyolar bunu sormak istiyorum

şimdiden çok teşekkürler yardımlarınız için

site adı vermek kural aykırı diye vermedim isteyen arkadaşa yollayabilirim daha iyi sonuç bulmanız için
23-02-2010, 20:18:01

#2

AngellorD

arkadaşlar bilen yok mu ?
23-02-2010, 21:24:04

#3

~~BirolTURK~~

Üyeliği durduruldu

Kodları verirseniz yardımcı olabilirim.
23-02-2010, 21:48:34

#4

AngellorD

bunu mydesginde biz panelden yapıyoruz ve tüm sayfalarda gösteriyor hangi kodu vermem gerek ?
23-02-2010, 22:30:17

#5

~~BirolTURK~~

Üyeliği durduruldu

Eklediğiniz banner hangi sayfada ise o sayfanın kodlarını yazarsanız yerleşim için gerekli yardımı yaparız.

23-02-2010, 23:01:16

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="ayarlar.asp"-->
<!--#include file="include/degiskenler.asp"-->
<!--#include file="include/baglanti.asp"-->
<!--#include file="include/bloklar.asp"-->
<!--#include file="include/kontrol.asp"-->
<!--#include file="fonksiyonlar/database.asp"-->
<!--#include file="fonksiyonlar/filtreler.asp"-->
<!--#include file="fonksiyonlar/link.asp"-->
<!--#include file="fonksiyonlar/tarih.asp"-->
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' MyDesign Haber
' http://www.mydesign.gen.tr

' Resim Galerisi Görüntüleme Kodları
' Son Düzenleme: 11 Temmuz 2009 (v0.7)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'// 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 strSQL
Dim strGaleriBaslik
Dim iHaberSayisi
Dim intGaleriYorumSayisi
Dim intGaleriHit

'// Galeri numarasını bul
Call getQueryString("galeriID")

'// 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 tblGaleriler WHERE Durum="& strDBTrue &" AND Galeri_ID = "& CInt(intId) &"", adoCon, 1, 3

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

	'// Kayıt varsa galeri gösteriliyor
	Else
		'// Galeri bilgileri alınıyor
		strGaleriBaslik = kdGenel("Ad")
		intGaleriHit = kdGenel("Hit")
		intSayfaSayisi = CInt(GaleriFotoSayisi(intId))

		'// Fotoğrafın görüntülenme sayısı güncelleniyor
		If Session("habercif"& intId) <> True Then
			Call GaleriHitArttir(intId, intGaleriHit)
		End If

		Session("habercif"& intId) = True
		
		SQL = "SELECT COUNT(yorumID) FROM tblGaleriYorumlar WHERE galeri_id = "& intId
		If blnAdminOnay Then SQL = SQL & " AND durum = "& strDBTrue
		kdYardimci.Open SQL, adoCon, 1, 3
		intGaleriYorumSayisi = CInt(kdYardimci(0))
		kdYardimci.Close
		
	End If
	kdGenel.Close
End If

If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1
intGecerliSayfa = CInt(intGecerliSayfa)
%>
<!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><% If blnHaberVar Then Response.Write strgaleriBaslik &" - " %><%=strSiteAdi%></title>
<% Call Head() %>
<meta name="generator" content="MyDesign Haber <%=strVersiyon%>" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>css/stil.css" />
<link rel="stylesheet" type="text/css" href="<%=strScriptYolu%>js/ajaxtabs/ajaxtabs.css" />
<script type="text/javascript" src="<%=strScriptYolu%>js/ajaxtabs/ajaxtabs.js"></script>
<script type="text/javascript" src="<%=strScriptYolu%>js/ajax.js"></script>
<% If blnSA Then %>
<script language="JavaScript" type="text/javascript">
function Sil() {
	if (confirm('Videoyu silmek istediğinize emin misiniz?')) {
		return true; } 
	else {
		return false; 
	}
}
</script>
<% End If %>
<!--#include file="include/ajax.asp"-->
</head>
<body>
<div id="ana">
<table id="main" cellpadding="0" border="0" cellspacing="0">
<tr>
	<td colspan="3" id="ust"><% Call Ust() %></td></tr>
<tr>
	<td colspan="3" id="bant"><% Call UstMenu() %></td></tr>
<tr>
	<td colspan="3" id="son-dakika"><% Call SonDakika() %></td></tr>
<tr>
	<td id="sol">
		<% Call Menu("galeri") %>
	</td>

	<td id="orta2" colspan="2">
	
		<%
		'// Galeri bulunamadıysa mesaj yazılıyor
		If blnHaberVar = False Then
			Response.Write("<div class=""uyari""><p><img src="""& strScriptYolu &"img/icon/hata.png"" /></p><p>Yanlış galeri numarası seçtiniz.</p></div>")

		'// Uygun kayıt varsa gösteriliyor
		Else

			Response.Write "<h1>"& strGaleriBaslik &"</h1>"

			SQL = "SELECT * FROM tblFoto WHERE Durum = "& strDBTrue &" AND Galeri_ID = "& intId &" ORDER BY Foto_ID ASC"
			If strVtTuru = "mySQL" Then SQL = SQL & " LIMIT "& intGecerliSayfa-1 &", "& 1
			kdGenel.Open SQL, adoCon, 1, 3

			If Not kdGenel.Eof Then 

				If strVtTuru = "msSQL" OR strVtTuru = "Access" Then
					kdGenel.PageSize = 1
					kdGenel.AbsolutePage = intGecerliSayfa
				End If


				Response.Write "<div class=""galeri_sayfala"">"

				If intSayfaSayisi > 1 Then

					If CInt(intGecerliSayfa) <> 1 Then %>
						<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)-1, strGaleriBaslik)%>">Önceki Sayfa</a> |<%
					End If 

					For intLooper = 1 To intSayfaSayisi 

						If intLooper = CInt(intGecerliSayfa) Then
							Response.Write "<span class=""arama-gecerli"">"& intLooper &"</span> | "
						Else %>
							<a class="sayfala" href="<%=LinkVer("galeri", intId, intLooper, strGaleriBaslik)%>"><%=intLooper%></a> | <%
						End If
					Next

					If CInt(intGecerliSayfa) <> intSayfaSayisi Then %>
						<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)+1, strGaleriBaslik)%>">Sonraki Sayfa</a><%
					End If

				End If

				Response.Write "</div>"


				intLooper = 0

				Do While Not kdGenel.Eof AND intLooper < 1 %>

					<div id="galeri">

						<a id="1" href="<%=kdGenel("Resim")%>" class="highslide" onclick="return hs.expand(this)"><img src="<%=kdGenel("Resim")%>" border="0" alt="<%=strGaleriBaslik%>" /></a>

					</div>

					<div id="galeri_aciklama"><%=kdGenel("Aciklama")%></div>
					<%
					intLooper = intLooper + 1

					kdGenel.Movenext
				Loop

				Response.Write "<div class=""galeri_sayfala"">"

				If intSayfaSayisi > 1 Then

					If CInt(intGecerliSayfa) <> 1 Then %>
						<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)-1, strGaleriBaslik)%>">Önceki Sayfa</a> |<%
					End If 

					For intLooper = 1 To intSayfaSayisi 

						If intLooper = CInt(intGecerliSayfa) Then
							Response.Write "<span class=""arama-gecerli"">"& intLooper &"</span> | "
						Else %>
							<a class="sayfala" href="<%=LinkVer("galeri", intId, intLooper, strGaleriBaslik)%>"><%=intLooper%></a> | <%
						End If
					Next

					If CInt(intGecerliSayfa) <> intSayfaSayisi Then %>
						<a class="sayfala" href="<%=LinkVer("galeri", intId, CInt(intGecerliSayfa)+1, strGaleriBaslik)%>">Sonraki Sayfa</a><%
					End If

				End If

				Response.Write "</div>"
	
			End If
			kdGenel.Close

		End If %>

            	<ul id="countrytabs" class="shadetabs">
                	<li><a href="<%=strScriptYolu%>popup/galeri-yorumlar.asp?galeri=<%=intId%>" class="selected" rel="#iframe">Yorumlar</a></li>
                	<li><a href="<%=strScriptYolu%>popup/galeri-yorum-yaz.asp?galeri=<%=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>
<tr>
	<td colspan="3" id="alt">

		<% Call Alt() %>

		<%
		' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
		Response.Write "<p>Altyapı: <a href=""http://www.mydesign.gen.tr"" target=""_blank"" title=""MyDesign | Kod Arşivi"">MyDesign Haber Sistemi</a></p>"
		' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır
		%>
	</td>
	</tr>
</table>
</div>
</body>
</html>