Yeni modülün site aramasına eklenmesi

[AdmiN]

<%
End If

objPagIngRS.Close
Set objPagIngRS = NothIng
end If 'strNavIcons

'################ siir SEARCH #######################
If Instr(strNavIcons,":7:") then
strSQL = "select * from siir where Keyword lIke'%" & search & "%' or DescrIptIon lIke '%" & search & "%' and show=1 order by siir_ID"

IPageSIze = show
'set page sIze

If Request.QueryStrIng("page") = "" Then
IPageCurrent = 1
Else
IPageCurrent = CInt(Request.QueryStrIng("page"))
End If

If Request.QueryStrIng("order") = "" Then
strOrderBy = "siir_Id"
Else
strOrderBy = Request.QueryStrIng("order")
End If


Set objPagIngRS = Server.CreateObject("ADODB.Recordset")
objPagIngRS.PageSIze = IPageSIze
objPagIngRS.CacheSIze = IPageSIze
objPagIngRS.Open strSQL, my_Conn, adOpenStatIc, adLockReadOnly, adCmdText


reccount = objPagIngRS.recordcount
IPageCount = objPagIngRS.PageCount

If IPageCurrent > IPageCount Then IPageCurrent = IPageCount
If IPageCurrent < 1 Then IPageCurrent = 1

If IPageCount = 0 Then
%>
<center><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>+1">Şiirler -
Arama Sonuçları :</font><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>+1" color="#FF0000"> "<%=search%>"</font><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>" color="<%= strDefaultFontColor %>"> bulunan <font color="#FF0000"><%=reccount%><% If reccount = 1 then %> Şiir<% else %> Şiirler<% end If %></font></center>



<%

'Response.WrIte "<center><font color=red sIze=3>Şiir Bulunamadı!</font></center>"
Else
objPagIngRS.AbsolutePage = IPageCurrent

%>
<center><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>+1">Şiirler -
Arama Sonuçları :</font><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>+1" color="#FF0000"> "<%=search%>"</font><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>" color="<%= strDefaultFontColor %>"> bulunan <font color="#FF0000"><%=reccount%><% If reccount = 1 then %> Şiir<% else %> Şiirler<% end If %></font></center>
<center><a href="siir_search.asp?search=<%=search%>&submIt1=Search&num=<%=show%>"><font face="<%= strDefaultFontFace %>" sIze="<%= strDefaultFontSIze %>">
Sonuçları Görüntüleyiniz[/url]</font></center>




değiştirilecek yerler kırmızı renkte belirtilmiştir. modülün isimleri, hedef dosyaları ve tablo isimlerini değiştirdiğinizde sitenizin ana aramasına eklenecektir. ve aramada sonuçlar gözükecektir.

Yazan: burajan