Ho una pagina che mi elenca tutti i profili professionali dei miei dipendenti. Utilizzando il pulsante di opzione relativo ad un determinato profilo mi filtro l'elenco dei relativi dipendenti.
Vorrei utilizzare al posto del PULSANTE DI OPZIONE una CASELLA DI CONTROLLO per poter effettuare più scelte contemporaneamente.
Ho provato a fare questa modifica e la cosa funziona solo se spunto una sola casella. Se ne spunto più di una la pagina non funziona. In parole povere non accetta questa soluzione di filtro.
Come fare?
Grazie in anticipo a quanti potranno aiutarmi.
Di seguito uno stralcio dello script:
_____________________________________________________________________________
<html>
<head>
</head>
<body>
<div class="esempio">
<%
If Request.QueryString("R1") <> "" Then
' Il Cognome ricercato deve contenere almeno tre caratteri...
If Len(Request.QueryString("R1")) < 3 Then
%><font face="Verdana" size="2"><%
Response.Write("La chiave di ricerca deve contenere almeno tre caratteri!<br><br>")
Else
' Connessione al database
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/GestioneUtenti.mdb")
' Stringa SQL
SQL = "SELECT * FROM elenco WHERE MANSIONE_SVOLTA = '" & Replace(Request.QueryString("R1"), "'", "''") & "' ORDER BY cognome"
Set Ricerca = Server.CreateObject("adodb.recordset")
Ricerca.Open Sql, Conn, 3,3
' Se non e' stato trovato alcun record mostra un apposito avviso
' Altrimenti scrivi il numero di record trovati e visualizzali!
%><font face="Verdana" size="2"><%
Response.Write("Sono stati trovati <b>" & Ricerca.RecordCount & "</b> Cognomi per la mansione <b>" & Request.QueryString("R1") & "</b><br><br>")
%>
<table cellpadding="3" cellspacing="1" border="0" bgcolor="gray" style="font-size: 13px; margin-bottom:0" width="100%">
<tr bgcolor="#f0f0f0">
<th><font size="1">Modifica</font></th>
<th><font face="Verdana" size="1">Profilo
Professionale</font></th>
<th><font face="Verdana" size="1">Cognome</span></font></th>
<th><font face="Verdana" size="1">Nome</font></th>
<th><font size="1" face="Verdana"></span></font><font size="1">Ufficio</font></th>
<th><font size="1">Sezione</font></th>
<th><font size="1">Mansione</font></th>
</tr>
<% For I = 1 To Ricerca.RecordCount %>
<tr bgcolor="white">
<td align="center">
<font face="Verdana" size="1" style="font-size: 8pt">
<span style="text-decoration: none">
<a href="esempio_step3.asp?cod=<%=rec("id")%>" target="_self">
<img border="0" src="images/modifica.gif" alt="modifica il record numero <%=ricerca("id")%>" width="12" height="12"></a></span></font></td>
<td align="left"><font face="Verdana" style="font-size: 8pt"><% = Ricerca("Profilo_professionale") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"></span><% = Ricerca("cognome") %></span></font></td>
<td><font face="Verdana" style="font-size: 8pt"><% = Ricerca("nome") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"></span><% = Ricerca("ufficio") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"><% = Ricerca("sezione") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"><% = Ricerca("mansione_svolta") %></font></td>
</tr>
<%
Ricerca.MoveNext
Next
%>
</table><br>
<%
End If ' Record presenti
' Chiusura del recordset e della connessione!
Ricerca.Close
Set Ricerca = Nothing
Conn.Close
Set Conn = Nothing
End If ' Località di almeno 3 caratteri
%><form method="GET" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" target="_self">
<table border="0" width="100%" id="table1">
<tr>
<td valign="top" align="center"><font face="Verdana" size="2">
<table border="0" width="84%" id="table2" cellpadding="0" style="border-collapse: collapse; border-width: 0px">
<tr>
<td bgcolor="#0099CC" height="19" style="border-style:none; border-width:medium; " bordercolorlight="#000000" bordercolordark="#000000" width="48">
<p align="center"><b><font face="Verdana" size="1" color="#FFFFFF">
Scelta</font></b></td>
<td bgcolor="#0099CC" height="19" style="border-style:none; border-width:medium; " bordercolorlight="#000000" bordercolordark="#000000">
<p align="center"><font size="1" color="#FFFFFF"><b>Mansione</b></font></td>
<td bgcolor="#0099CC" height="19" style="border-style:none; border-width:medium; " bordercolorlight="#000000" bordercolordark="#000000" align="right">
</td>
</tr>
<!--#include file="cn.asp"-->
<%
SQL="SELECT * FROM conta_MANSIONE WHERE ID_MANSIONE < 15"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%>
<tr>
<td height="19" style="border-style:none; border-width:medium; " width="48">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="2">
<input type="radio" value="<%=rec("MANSIONE_SVOLTA")%>" name="R1"></font></td>
<td height="19" style="border-style:none; border-width:medium; ">
<font size="1" face="Verdana">
<p style="margin-left: 5px; margin-top:0; margin-bottom:0"><%=rec("MANSIONE_SVOLTA")%></font></td>
<td height="19" style="border-style:none; border-width:medium; " align="right">
<font size="1">
<p style="margin-right: 5px"><%=rec("conteggiodiMANSIONE_SVOLTA")%></font></td>
</tr>
<% rec.MoveNext
Wend
rec.close%>
Vorrei utilizzare al posto del PULSANTE DI OPZIONE una CASELLA DI CONTROLLO per poter effettuare più scelte contemporaneamente.
Ho provato a fare questa modifica e la cosa funziona solo se spunto una sola casella. Se ne spunto più di una la pagina non funziona. In parole povere non accetta questa soluzione di filtro.
Come fare?
Grazie in anticipo a quanti potranno aiutarmi.
Di seguito uno stralcio dello script:
_____________________________________________________________________________
<html>
<head>
</head>
<body>
<div class="esempio">
<%
If Request.QueryString("R1") <> "" Then
' Il Cognome ricercato deve contenere almeno tre caratteri...
If Len(Request.QueryString("R1")) < 3 Then
%><font face="Verdana" size="2"><%
Response.Write("La chiave di ricerca deve contenere almeno tre caratteri!<br><br>")
Else
' Connessione al database
Set Conn = Server.CreateObject("adodb.connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("mdb-database/GestioneUtenti.mdb")
' Stringa SQL
SQL = "SELECT * FROM elenco WHERE MANSIONE_SVOLTA = '" & Replace(Request.QueryString("R1"), "'", "''") & "' ORDER BY cognome"
Set Ricerca = Server.CreateObject("adodb.recordset")
Ricerca.Open Sql, Conn, 3,3
' Se non e' stato trovato alcun record mostra un apposito avviso
' Altrimenti scrivi il numero di record trovati e visualizzali!
%><font face="Verdana" size="2"><%
Response.Write("Sono stati trovati <b>" & Ricerca.RecordCount & "</b> Cognomi per la mansione <b>" & Request.QueryString("R1") & "</b><br><br>")
%>
<table cellpadding="3" cellspacing="1" border="0" bgcolor="gray" style="font-size: 13px; margin-bottom:0" width="100%">
<tr bgcolor="#f0f0f0">
<th><font size="1">Modifica</font></th>
<th><font face="Verdana" size="1">Profilo
Professionale</font></th>
<th><font face="Verdana" size="1">Cognome</span></font></th>
<th><font face="Verdana" size="1">Nome</font></th>
<th><font size="1" face="Verdana"></span></font><font size="1">Ufficio</font></th>
<th><font size="1">Sezione</font></th>
<th><font size="1">Mansione</font></th>
</tr>
<% For I = 1 To Ricerca.RecordCount %>
<tr bgcolor="white">
<td align="center">
<font face="Verdana" size="1" style="font-size: 8pt">
<span style="text-decoration: none">
<a href="esempio_step3.asp?cod=<%=rec("id")%>" target="_self">
<img border="0" src="images/modifica.gif" alt="modifica il record numero <%=ricerca("id")%>" width="12" height="12"></a></span></font></td>
<td align="left"><font face="Verdana" style="font-size: 8pt"><% = Ricerca("Profilo_professionale") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"></span><% = Ricerca("cognome") %></span></font></td>
<td><font face="Verdana" style="font-size: 8pt"><% = Ricerca("nome") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"></span><% = Ricerca("ufficio") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"><% = Ricerca("sezione") %></font></td>
<td><font face="Verdana" style="font-size: 8pt"><% = Ricerca("mansione_svolta") %></font></td>
</tr>
<%
Ricerca.MoveNext
Next
%>
</table><br>
<%
End If ' Record presenti
' Chiusura del recordset e della connessione!
Ricerca.Close
Set Ricerca = Nothing
Conn.Close
Set Conn = Nothing
End If ' Località di almeno 3 caratteri
%><form method="GET" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" target="_self">
<table border="0" width="100%" id="table1">
<tr>
<td valign="top" align="center"><font face="Verdana" size="2">
<table border="0" width="84%" id="table2" cellpadding="0" style="border-collapse: collapse; border-width: 0px">
<tr>
<td bgcolor="#0099CC" height="19" style="border-style:none; border-width:medium; " bordercolorlight="#000000" bordercolordark="#000000" width="48">
<p align="center"><b><font face="Verdana" size="1" color="#FFFFFF">
Scelta</font></b></td>
<td bgcolor="#0099CC" height="19" style="border-style:none; border-width:medium; " bordercolorlight="#000000" bordercolordark="#000000">
<p align="center"><font size="1" color="#FFFFFF"><b>Mansione</b></font></td>
<td bgcolor="#0099CC" height="19" style="border-style:none; border-width:medium; " bordercolorlight="#000000" bordercolordark="#000000" align="right">
</td>
</tr>
<!--#include file="cn.asp"-->
<%
SQL="SELECT * FROM conta_MANSIONE WHERE ID_MANSIONE < 15"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%>
<tr>
<td height="19" style="border-style:none; border-width:medium; " width="48">
<p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="2">
<input type="radio" value="<%=rec("MANSIONE_SVOLTA")%>" name="R1"></font></td>
<td height="19" style="border-style:none; border-width:medium; ">
<font size="1" face="Verdana">
<p style="margin-left: 5px; margin-top:0; margin-bottom:0"><%=rec("MANSIONE_SVOLTA")%></font></td>
<td height="19" style="border-style:none; border-width:medium; " align="right">
<font size="1">
<p style="margin-right: 5px"><%=rec("conteggiodiMANSIONE_SVOLTA")%></font></td>
</tr>
<% rec.MoveNext
Wend
rec.close%>
