Salve giovanotte/i
allora salto al dunque della questione!
In pratica ho costruito una query d'interrogazione ad una tabella e funziona nel momento in cui uso un solo campo della tabella, mentre se la query è più complessa (cioè interrogga più campi del DB) non funziona, cioè non restituisce nessun valore.
Ad similia et majora
</table></td>
</tr>
<tr>
<td height="34" colspan="3" align="center" valign="top">
<TABLE WIDTH="877" CELLPADDING="4" CELLSPACING="4" BORDER="0" align="left"><TR>
<TD width="966" height="124" align="center" valign="baseline"> <font face="Book antiqua">
<%
iPageSize = 10 'NUMERO RECORD PER PAGINA
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/cimitero.mdb")
sezione = request("sezione")
numero = request("numero")
segnatura = request("segnatura")
data_ins = request("data_ins")
numeroordine= request("numeroordine")
dataconcessione= request ("dataconcessione")
cognomeenome= request("cognomeenome")
figliodifu= request("figliodifu")
defunto= request("defunto")
tiposepoltura= request("tiposepoltura")
topografia= request("topografia")
esito= request("esito")
%>
<%
strsql= "SELECT * FROM cimitero where sezione LIKE '%"&sezione&"%' AND numero LIKE '%"&numero&"%' AND segnatura LIKE '%"&segnatura&"%'AND data_ins LIKE '%"&data_ins&"%' AND numeroordine LIKE '%"&numeroordine&"%' AND cognomeenome LIKE '%"&cognomeenome&"%' AND figliodifu LIKE '%"&figliodifu&"%' AND defunto LIKE '%"&defunto&"%' AND tiposepoltura LIKE '%"&tiposepoltura&"%' AND topografia LIKE '%"&topografia&"%' AND esito LIKE '%"&esito&"%' "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.PageSize = iPageSize
objRS.CacheSize = iPageSize
objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objRS.recordcount
iPageCount = objRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "
<table><td><font face='Book antiqua' size='2' color='#000000'>Non sono stati trovati documenti corrispondenti.
<a href=ricerca_avanzata.asp>Torna alla ricerca</a></td></table></p>"
Else
objRS.AbsolutePage = iPageCurrent
iRecordsShown = 0
%>
</font>
<table width="80%" border="0" align="center" cellpadding="4" cellspacing="4" bgcolor="#C1DAFF" "#C1DAFF">
<td WIDTH="7%" height="43" align="center" valign="middle" bgcolor="cccccc"><div align="center" class="Stile9"><font size="2" color="red">N°</font></div></td>
<td WIDTH="34%" align="center" valign="middle" bgcolor="cccccc"><div align="center" class="Stile9"><font size="2" color="red">Cognome e nome concessionario</font></div></td>
<td WIDTH="20%" align="center" valign="middle" bgcolor="cccccc"><div align="center" class="Stile9"><font size="2" color="red">Data</font> concessione</div></td>
<td WIDTH="15%" align="center" valign="middle" bgcolor="cccccc"><div align="center" class="Stile9"><font color="red" size="2">Busta</font></div></td>
<td WIDTH="17%" align="center" valign="middle" bgcolor="cccccc"><div align="center" class="Stile9 Stile11 Stile9">Modifica
</div></td>
</tr>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize AND Not objRS.EOF
Dim rig, bg
col = rig + 1
If rig Mod 2 = 0 then
Else
End if
%>
<%
Response.Write "<tr bgcolor = " & bg & "><td bgcolor= '#0066FF'><font color='red' face='Book antiqua' size='2' align='centre' >" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
Response.Write"<td bgcolor='#cccccc' align='left'><font color='red' face='Book antiqua' size='2' align='centre'><a href='cim_doc.asp?id="&objRS("id")&"'>"&objRS("cog nomeenome")&"</font></td>"
Response.Write "<td bgcolor= '#0099FF' align='centre' ><font color='#ffffff' face='Book antiqua' size='2'>" & objRS("dataconcessione") & "</font></td>"
Response.Write "<td bgcolor= '#0099FF' align='centre' ><font color='#ffffff' face='Book antiqua' size='2'>" & objRS("numero") & "</font></td>"
Response.Write "<td bgcolor= '#0066FF' align='centre'> <form id='mod_delib' name='mod_delib' method='post' action='mod_cim.asp'><label><input name='id' type='hidden' id='id' value= "& objRS("id") &" /></label><input type='submit' value='Modifica documento'></form></td>"
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
'PULIZIA DEGLI OGGETTI ADO
objRS.Close
Set objRS = Nothing
%>
</table>
<table border="0" align="center">
<tr valign="middle">
<td width="50%" align="center" valign="middle"><font face="Book antiqua" size="1" color="#000000"> [
<%if iPageCurrent-2 > 0 AND iPageCurrent > 2 then%>
[img]../img/first.gif[/img]
<%end if%>
<%if iPageCurrent > 1 then%>
[img]../img/pre.gif[/img]
<%end if%>
<%if iPageCount > 2 then
if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
else
da_pag = 1
fino_a_pag = iPageCount
end if%>
<%for i = da_pag to fino_a_pag%>
<%if i = iPageCurrent then%>
<font color="red"><%=i%></font>
<%else%>
<%end if%>
<%next%>
<%if iPageCurrent > 0 AND iPageCurrent < iPageCount then%>
[img]../img/next.gif[/img]
<%end if%>
<%if iPageCurrent+1 < iPageCount then%>
[img]../img/last.gif[/img]
<%end if%>
] </font></td>
</tr>
<tr>
<td colspan="2" align="center"><center>
<font color="#000000" size="1" face="Book antiqua"> Pagina <%=iPageCurrent%></font> <font color="#000000" size="1" face="Book antiqua">di <%=iPageCount%></font>
</center></td>
</tr>
</table> </td>
</tr>
</table>
<font face="Book antiqua">
<%End if%>
</font><font face="Book antiqua">
<%If ipagecount <> 1 Then%>
</font><font face="Book antiqua">
<%end if%>
<%
objConn.Close
Set objConn = Nothing
%>
</font></p>
</p>
</p>
</p></td>
</tr>
<tr>
<td width="116" height="21" rowspan="2"> <p align="center" class="Stile7">[img]../img/lic.gif[/img]</p></td>
<td width="317"><p align="center" class="Stile9">© Archivio storico - Comune di Monreale - 2008 </p> </td>
<td height="9" class="Stile8"><div align="center" class="Stile9">
<p align="center" class="Stile9">Progetto grafico, sviluppo software</p>
</div></td>
</tr>
<tr>
<td><div align="center"><span class="Stile9">Visualizzazione 1024x768 </span></div></td>
<td height="19" class="Stile8"><div align="center"><span class="Stile9">e manutenzione a cura dell' ASCM</span></div></td>
</tr>
</table>
<map name="Map" id="Map">
<area shape="rect" coords="8,5,754,202" href="../index.asp" alt="HOME ASCM" />
</map></body>
</html>
[/CODE]
Rispondi quotando