|
|
<%if kontrol.recordcount = "0" then
Response.write "Kayıt Bulunamadı."
else
Response.write "Toplam "&kontrol.recordcount&" kayıt bulundu"%>
|
|
| GÖRÜLEN RÜYA |
RÜYANIN TABİRİ |
<%
Dim sayfa
sayfa = Request.QueryString("sayfa")
if sayfa="" then
sayfa = 1
end if
Set yaz = Server.CreateObject("Adodb.RecordSet")
sql_yaz = "Select * from ruyatabiri where sorular like '%" &kel&"%'"
yaz.open sql_yaz,bag,1,3
yaz.pagesize = 50
yaz.absolutepage = sayfa
sayfa_sayisi = yaz.pagecount
for i=1 to yaz.pagesize
if yaz.eof then exit for
%>
|
| <%=yaz("sorular")%> |
<%=yaz("cevaplar")%> |
<% yaz.movenext
Next %>
|
Sayfa No :
<%
for z=1 to sayfa_sayisi
if sayfa=z then
response.write z
else
response.write "["&z&"]"
end if
next
%>
|
<%
end if
end if
end if
end if
end if
end if
%>
webkaynak.org
|
|