Infatti se metto gli apici in quella sessione succede che la pagina visualizza per primi i records relativi alla categoria da me scelta poi tutti gli altri. Se tolgo gli apici anche specificando categoria non succede niente.
Il codice della pagina è
codice:
<% '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 = 5
recRange = 5
%>
<%
' Get table name
tablename = "[accouncements]"
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 & "[Title] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[SmallNotes] LIKE '%" & pSearch & "%' OR "
b_search = b_search & "[DetailedNotes] 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("accouncements_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 = "date"
DefaultOrderType = "DESC"
' 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("accouncements_OB") = OrderBy Then
If Session("accouncements_OT") = "ASC" Then
Session("accouncements_OT") = "DESC"
Else
Session("accouncements_OT") = "ASC"
End if
Else
Session("accouncements_OT") = "ASC"
End If
Session("accouncements_OB") = OrderBy
Session("accouncements_REC") = 1
Else
OrderBy = Session("accouncements_OB")
if OrderBy = "" then
OrderBy = DefaultOrder
Session("accouncements_OB") = OrderBy
Session("accouncements_OT") = DefaultOrderType
End If
End If
' Check for a START parameter
If Request.QueryString("start").Count > 0 Then
startRec = Request.QueryString("start")
Session("accouncements_REC") = startRec
Else
startRec = Session("accouncements_REC")
if not isnumeric(startRec) or startRec = "" then
'reset start record counter
startRec = 1
Session("accouncements_REC") = startRec
End If
End If
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
cat = "arte"
' Build Query
strsql = "select * from [accouncements1]"
If dbwhere <> "" Then
strsql = strsql & " WHERE cat" '"& cat &"' AND " & dbwhere
End If
if OrderBy <> "" then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("accouncements_OT")
end if
'response.write strsql
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount
%>
<p align="center">
Our Recent News
<p align="center" style="margin-top: 0; margin-bottom: 0">
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="4" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td>
<form action="default.asp">
<input name="psearch" size=20>
<input type="submit" name="Submit" value="Search">
</td>
<td><font size="-1">Show All
Amministrazione</font></td>
</tr>
</table>
</center>
</form>
<center>
<%
if totalRecs > 0 then
' Find out if there should be Backward or Forward Buttons on the table.
If startRec = 1 Then
isPrev = False
Else
isPrev = True
PrevStart = startRec - displayRecs
If PrevStart < 1 Then PrevStart = 1 %>
<a href="default.asp?start=<%=PrevStart%>"><font size="-1">
[<<INDIETRO]</font></a>
<%
End If
' Display Page numbers
If (isPrev OR (NOT rs.EOF)) Then
If (NOT isPrev) Then Response.Write ""
x = 1
y = 1
dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1
dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1
If (dx1+displayRecs*recRange-1) > totalRecs then
dx2 = (totalRecs\displayRecs)*displayRecs+1
dy2 = (totalRecs\displayRecs)+1
Else
dx2 = dx1+displayRecs*recRange-1
dy2 = dy1+recRange-1
End If
While x <= totalrecs
If x >= dx1 and x <= dx2 Then
If Clng(startRec) = Clng(x) Then %>
<font size="-1"><%=y%></font>
<% Else %>
<font size="-1"><%=y%></font>
<% End If
x = x + displayRecs
y = y + 1
elseif x >= (dx1-displayRecs*recRange) and x <= (dx2+displayRecs*recRange) then
if x+recRange*displayRecs < totalRecs then %>
<font size="-1"><%=y%>-<%=y+recRange-1%></font>
<% else
ny=(totalRecs-1)\displayRecs+1
if ny = y then %>
<font size="-1"><%=y%></font>
<% else %>
<font size="-1"><%=y%>-<%=ny%></font>
<% end if
end if
x=x+recRange*displayRecs
y=y+recRange
else
x=x+recRange*displayRecs
y=y+recRange
End If
Wend
End If
' Next link
If NOT rs.EOF Then
NextStart = startRec + displayRecs
isMore = True %>
<a href="default.asp?start=<%=NextStart%>"><font size="-1">
[AVANTI>>]</font></a>
<% Else
isMore = False
End If %>
<font size="2">News</font><% If stopRec > recCount Then stopRec = recCount %>
<font size="-1"><%= startRec %> to <%= stopRec %> of <%= totalRecs %></font>
<% Else %>
<font size="-1">Nessuna pagina presente!</font>
<% End If %>
<form>
<table border="0" cellspacing="3" cellpadding="5" width="95%">
<%
'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="#ffffff"
End If
%>
<%
x_Title = rs("Title")
x_SmallNotes = rs("SmallNotes")
x_date = rs("date")
%>
<tr>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="242" id="AutoNumber1" height="39">
<tr>
<td width="100%" style="border-left-width: 1; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-width: 1"><font size="-1">"><% response.write x_Title %></font></td>
</tr>
<tr>
<td width="30%"><font size="-1">
<%= replace(x_SmallNotes & "",chr(10),"
") %>
</font></td>
</tr>
</table>
</tr>
<tr>
</tr>
<%
end if
rs.MoveNext
Loop
%>
</table>
</form>
</div>
<%
' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>
ciao e grazie!
Rispondi quotando
