<%
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
%>
<%
Set RS = Server.CreateObject("ADODB.Recordset")
Dim colorchanger
Dim color1
Dim color2
colorchanger = 0
color1 = "#000000"
color2 = "#dadada"
dim intPage
dim intPageCount
dim intRecordCount
If Request.QueryString("page") = "" Then
intPage = 1
Else
intPage = Request.QueryString("page")
End If
RS.CursorLocation = 3
RS.CursorType = 3
RS.ActiveConnection = Conn
RS.Open SQL, Conn, 1, 3
RS.PageSize = 50
RS.CacheSize = RS.PageSize
intPageCount = RS.PageCount
intRecordCount = RS.RecordCount
If NOT (RS.BOF AND RS.EOF) Then
%>
Toplam <%=Rs.recordcount%> Kayıt Bulunmustur. |
|
|
|
<%
If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
If CInt(intPage) <= 0 Then intPage = 1
If intRecordCount > 0 Then
RS.AbsolutePage = intPage
intStart = RS.AbsolutePosition
If CInt(intPage) = CInt(intPageCount) Then
intFinish = intRecordCount
Else
intFinish = intStart + (RS.PageSize - 1)
End if
End If
If intRecordCount > 0 Then
For intRecord = 1 to RS.PageSize
%>
<%=RS("yazar")%> (<%=RS("Date_In")%>): <%=RS("makalead")%> <%=RS("adi")%> , <%=RS("volum")%> , (<%=RS("sayi")%>), <%=RS("sayfa")%>.
|
|
<%
RS.MoveNext
If colorchanger = 1 Then
colorchanger = 0
color1 = "#000000"
color2 = "#dadada"
Else
colorchanger = 1
color1 = "#000000"
color2 = "#dadada"
End If
If RS.EOF Then Exit for
Next
%>
|
<%End If
Else
If (SearchFor = "") Then%>
Mevcut değil.
<%Else%>
Aramada, belirttiğiniz kriterlere
göre benzer bir sonuç bulunamadı.
<%End If
End If
RS.close
Set RS = Nothing
%>
|
|
<%
%>
<%
%>
|
|