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??