PERCHE'???
Un semplice form che da i risultati in un altra pagina:
[CODE<form method="post" action="libri/search.asp" target="_self" style="width:140">
<span class="Stile4">
Autore: </span>
<input type="text" name="Autore" value="<%=Autore%>" size="20">
<span class="Stile3">Titolo:</span>
<input type="text" name="Titolo" value="<%=Titolo%>" size="20">
<span class="Stile12">
<input type="submit" name="Submit" value="Cerca >>">[/CODE]
Quando provo a fare la ricerca nella pagina seguente non mi viene dato nessun risultato, nessun errore, cioè la pagina è vuota:
codice:<%@LANGUAGE="VBSCRIPT"%> <% response.buffer=true %> <% Server.ScriptTimeout = 300 %> <% Autore = trim(request("Autore")) Autore = replace(Autore, "'", "''") Titolo = trim(request("Titolo")) Titolo = replace(Titolo, "'", "''") Set objRS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM libri ORDER BY autore" if Titolo<>"" or Autore<>"" then sql=sql& " where " end if if Autore<>"" then sql=sql& "Autore like '%" & Autore & "%'" end if if Autore<>"" and Titolo<>"" then sql=sql & " and " end if if Titolo<>"" then sql=sql& "Disco like '%" &Titolo & "%'" end if %> <html> <head> <title>Risultato della ricerca..</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <BODY BGCOLOR=#000000 link="#FFFFFF" vlink="#666666" alink="#CCCCCC"> <% iPageSize = 30 'NUMERO RECORD PER PAGINA If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If objRS.PageSize = iPageSize objRS.CacheSize = iPageSize objRS.Open SQL, 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 aling='center' face='verdana' size='2' color='#FFFFFF'>Non sono stati trovati Cd nel Catalogo.</td></table></p>" Else objRS.AbsolutePage = iPageCurrent iRecordsShown = 0 %> <%if Autore <> "" or Titolo<>"" then%> <table width="512" border="1" align="center" cellpadding="4" cellspacing="0"> <tr align="center"> <td width="5" style="border-style:solid; border-width:1; border-color: #FFFFFF; background-color: #333333; "><font color="#FFFFFF" size="1" face="Arial, Helvetica, sans-serif">N.</font></td> <td width="166" style="border-style:solid; border-width:1; border-color: #FFFFFF; background-color: #333333; "><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Artista</font></td> <td width="186" style="border-style:solid; border-width:1; border-color: #FFFFFF; background-color: #333333; "><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Album</font></td> <td width="123" style="border-style:solid; border-width:1; border-color: #FFFFFF; background-color: #333333; "><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Note</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 bg = "#000000" Else bg = "#666666" End if Response.Write "<tr bgcolor = " & bg & "><td bordercolor='#333333'><font size='1' face='Verdana' color='#FFFFFF'>" & (iPageSize*iPageCurrent)-iPageSize+Cont & "</font></td>" Response.Write "<td bordercolor='#333333'><font size='1' face='Verdana' color='#FFFFFF'>" & objRS("Autore") & "</font></td>" Response.Write "<td bordercolor='#333333'><font size='1' face='Verdana' color='#FFFFFF'>" & objRS("Disco") & "</font></td>" Response.Write "<td bordercolor='#333333'><font size='1' face='Verdana' color='#FFFFFF'>" & objRS("Prezzo") & "</font></td></tr>" 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> <%If ipagecount <> 1 Then%><div align="center"> <table style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" width="442"> <tr valign="middle"> <td width="442" align="center" valign="middle"><font face="verdana" size="1" color="#FFFFFF"> [ <%if iPageCurrent-2 > 0 and iPageCurrent > 2 then%> [img]admin/first.gif[/img] <%end if%> <%if iPageCurrent > 1 then%> [img]admin/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="#FFFFFF"><%=i%></font> <%else%> <%=i%> <%end if%> <%next%> <%if iPageCurrent > 0 and iPageCurrent+1 < iPageCount then%> [img]admin/next.gif[/img] <%end if%> <%if iPageCurrent+1 < iPageCount then%> [img]/Catalogo/Admin/last.gif[/img] <%end if%> ] </font></td> </tr> <tr> <td colspan="2" align="center" width="442"><font face="verdana" size="1" color="#000000"> <center> <font color="#FFFFFF">Pagina <%=iPageCurrent%></font> <font color="#FFFFFF">di <%=iPageCount%></font> </center> </font></td> </tr> </table></div> <%end if%> <% end if objConn.Close Set objConn = Nothing%> <%End if%></body> </html>
Nessun errore, nulla di nulla..allora cosa manca??
Rispondi quotando
