<% 
Set Rawkmetal = Server.CreateObject("ADODB.Connection") 
Rawkmetal.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("****") 

set Rawk = server.createobject("ADODB.Recordset") 
sql = "select * from tblHaberler" 
Rawk.open sql,Rawkmetal,1,3 

Randomize 
rastgele = Int((Rnd*Rawk.RecordCount)+0) 
Rawk.Move(rastgele)%>
<h2><font color='#0099ff'>
 <%
Response.write Rawk("baslik") 
%><br></h2></font color>
<h3>
<font color='#cc6633'>
Kayıt Tarihi: 
<%Response.write Rawk("tarih")%><br>
 Okunma:
<%Response.write Rawk("okunma")%><br>
Şiire Verilen Puan: 
<%
Response.write Rawk("puan") 
%><br>
Oy Veren Kişi: 
<%
Response.write Rawk("oy_sayisi") 
%><br>
Şiir No: 
<%Response.write Rawk("haberID")
%>
<br>
<%
Response.write Rawk("haber") 
%><br></font color><font color='#0099ff'>
*** Şiire Yorum yazabilmek, puan vermek veya yazılı yorumları okumak için <br>şiirin gerçek sayfasına ulaşmanız gerekmektedir.
<br>Şiir başlığını arama bölümüne yapıştırarak şiirin gerçek sayfasına ulaşabilirsiniz.***

merhaba arkadşlar,
bir şiir sitesinde sayfada rastgele şiir göstermek için bu kodu kullanıyoruz. ama kırmızı renkle gösterdiğim kodda(BAŞLIK) bir değişiklik yapıp, başlığa tıklayınca o şiirin bulunduğu sayfaya yönlenmesi gerekiyor. bunu hangi kodla yapabiliriz?

sayfa: Türk Halk Şiiri Ve Şairleri

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