<script type="text/javascript"> 
  	 
  	function iletisimformkontrol(){ 
  	 
  		var adi_soyadi = $("input[name=adi_soyadi]").val(); 
  			adi_soyadi = jQuery.trim(adi_soyadi); 
  			 
  			var eposta = $("input[name=eposta]").val(); 
  			eposta = jQuery.trim(eposta); 
  			 
  			var mesaj = $("textarea[name=mesaj]").val(); 
  			mesaj = jQuery.trim(mesaj); 
  			 
  			var telefon = $("input[name=telefon]").val(); 
  			telefon = jQuery.trim(telefon); 
  			 
  		if (adi_soyadi == ''){		 
  		$("#kayit_bos").css({display:"block"}); 
  		$("#kayit_tamam").css({display:"none"}); 
  		$("#kayit_hata").css({display:"none"});			 
  		}else if (eposta == ''){ 
  		$("#kayit_bos").css({display:"block"}); 
  		$("#kayit_tamam").css({display:"none"}); 
  		$("#kayit_hata").css({display:"none"}); 
  		}else if (telefon == ''){ 
  		$("#kayit_bos").css({display:"block"}); 
  		$("#kayit_tamam").css({display:"none"}); 
  		$("#kayit_hata").css({display:"none"});	 
  		}else if (mesaj == ''){ 
  		$("#kayit_bos").css({display:"block"}); 
  		$("#kayit_tamam").css({display:"none"}); 
  		$("#kayit_hata").css({display:"none"});	 
  		}else{		 
  			var degerler = "adi_soyadi="+adi_soyadi+"&eposta="+eposta+"&telefon="+telefon+"&mesaj="+mesaj; 
  			 
  			$.ajax({ 
  					type: "POST", 
  					url: "kayit.php", 
  					data: degerler, 
  					success: function(eklemesonuc){ 
  					 
  						$('#kayit_tamam').html(eklemesonuc); 
  						$("#kayit_tamam").css({display:"block"}); 
  						$("#kayit_bos").css({display:"none"}); 
  						 
  						 
    
  					 
  					} 
  					 
  			}) 
  				 
  		} 
  	 
  	} 
  	 
  	</script>

<%  
  Set adresurl = Request.ServerVariables("QUERY_STRING")   
  secilialan = Split(adresurl,"/") 
  gelenveri=secilialan(4) 
  bol=Split(gelenveri,"-") 
  ID=guvenlik(bol(0)) 
  %>

<% 
  strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" 
   
  Public Function VeriAl(strGelen) 
  Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) 
  With objVeriAl 
    .Open "GET" , strGelen, FALSE 
    .sEnd 
  VeriAl =  .Responsetext 
  End With 
  SET objVeriAl = Nothing 
  End Function 
   
  strVeri = VeriAL(strAdres) 
  iDolar=InStr(strVeri,"USD" ) 
  strDolarAlis=Mid(strVeri,iDolar+50,10) 
  strDolarSatis=Mid(strVeri,iDolar+51,10) 
   
  iEuro=InStr(strVeri,"EUR" ) 
   
  strEuroAlis=Mid(strVeri,iEuro+38,11) 
  strEuroSatis=Mid(strVeri,iEuro+50,11) 
  %> 
  																 
                             Dolar: <%=strdolarsatis%>

