<%
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.
