<% Dim orderBy orderBy = request.querystring("orderby") dim SQL dim SearchFor dim SearchWhere SearchWhere = request("SearchWhere") SearchFor = request("SearchFor") dim SQL_SearchFor dim SQL_SearchWhere If (SearchWhere = "All") Then SQL_SearchWhere = "(adi LIKE ('%" & SearchFor & "%') OR anahtar LIKE ('%" & SearchFor & "%') OR makalead LIKE ('%" & SearchFor & "%') OR yazar LIKE ('%" & SearchFor & "%') OR Date_In LIKE ('%" & SearchFor & "%'))" Else SQL_SearchWhere = SearchWhere & " LIKE ('%" & SearchFor & "%')" End If If NOT (SearchFor = "") Then SQL_SearchFor = " WHERE " & SQL_SearchWhere Else SQL_SearchFor = "" End If SQL = "SELECT * FROM sebu" & SQL_SearchFor & SQL_OrderBy %> <% dim RSCOUNT set RSCOUNT = server.createobject("adodb.recordset") SQLCOUNT = "SELECT id FROM sebu" RSCOUNT.Open SQLCOUNT, Conn, 1, 3 dim totalCount totalCount = RSCOUNT.recordcount RSCOUNT.close set RSCOUNT = nothing %>
<%End If Else If (SearchFor = "") Then%> Mevcut değil. |
|||||||||||||||