<META content="" name=description> 
  <META content="" name=keywords> 
  <META http-equiv=Content content=text/html;charset=ISO-8859-9> 
  <META http-equiv=Content-Type content="text/html; charset=iso-8859-9"> 
  <style type="text/css"> 
  <!-- 
  A { FONT-SIZE: 11px; COLOR: #FF0000; FONT-FAMILY: Tahoma, sans-serif } 
   
  A:active { 
  	COLOR: red; 
  	font-size: 12px; 
  } 
  A:link { 
  	COLOR: #FF0000; 
  	TEXT-DECORATION: none; 
  	font-size: 12px; 
  } 
  A:visited { 
  	COLOR: #FF0000; 
  	TEXT-DECORATION: none; 
  	font-size: 12px; 
  } 
  A:hover { 
  	COLOR: #ff3300; 
  	TEXT-DECORATION: underline; 
  	font-size: 12px; 
  } 
  .style3 { 
  	color: #FFFFFF; 
  	font-size:14px; 
  .style4 {color: #000000} 
  body,td,th { 
  	color: #000000; 
  } 
  .style4 { 
  	color: white; 
  	font-size: 10px; 
  } 
  .style5{ 
  color: white; 
  font-size: 9px; 
  font-family:Geneva, Arial, Helvetica, sans-serif 
  } 
  body { 
  	background-color: #000000; 
  } 
  .style6 { 
  	color: #FFFFFF; 
  	font-size: 10px; 
  	font-family: Verdana, Arial, Helvetica, sans-serif; 
  } 
  .style7 { 
  	color: #FFFFFF; 
  	font-size: 15px; 
  	font-family: Verdana, Arial, Helvetica, sans-serif; 
  } 
  --> 
  </style> 
  <center> 
   
   
   
   
   
  <p> 
    <% 
  '// Nesneler açiliyor 
  Set baglanti = Server.Createobject("Adodb.Connection") 
  Set kd = Server.Createobject("Adodb.Recordset") 
  %> 
     
     
     
     
     
    <%'________________________________________________________________________%> 
    <% 
  '// Veritabani baglantisi yapiliyor 
  '// db.mdb kismini kendinize göre uyarlayin 
  baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.Mappath("db.mdb") &";" 
   
  isim = request.querystring("isim") 
   
  '// Kayitseti açiliyor 
  '// tablo kismini kendinize göre uyarlayin 
  kd.open "select * from yes where baslik like '%" & isim & "%' ", baglanti, 1, 3 
  Toplam = kd.RecordCount ' Tablodaki kayit sayisi 
  %> 
     
    <%'________________________________________________________________________%> 
     
     
     
     
   <span class="style7">  
     
    <% 
  '// Eger kayit yoksa 
  If Toplam = 0 Then 
  intSayfaSayisi = 0 
  Response.Write "Böyle Bir Kayıt Bulunamdı!..<br><br>Aramanızı Gözden Geçirerek Tekrar Deneyiniz.<br><br>Burayı Tıklayarak Ana Sayfaya dönebilirsiniz!."%> 
  </span> <% 
  '// Kayit varsa siraliyoruz 
  Else 
   
  '// Querystringden, hangi sayfada bulundugumuzu aliyoruz 
  intGecerliSayfa = Request.Querystring("sayfa") 
  If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 
   
  '// Bu kisim standart sayfalama sistemi 
  '// Buradaki 15, bir sayfada gösterilecek kayit sayisi 
  kd.PageSize =15 
  intSayfaSayisi= kd.PageCount 
  kd.AbsolutePage =intGecerliSayfa %> 
  <table width="870" height="30" border="1" align="center" bordercolor="#000000"> 
     
    <tr> 
      <td width="172" bgcolor="#000000" bordercolor="black" bordercolordark="#000000"> </td> 
      <td width="117" bordercolor="#FFFFFF"><div align="center"><span class="style6">Ana Sayfa </span> </div></td> 
      <td width="147" bordercolor="#FFFFFF"><div align="center"><span class="style6">Forum</span></div></td> 
      <td width="115" bordercolor="#FFFFFF"><div align="center"><span class="style6">Filmler</span></div></td> 
      <td width="143" bordercolor="#FFFFFF"><div align="center"><span class="style6">Diziler</span></div></td> 
      <td width="136" bordercolor="#FFFFFF"><div align="center"><span class="style6">Müzikler</span></div></td> 
    </tr> 
  </table> 
   
   
  <br /> 
   
  <%'// Kayitlari siralamaya basliyoruz 
  For m = 1 to 15 
  If kd.Eof Then Exit For 
  %> 
     
     
   
   
    <%'________________________________________________________________________%> 
   
      <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
   
   
   
    <style> 
  #01{width:500px; height:100 px ;font-family:tahoma; font-size:11px; color:black; text-align:center} 
  #02{width:300px; font-family:tahoma; font-size:11px; color:#666666; text-align:center} 
    </style> 
       
   
    <fieldset class="style3" id="01"> 
  <div align="left"> 
  <span class="style3"><strong><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=31785981&url=ss" data-href="ss"><%=kd("baslik")%></a></strong><hr /> 
   
  <img src="3d_Apple_Logo_102.jpg" width="225" height="151" /> 
   
  <hr /> 
  <span class="style4">WebMaster258@hotmail.com</span><br /> 
  <hr /> 
  <span class="style5"> Writen By.: Data (Tarih).:</span> 
  </fieldset> 
   
   
   
   
   
   
  <br /> 
  <br /> 
   
   
   
   
   
  <div style="position: absolute; width: 170px; height: 457px; z-index: 2; left: 720px; top: 63px; background-color: black; layer-background-color: #FFFFFF; border: 3px none #000000;" id="katman2"> 
   
  <style> 
  #03{width:170px; font-family:tahoma; font-size:11px; color:#666666; text-align:center} 
  </style> 
   
  <fieldset class="style3" id="03"> 
  <div align="left"> 
   
   
  <form method="get" action="arabul.asp"> 
  <input type="text" name="isim" size="15"> 
  <input type="submit" value="Ara" name="cmd" /></form> 
  Ana Sayfa<br /> 
  Forum<br /> 
  Filmler<br /> 
  Diziler<br /> 
  Programlar<br /> 
  Müzikler<br /> 
  </fieldset> 
  </div> 
   
  <%'________________________________________________________________________%> 
   
   
   
   
   
   
   
   
   
   
  <% 
  kd.Movenext 
  Next 
   
  End If%> 
   
  <% 
  '// Kayitseti nesnesini kapatiyoruz 
  kd.Close 
  Set kd = Nothing 
   
  '// Veritabani baglantisini kapatiyoruz 
  baglanti.Close 
  Set baglanti = Nothing %> 
   
  <%'Veritabanindan veri çekme sayfamizin kodlari böyle. Kirmizi ile yazilan alanlar, sayfalama sisteminde kullanacagimiz degiskenler. Lacivert alanlar ise, kendi sayfaniza göre düzenlemeniz gereken alanlar.Sayfalama sistemini daha kolay anlamak için, sistemi asagidaki gibi 7’e ayirabiliriz.Bu kisimlarin neler oldugunu kodlarda ayrintili olarak göreceksiniz.%> 
  <% 
  Aralik = 2 
  intSayfaAltSiniri = intGecerliSayfa - Aralik 
  intSayfaUstSiniri = intGecerliSayfa + Aralik 
  intSolGrupSayisi = 1 + Aralik 
  intSagAltSinir = intSayfaSayisi - Aralik 
  %> 
   
   
   
  <% 
  If (intSayfaUstSiniri >intSayfaSayisi) Then 
  intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) 
  intSayfaUstSiniri = intSayfaSayisi 
  End If 
  %> 
   
   
  <% 
  If (intSayfaAltSiniri <= 0) Then 
  intSayfaAltSiniri = 1 
  intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) 
  If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi 
  End If 
  %> 
   
   
  <% 
  If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 
  If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 
  %> 
   
   
  <% 
  If intGecerliSayfa >1 Then %> 
  <div align="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=31785981&url=arabul.asp?sayfa=1" title="Ilk Sayfa" data-href="arabul.asp?sayfa=1" title="Ilk Sayfa">«« Birinci</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=31785981&url=arabul.asp?sayfa=<%=intGecerliSayfa-1%>" title="Önceki Sayfa" data-href="arabul.asp?sayfa=<%=intGecerliSayfa-1%>" title="Önceki Sayfa">« Önceki</a> 
    <% 
  End If 
  %> 
     
     
    <% 
  For i = 1 to intSolGrupSayisi 
  If CInt(i) = (intGecerliSayfa) Then 
  Response.Write " <b>" 
  Else %> 
      <a href="arabul.asp?sayfa=<%=i%>" title="<%=i%>. Sayfa"> 
    <% 
  End If 
  Response.Write i &".</a></b>" 
  Next 
  %> 
         
         
    <% 
  If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write "<b>. . .</b>" 
  %> 
         
    <% 
  For i = intSayfaAltSiniri to intSayfaUstSiniri 
  If CInt(i) = CInt(intGecerliSayfa) Then 
  Response.Write " <b>" 
  Else %> 
    <span class="style3"><a href="arabul.asp?sayfa=<%=i%>" title="<%=i%>. Sayfa"></span> 
    <% 
  End If 
  Response.Write i &".</a></b>" 
  Next 
  %> 
         
         
    <% 
  If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write "<b>. . .</b>" 
  %> 
  <span class="style3"> 
    <% 
  For i = intSagAltSinir to intSayfaSayisi 
  If CInt(i) = CInt(intGecerliSayfa) Then 
  Response.Write " <b>" 
  Else %><a href="arabul.asp?sayfa=<%=i%>" title="<%=i%>. Sayfa"> 
    <% 
  End If 
  Response.Write i &".</a></b>" 
  Next 
  %> 
      </span> 
    <% 
  If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %> 
    <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=31785981&url=arabul.asp?sayfa=<%=intGecerliSayfa+1%>" title="Sonraki Sayfa" data-href="arabul.asp?sayfa=<%=intGecerliSayfa+1%>" title="Sonraki Sayfa">Sonraki »</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=31785981&url=arabul.asp?sayfa=<%=intSayfaSayisi%>" title="Son Sayfa" data-href="arabul.asp?sayfa=<%=intSayfaSayisi%>" title="Son Sayfa"> Sonuncu »» </a> 
    <% 
  End If 
  %> 
  </p> 
  <!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> 
  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 
  <title>..:: Arama Sonuçları  /  Web-Master-258 ::..</title> 
   
   
    <style type="text/css"> 
  <!-- 
  body { 
  	background-color: #000000; 
  } 
   
  --> 
  </style> 
   
   
  <span class="style6">Design By.: <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=31785981&url=mailto:webmaster258@hotmail.com" data-href="mailto:webmaster258@hotmail.com">Web-Master-258</a><br /><br /> 
   
  ASP (Active Server Pages) - Access Database System</span>