Ho un problema quando devo filtrare i dati per "codice".
Dunque la pagina quando viene eseguita mi fa vedere tutti i record e li posso sortare come voglio e fin qui tutto ok, però quando voglio filtrarli per un codice non mi funziona chi può aiutarmi ?
Grazie
*******************************************************
<!--#include virtual="/WebCCC/_Include/$IncludeServer.asp"-->
<% call GFR_Titolo("Issuing - Carte Emesse/Operative/Bloccate (Totali)",2) %>
<%
'if session("Codice Codice")= "08000" then
' response.redirect "/Trasparenza/ind_co.htm"
'end if
%>
<%
Response.Buffer = true
Response.Clear
Response.Expires = 100
%>
<html>
<title>Carte Emesse Totali</title>
<head>
<link rel="stylesheet" href="/WebCCC/_StyleSheet/Sheet1.css">
<!--
<style>
TD {background: white;color : blue;font-family : Arial;font-size: 12px;}
TH {background: navy; color : yellow; font-family : Arial ;font-size: 12px;}
</style>
-->
</head>
<body bgcolor="#0000ff" link="#0000ff" alink="#0000ff" vlink="#0000ff"">
<%
'Const adOpenStatic = 3
'Const adUseClient = 3
dim CN '--- The ADO Connection to the database.
dim RS '--- The ADO Recordset that stores the data.
dim CP '--- The current page.
dim PS '--- The amount of pages.
dim RR '--- A loop counter variable.
dim CC '--- A loop counter variable.
dim PP '--- Position of a square bracket within a string.
dim DR '--- Display this many rows on a page.
dim SQ '--- The SQL used to generate the report.
dim ST '--- The column to sort by.
dim SD '--- The direction of the sort.
dim LS '--- The column we sorted by last time.
dim LZ '--- The direction of the sort we used last time.
dim strConn '--- The connection string to talk to the database.
dim CL '--- Used to store the color of the report rows.
if isobject(session("Report")) then
set RS = session("Report")
else
Set CN = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
CN.Open session("DBCCC")
PP = Request.Form("PG")
SQ = ucase("select Data,Codice,saldonew,revnew,saldoattive,revattive,saldoblock,revblock from [CarteEmesse - Totali]")
'*****************************************************************
dim RK,RC,FCodice
if session("CodiceCodice")= "08000" then
If Request.form("ACTION") = "Seleziona" then
session("CodiceCodice")= Request.form("FCodice")
SQ= SQ & " where Codice=" & Request.form("FCodice")
else
end if
else
SQ= SQ & " where Codice=" & session("CodiceCodice")
end if
'*****************************************************************
RS.CursorLocation = adUseClient
RS.Source = SQ
' RS.CursorType = adOpenStatic
set RS.ActiveConnection = CN
RS.Open
set RS.ActiveConnection = nothing
CN.Close
end if
If Trim(Request("SortBy")) <> "" and Trim(Request("Resort")) <> "" Then
ST = Request("SortBy")
PP = Instr(2, RS.Sort, "]")
If PP > 0 Then
LS = Left(RS.Sort, PP)
LZ = Trim(Mid(RS.Sort, PP + 2))
End If
If Trim(ST) <> Trim(LS) then
SD = "asc"
Else
If LZ = "asc" Then
SD = "desc"
Else
SD = "asc"
End If
End If
RS.Sort = ST & " " & SD
End If
PS = 10
If Trim(request("txtPageSize")) <> "" then
PS = request("txtPageSize")
End If
If Trim(Request("lstPages")) <> "" and Trim(Request("AllRecs")) = "" then
CP = Request("lstPages")
Else
CP = 1
End If
If Not (RS.BOF and RS.EOF) Then
RS.PageSize = PS
If CInt(CP) > CInt(RS.PageCount) Then
CP = RS.PageCount
End If
RS.AbsolutePage = CP
End If
%>
<script language="javascript">
function Refresh()
{document.frmReport.submit();
}
function MoveToPage(PageNumber)
{if (PageNumber != -1)
{document.frmReport.lstPages[PageNumber].selected = true;}
else
{document.frmReport.lstPages[0].selected = true;}
Refresh();
}
function ShowAllRecs()
{document.frmReport.txtPageSize.value = <%=RS.RecordCount%>;
document.frmReport.AllRecs.value = "yes"
Refresh();
}
function ReSort(SortString)
{document.frmReport.SortBy.value = SortString;
document.frmReport.ReSort.value = "yes";
Refresh();
}
</script>
<center>
<table border="0" width="100%">
<tr>
<td align="left">
<font face="helvetica,verdana,arial" size="1" color="#0000ff">
<b><%=Now()%></b></font>
</td>
<td align="center">
<font face="helvetica,verdana,arial" size="4" color="#0000ff">
Totali Carte Emesse</font>
</td>
<td align="right">
<%If Not (RS.BOF and RS.EOF) Then%>
<font face="helvetica,verdana,arial" size="1" color="#0000ff">
<b>(Page <%=CP%> of <%=RS.PageCount%>)</b>
</font>
<%End If%>
</td>
</tr>
</table>
</center>
<form name="frmReport" method="post" action="CarteEmesseTotali.asp">
<table cellspacing="2" cellpadding="2" border="0" width="100%">
<tr>
<td align="center" bgcolor="#00cc33" nowrap>
<font face="helvetica,verdana,arial" size="1" color="#99cccc">
<a href="javascript:Refresh()"
title="Applica le impostazioni al Report"
onmouseover="window.status='Refresh Report'; return true"
onmouseout="window.status=''; return true">
Refresh del Report</a></font>
</td>
<td nowrap>
</td>
<td align="center" bgcolor="#00cc33" nowrap>
<font face="helvetica,verdana,arial" size="1" color="#99cccc">
<a href="javascript:ShowAllRecs()"
title="Mostra tutti i records in una Videata"
onmouseover="window.status='Show All Records'; return true"
onmouseout="window.status=''; return true">
Mostra Tutti i Records</a></font>
</td>
<td align="right" valign="top" width="100%" nowrap>
<%If Not (RS.BOF and RS.EOF) Then%>
<font face="helvetica,verdana,arial" size="1" color="#0000ff">
<b>Records per Pagina:</b></font>
<input type="text" size="3" name="txtPageSize" value="<%=PS%>">
<font face="helvetica,verdana,arial" size="1" color="#0000ff">
<%If RS.PageCount > 1 Then%>
<b>Vai a Pagina:</b></font>
<select size="1" name="lstPages" onChange="Refresh();">
<% For RR=1 To RS.PageCount %>
<% If CInt(CP) = CInt(RR) Then %>
<option selected value="<%=RR%>"><%=RR%>
<%Else%>
<option value="<%=RR%>"><%=RR%>
<%End If%>
<%Next%>
</select>
<%End If%>
<%Else%>
<input type="hidden" name="txtPageSize" value="<%=PS%>">
<%End If%>
</td>
</tr>
</table>
<%If Not (RS.BOF and RS.EOF) Then%>
<table border="2" cellpadding="0" width="100%">
<tr>
<td>
<table border="1" cellpadding="2" cellspacing="0" width=100%>
<tr>
<%For CC = 0 To RS.Fields.Count - 1%>
<td nowrap bgcolor="#00cc33" valign="top">
<font face="helvetica,verdana,arial" size=2 color="#0000ff">
<a href="javascript:ReSort('[<%=ucase(RS(CC).Name)%>]')"
onmouseover="window.status='Sort by <%=RS(CC).Name%>'"
onmouseout="window.status='';"
title="Sort per <%=RS(CC).Name%>">
<%=RS(CC).Name%></a></font>
</td>
<%Next%>
</tr>
<%DR = RS.AbsolutePosition + RS.PageSize - 1%>
<%dim parametri %>
<%For RR = RS.AbsolutePosition to DR%>
<tr>
<%If CBool( Instr(1, CStr(RR / 2), ".") > 0) Then
CL = "#ffff33"
else
CL = "#ffffff"
End If%>
<%For CC = 0 To RS.Fields.count - 1%>
<td nowrap bgcolor="<%=CL%>">
<font face="helvetica,verdana,arial" size="1">
<%=RS.Fields(CC).value%></font></td>
<%Next
parametri="CodiceCodice=" & RS("Codice") & "&DataInizioMese=" & "#" & RS("Data") & "#"
response.Write "<TD class=TDCenter><A HREF=CarteEmesseDettagli.asp" & parametri & "><IMG height=12 src=""/WebCCC/_images/Open.jpg"" name=Open border=0 alt=""Visualizza i dettagli""></A></TD>"
response.Write "<TD class=TDCenter><A HREF=CarteEmesseDownload.asp" & parametri & "><IMG height=12 src=""/WebCCC/_images/Save.jpg"" name=Save border=0 alt=""Crea il file per il download""></A></TD>"
%></tr>
<%RS.MoveNext%>
<%if RS.EOF then exit for%>
<%Next%>
</table>
</td>
</tr>
</table>
<table border=0 cellspacing="2" cellpadding="2" align="left">
<tr>
<%
If (CP > 1) Then%>
<td align="#0000ff" bgcolor="#00cc33" width="55">
<font face="helvetica,verdana,arial" size="1" color="#99cccc">
<a href="javascript:MoveToPage(document.frmReport.lstPages.selectedIndex - 1)"
onmouseover="window.status='Go to Previous Page';"
onmouseout="window.status='';"
title="Va alla Pagina Precedente">
Precedente</a></font>
</td>
<%End If%>
<% If CInt(CP) < CInt(RS.PageCount) Then %>
<td align="center" bgcolor="#00cc33" width="35">
<font face="helvetica,verdana,arial" size="1" color="#99cccc">
<a href="javascript:MoveToPage(document.frmReport.lstPages.selectedIndex + 1)"
onmouseover="window.status='Go to Next Page';"
onmouseout="window.status='';"
title="Va alla Pagina Successiva">
Successiva</a></font>
</td>
<td bgcolor="#00cc33"><a name="Torna" id="Torna" href="CarteEmesseTotali.ASP">Torna alla pagina di immissione</a>
</td>
<% End If %>
</tr></table>
<%Else%>
<center>
<table border=0 cellpadding=2>
<tr>
<td align="center" bgcolor="#000060">
<font face="helvetica,verdana,arial" size=2 color="#99cccc">
Nessun record trovato !! - No matching records could be found.
</font>
</td>
</tr>
</table></center>
<%End If%>
<input type="hidden" name="SortBy" value="<%Response.Write(ST)%>">
<input type="hidden" name="ReSort">
<input type="hidden" name="AllRecs">
<%'***************** Inizio Aggiunta filtro per Codice **********%>
<td align="center" valign="top" width="100%" nowrap><% if session("CodiceCodice")="08000" then %>
<font face="helvetica,verdana,arial" size="2" color="#0000ff">
<b>Filtra per Codice (ES 08000):</b></font>
<input type="text" name="FCodice" onchange="SortBy" value="<% = Request.form("FCodice") %>" SIZE="5">
<% response.write Request.form("FCodice") & " - " & session("CodiceCodice") & " - " & request.form("Action") %>
<input TYPE="submit" NAME="ACTION" VALUE="Seleziona" >
<% end if %>
</td>
<%'***************** Fine Aggiunta filtro per Codice **********%>
</form>
</body>
</html>
<%
set session("Report") = RS
Set RS = Nothing
%>
Modificato da spqrwolf il 01 febbraio 2005 09.49 -
