YEŞİL AŞKI Yeni Üye
Kayıt Tarihi: 26-Haziran-2006 Gönderilenler: 5
|
Gönderen: 26-Haziran-2006 Saat 20:14 | Kayıtlı IP
|
|
|
<% Set conn = Server.CreateObject("ADODB.Connection" ) conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb" )
haber = Request.QueryString("haber" )
Set objRS = Server.CreateObject("ADODB.Recordset" ) sql = "select * from isimler where haber like '%" & haber & "%' order by haber" objRS.Open sql,conn,1,3
sonucsayisi = objRS.RecordCount If haber="" Then response.write "<font color=#000000 size=2 face=Tahoma>" response.write "<br>Lütfen Bir Değer Giriniz.</br><br> <INPUT TYPE=" "button" " VALUE=" " << Geri " " onClick=" "history.go(-1)" ">" response.write "</font>" response.End End If
If objRS.Eof Then response.write "<font color=#000000 size=2 face=Tahoma>" response.write "<br>Hiç Kayıt Bulunamadı.</br><br> <INPUT TYPE=" "button" " VALUE=" " << Geri " " onClick=" "history.go(-1)" ">" response.write "</font>" response.End Else response.write "<font face=Tahoma size=2 color=#000000>Bulunan Sonuçlar</font><br><br>" response.write "<table border=0 cellpadding=0 cellspacing=0 width=525>" response.write "<tr>" response.write "<td align=center width=90>" response.write "<font color=#000000 size=2 face=Tahoma><strong>" response.write "Tarih" response.write "</strong></font></td><td align=center width=120>" response.write "<font color=#000000 size=2 face=Tahoma>" response.write "Başlık" response.write "</font></td>" response.write "<td align=center width=335>" response.write "<font color=#000000 size=2 face=Tahoma><strong>" response.write "Özet" response.write "</strong></font></td>" response.write "</tr><tr><td colspan=4 align=center><img src=../images/cizik.gif></td></tr>" Do While not objRS.Eof response.write "<tr><td width=90 valign=top align=center>" response.write "<font color=#000000 size=2 face=Tahoma>" response.write objRS("tarih" ) response.write "</font>" response.write "</td><td align=center width=120 valign=top>" response.write "<font color=steelblue size=1 face=Tahoma><strong>" response.write objRS("baslik" ) response.write "</strong></font></td>" response.write "<td align=justify width=335 valign=top>" response.write "<a href= " response.write objRS("link" ) response.write ">" response.write objRS("ozet" ) response.write "<font color=#000000 size=2 face=Tahoma></a></font>" response.write "</td>" response.write "</tr><tr><td colspan=4 align=center><img src=../images/cizik.gif></td></tr>" objRS.Movenext Loop End If response.write "</table>" %>
burada arama sonuçları tek sayfada gözüküyor.bunu 10 tane sonuçtan sonra diğer sonuçları 2 diye bir buton yapıp diğer 2 ye basarak sonuçların devamına bakmalarını nasıl sağlayabilirim.Acemiyim asp ye yeni başladım.
|