Problema recupero valore campo DB

**nilats** · 22-11-2004, 19:47

Ciao a tutti.
Premetto ke il fatto riguarda il motore di ricerca con impaginazione di Roby.. (mi pare ke sia il suo)

allora il problema è ke quando quando visualizzo la seconda pagina di una ricerca con + risultati, la freccina ke fa tornare alla pagina precedente non cattura il valore della campo del DB, cosa ke invece fa passando dalla prima alla seconda (lo so xckè si vede dalla barra di stato)

spero di essere stato kiaro almeno un pokino...
posto il codice della pagina Motore.asp:

codice:

<%@ Language=VBScript %> 
<% response.buffer=true %>
<% Server.ScriptTimeout = 300 %>


<html>
<head>
<title></title>
<style type="text/css">
<!--
body {
	font-family: "Century Gothic";
	color: #000099;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<BODY LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0">


<font size="2" face="Century Gothic"><font size="3">Home</font></font> 
  <font color="red"></font></p>


  <div align="center"> </p> 
<TABLE WIDTH="672" CELLPADDING="4" CELLSPACING="4" BORDER="0" align="center">
  <TR height="60" valign="middle"> 
    <TD width="656" align="center"> <h1><font face="Century Gothic" size="6" color="red">Risultati 
        della ricerca</font></h1></TD>
  <TR> 
    <TD> <font face="Century Gothic"> 
      <%
			iPageSize = 10 'NUMERO RECORD PER PAGINA

			If Request.QueryString("page") = "" Then
				iPageCurrent = 1
			Else
				iPageCurrent = CInt(Request.QueryString("page"))
			End If

cat = request.Form("cat")
nome = request.Form("nome")
if cat="Tutte" then cat="%"
if nome="" then nome="%"

 
			      
	  strSQL="SELECT Francobolli.*, cat.* FROM cat RIGHT JOIN Francobolli ON cat.idcat=Francobolli.cat where cat.cat like '%"&cat&"%' and francobolli.nome like '%"&nome&"%'"

			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='verdana' size='2' color='#000000'>Non sono stati trovati documenti corrispondenti.

<a href=form_ricerca.asp>Torna alla ricerca</a></td></table></p>"
			Else
				objRS.AbsolutePage = iPageCurrent
				iRecordsShown = 0
				%>
      </font> <table cellpadding="0" cellspacing="0" border="0" width="100%">
        <tr> 
          <td height="47"> <table width="100%" height="48" border="0" cellpadding="2" cellspacing="1">
              <tr height="22"> 
                <td WIDTH="25%"><font face="Century Gothic" size="2" color="red">Numero</font></td>
                <td WIDTH="38%"><font face="Century Gothic" size="2" color="red">Nome del francobollo </font></td>
                <td WIDTH="19%" align="center"><font face="Century Gothic" size="2" color="red">Categoria</font></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
									Rig = Rig + 1
									If Rig Mod 2 = 0 then
									
									Else
											
									End if
									
										
									Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='1'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>"
									
									
 Response.Write "<td><font color='#000000' face='Verdana' size='1'><a href='bolli.asp?NOME="& objRS("nome") &"'>" & objRS("nome") & "</font></td>"
									
									
									Response.Write "<td align='center'><font color='#000000' face='Verdana' size='1'>" & objRS("cat") & "</font></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></td>
        </tr>
      </table>
      <font face="Century Gothic"> 
      <%End if%>
      </font> 

 <font face="Century Gothic"> 
        <%If ipagecount <> 1 Then%>
        </font>
      <center>
        <table>
          <tr valign="middle"> 
            <td width="50%" align="center" valign="middle"><font face="Century Gothic" size="1" color="#000000"> 
              [ 
              <%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%>
              [img]../images/first.gif[/img]
              <%end if%>
              <%if iPageCurrent > 1 then%>
              [img]../images/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]../images/next.gif[/img] 
              <%end if%>
              <%if iPageCurrent+1 < iPageCount then%>
              [img]../images/last.gif[/img] 
              <%end if%>
              ] </font></td>
          </tr>
          <tr> 
            <td colspan="2" align="center"><font face="verdana" size="1" color="#000000"> 
              <center>
                <font face="Century Gothic"> Pagina <font color="#FF0000"><%=iPageCurrent%></font></font> <font face="Century Gothic">di 
                <font color="#FF0000"><%=iPageCount%></font></font> 
              </center>
              </font></td>
          </tr>
        </table>
      </center>
      <font face="Century Gothic"> 
      <%end if%>
      <%
			objConn.Close
			Set objConn = Nothing
			%>
      </font></TD>
  </TR>
</TABLE>		


</p>
<table width="55%" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="70%" height="19"> <div align="center"> 
        <script language="JavaScript" type="text/javascript">
function printit(){  
if (window.print) {
    window.print() ;  
} else {
    var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
    WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box    WebBrowser1.outerHTML = "";  
}
}
</script>
        <script language="JavaScript1.2" type="text/JavaScript1.2">



var message = "Stampa il risultato della ricerca";

function printpage() {
window.print();  
}

document.write("<form><input type=button "
+"value=\""+message+"\" onClick=\"printpage()\"></form>");

</script>
      </div></td>
  </tr>
</table>


</p>
</body>
</html>

**Roby_72** · 22-11-2004, 22:18

codice:

...
cat = request("cat")
nome = request("nome")
...

Roby

**nilats** · 22-11-2004, 22:56

mitico Roby
io c ho sbattuto x 2 giorni
e tu tomo tomo, cakkio cakkio
in 2 minuti...
grazie cumpà.... :rollo:

Discussione: Problema recupero valore campo DB

Strumenti discussione

Ricerca discussione

Visualizza

Problema recupero valore campo DB

Permessi di invio