dostum bu verecegim kodları. not defterini aç kopyala ve kodlar içinde yer alan buraya buraya ekleyecegin döviz kurlarını ekle yazısının yer aldıgı yere döviz kuru kodlarını ekle ve sayfayı kur asp diye kaydet
<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="inc_ayarlar.asp"-->
<!--#include file="inc_fonksiyonlar.asp"-->
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' mydesign haber sistemi
' W: http://www.mydesign.gen.tr
' Anasayfa Kodları
' Son Düzenleme: 31 Ocak 2007 (v0.4.4)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// 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 blnSuz
Dim blnAra
Dim SQL
Dim intToplam
Dim G_Kayit
Dim T_Kayit
Dim intLooper
Dim intSayfaSayisi
Dim intHaberYorumSayisi
Dim blnHaberYorum
Dim intHaberID
Dim strHaberBaslik
Dim strHaberResim
Dim intHaberEditor
Dim dtmHaberTarih
Dim strHaberOzet
Dim intHaberKategori
Dim intHaberPuan
Dim intHaberOySayisi
Dim intHaberOkunma
Dim intArananEditorID
blnSuz = False
blnAra = False
blnMenuAc = False
'// Arama verileri alınıyor
intArananKategori = Temizle(Request.QueryString("kategori"))
strArananKelime = Temizle(Request.QueryString("kelime"))
intArananEditorID = Temizle(Request.QueryString("editor"))
If IsNumeric(intArananKategori) Then
strArananKategori = KategoriBul(intArananKategori)
If strArananKategori <> "" Then blnSuz = True
End If
If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then blnAra = True
If Len(strArananKelime) >= 3 Then blnAra = True
'// Veritabanı sorgulaması yapılıyor
SQL = "SELECT haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, resim, okunma"
SQL = SQL & " FROM tblHaberler WHERE durum=True AND onay=True"
If blnAra Then SQL = SQL & " AND (baslik LIKE '%" & strArananKelime & "%' OR ozet LIKE '%" & strArananKelime & "%' OR haber LIKE '%" & strArananKelime & "%')"
If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then SQL = SQL & " AND editor = "& CInt(intArananEditorID) &""
If blnSuz Then SQL = SQL & " AND kategori = "& CInt(intArananKategori) &""
If blnAra = False AND blnSuz Then
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = "& CInt(intArananKategori) &"", adoCOn, 1, 3
If Not kdYardimci.Eof Then
SQL = SQL & "OR ("
Do While Not kdYardimci.Eof
SQL = SQL & "kategori = "& kdYardimci("KatID") &" OR "
kdYardimci.Movenext
Loop
SQL = SQL & " kategori = "& CInt(intArananKategori) &")"
End If
kdYardimci.Close
End If
SQL = SQL & " ORDER BY onemli ASC, Tarih DESC, haberID DESC"
kdGenel.Open SQL, adoCon, 1, 3
intToplam = kdGenel.RecordCount %>
<!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%> <% If blnSuz Then Response.Write " » "& strArananKategori %><% If blnAra Then Response.Write " » Arama Sonuçları ("& strArananKelime &")"%></title>
<!--#include file="inc_head.asp"-->
<meta name="generator" content="mydesign | haberci v<%=strVersiyon%>" />
<!--
Uygulama: mydesign haber sistemi
Versiyon: <%=strVersiyon%>
Ücretsiz Download: http://www.mydesign.gen.tr
-->
</head>
<body>
<div id="bg">
<div id="header">
<div style="float:left;text-align:center"><a href="default.asp" title="Anasayfa"><h1><%=strSiteAdi%></h1></a><br />
<h2><%=strSiteAciklamasi%></h2></div>
<div style="widş:468px;float:right;text-align:right"><!--#include file="inc_banner.asp"--></div>
<br style="clear:boş;display:none" />
</div>
<div id="sol_menu">
<!--#include file="inc_sol_menu.asp"-->
</div>
<div id="orta">
BURAYA EKLEYECEGİN DÖVİZ KURLARINI EKLE NE EKLEMEK İSTİYOSAN EKLE VE SAYFAYI kur.asp diye kaydet
</div>
<div id="sag_menu">
<!--#include file="inc_sag_menu.asp"-->
</div>
<br style="clear:boş" />
<div id="footer">
<!--#include file="inc_alt.asp"--><br />
<span style="font-size:10px; color:#cccccc">Altyapı: mydesign haber sistemi v<%=strVersiyon%> [ <a href="http://www.mydesign.gen.tr" target="_blank" style="font-size:10px;font-weight:normal;">w</a> ]</span></p>
</div>
</div>
</body>
</html>