<%@ codepage = 1256 LCID = 1065 %>
<% 'no security checking %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<%
displayRecs = 20
recRange = 10
%>
<%
' Get table name
tablename = "[akhbar]"
dbwhere = ""
a_search = ""
b_search = ""
%>
<%
' Get search criteria for basic search
pSearch = Request.QueryString("psearch")
If pSearch <> "" Then
pSearch = replace(pSearch,"'","''")
pSearch = replace(pSearch,"[","[[]")
b_search = b_search & "[titr] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[sharh] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[date-sh] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[data-m] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[time] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[pic] LIKE '%" & pSearch & "%' OR "
End If
If len(b_search) > 4 Then
b_search = mid(b_search,1,len(b_search)-4)
b_search = "(" & b_search & ")"
End If
%>
<%
'Build search criteria
If a_search <> "" Then
dbwhere = dbwhere & a_search 'advance search
ElseIf b_search <> "" Then
dbwhere = dbwhere & b_search 'basic search
End If
'Save search criteria
If dbwhere <> "" Then
Session("tablename") = tablename
Session("dbwhere") = dbwhere
'reset start record counter
startRec = 1
Session("akhbar_REC") = startRec
Else
If tablename = Session("tablename") Then
dbwhere = Session("dbwhere")
Else
'reset search criteria
dbwhere = ""
Session("dbwhere") = dbwhere
End If
End If
'Get clear search cmd
If Request.QueryString("cmd").Count > 0 then
cmd=Request.QueryString("cmd")
If ucase(cmd) = "RESET" Then
'reset search criteria
dbwhere = ""
Session("dbwhere") = dbwhere
End If
End If
%>
<%
' Load Default Order
DefaultOrder = ""
DefaultOrderType = ""
' Check for an Order parameter
OrderBy = ""
If Request.QueryString("order").Count > 0 Then
OrderBy = Request.QueryString("order")
' Check if an ASC/DESC toggle is required
If Session("akhbar_OB") = OrderBy Then
If Session("akhbar_OT") = "ASC" Then
Session("akhbar_OT") = "DESC"
Else
Session("akhbar_OT") = "ASC"
End if
Else
Session("akhbar_OT") = "ASC"
End If
Session("akhbar_OB") = OrderBy
Session("akhbar_REC") = 1
Else
OrderBy = Session("akhbar_OB")
if OrderBy = "" then
OrderBy = DefaultOrder
Session("akhbar_OB") = OrderBy
Session("akhbar_OT") = DefaultOrderType
End If
End If
' Check for a START parameter
If Request.QueryString("start").Count > 0 Then
startRec = Request.QueryString("start")
Session("akhbar_REC") = startRec
Else
startRec = Session("akhbar_REC")
if not isnumeric(startRec) or startRec = "" then
'reset start record counter
startRec = 1
Session("akhbar_REC") = startRec
End If
End If
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
' Build Query
strsql = "select * from [akhbar]"
If dbwhere <> "" Then
strsql = strsql & " WHERE " & dbwhere
End If
if OrderBy <> "" then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("akhbar_OT")
end if
'response.write strsql
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount
%>
<%
'Avoid starting record > total records
if clng(startRec) > clng(totalRecs) then
startRec = totalRecs
end if
'Set the last record to display
stopRec = startRec + displayRecs - 1
'Move to first record directly for performance reason
recCount = startRec - 1
if not rs.eof then
rs.movefirst
rs.move startRec - 1
end if
recActual = 0
'Do While (NOT rs.EOF) AND (recCount < stopRec)
recCount = recCount + 1
If Clng(recCount) >= Clng(startRec) Then
recActual = recActual + 1 %>
<%
'set row color
bgcolor="#FFFFFF"
%>
<%
' Display alternate color for rows
If recCount mod 2 <> 0 Then
bgcolor="#F5F5F5"
End If
%>
<%
x_titr = rs("titr")
x_brief = rs("brief")
x_date2Dsh = rs("date-sh")
x_sharh = rs("sharh")
x_data2Dm = rs("data-m")
x_time = rs("time")
x_pic = rs("pic")
x_id = rs("id")
%>
::طرح تکریم مخاطبان::
