<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<%
displayRecs = 1
recRange = 1
%>
<%
dbwhere = ""
masterdetailwhere = ""
searchwhere = ""
a_search = ""
b_search = ""
whereClause = ""
%>
<%
'Get clear search cmd
If Request.QueryString("cmd").Count > 0 Then
cmd = Request.QueryString("cmd")
If UCase(cmd) = "RESET" Then
'reset search criteria
searchwhere = ""
Session("texosespecial_searchwhere") =searchwhere
ElseIf UCase(cmd) = "RESETALL" Then
'reset search criteria
searchwhere = ""
Session("texosespecial_searchwhere") =searchwhere
End If
'reset start record counter (reset command)
startRec = 1
Session("texosespecial_REC") = startRec
End If
'construct dbwhere
If masterdetailwhere <> "" Then
dbwhere = dbwhere & "(" & masterdetailwhere & ") AND "
End If
If searchwhere <> "" Then
dbwhere = dbwhere & "(" & searchwhere & ") AND "
End If
If Len(dbwhere) > 5 Then
dbwhere = Mid(dbwhere, 1, Len(dbwhere)-5) 'trim right most AND
End If
%>
<%
' Load Default Order
DefaultOrder = ""
DefaultOrderType = ""
'No Default Filter
DefaultFilter = ""
' 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("texosespecial_OB") = OrderBy Then
If Session("texosespecial_OT") = "ASC" Then
Session("texosespecial_OT") = "DESC"
Else
Session("texosespecial_OT") = "ASC"
End if
Else
Session("texosespecial_OT") = "ASC"
End If
Session("texosespecial_OB") = OrderBy
Session("texosespecial_REC") = 1
Else
OrderBy = Session("texosespecial_OB")
If OrderBy = "" Then
OrderBy = DefaultOrder
Session("texosespecial_OB") = OrderBy
Session("texosespecial_OT") = DefaultOrderType
End If
End If
' Open Connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
' Build SQL
strsql = "SELECT * FROM [texosespecial]"
If DefaultFilter <> "" Then
whereClause = whereClause & "(" & DefaultFilter & ") AND "
End If
If dbwhere <> "" Then
whereClause = whereClause & "(" & dbwhere & ") AND "
End If
If Right(whereClause, 5)=" AND " Then whereClause = Left(whereClause, Len(whereClause)-5)
If whereClause <> "" Then
strsql = strsql & " WHERE " & whereClause
End If
If OrderBy <> "" Then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("texosespecial_OT")
End If
'Response.Write strsql
Set rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount
' Check for a START parameter
If Request.QueryString("start").Count > 0 Then
startRec = Request.QueryString("start")
Session("texosespecial_REC") = startRec
ElseIf Request.QueryString("pageno").Count > 0 Then
pageno = Request.QueryString("pageno")
If IsNumeric(pageno) Then
startRec = (pageno-1)*displayRecs+1
If startRec <= 0 Then
startRec = 1
ElseIf startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 Then
startRec = ((totalRecs-1)\displayRecs)*displayRecs+1
End If
Session("texosespecial_REC") = startRec
Else
startRec = Session("texosespecial_REC")
If Not IsNumeric(startRec) Or startRec = "" Then
'reset start record counter
startRec = 1
Session("texosespecial_REC") = startRec
End If
End If
Else
startRec = Session("texosespecial_REC")
If Not IsNumeric(startRec) Or startRec = "" Then
'reSet start record counter
startRec = 1
Session("texosespecial_REC") = startRec
End If
End If
%>
Especial Pequenas Histórias
_
_
_
_
<%
'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
%>
<%
'Load Key for record
key = rs("id")
x_id = rs("id")
x_Titulo = rs("Titulo")
x_ft1 = rs("ft1")
x_texto = rs("texto")
%>
<%= replace(x_Texto & "",chr(10)," ") %>
<%
End If
rs.MoveNext
Loop
%>
<%
' Close recordSet and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>
