Allora ho la ncessità di mostrarei risultati di una precedente selezione in una pagina.

Ora funziona tutto bene tranne il fatto che se i parametri nn sono giusti mi deve dire "Record non trovato".

Io ho scritto il codice in questo modo ma mi da errore nel visualizzare la pagina.

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rsEpoca__MMColParam
rsEpoca__MMColParam = "1"
If (Request.QueryString("id_epoca") <> "") Then 
  rsEpoca__MMColParam = Request.QueryString("id_epoca")
End If
%>
<%
Dim rsEpoca
Dim rsEpoca_numRows

Set rsEpoca = Server.CreateObject("ADODB.Recordset")
rsEpoca.ActiveConnection = MM_diCastro_STRING
rsEpoca.Source = "SELECT * FROM epoca WHERE id_epoca = " + Replace(rsEpoca__MMColParam, "'", "''") + ""
rsEpoca.CursorType = 0
rsEpoca.CursorLocation = 2
rsEpoca.LockType = 1
rsEpoca.Open()

rsEpoca_numRows = 0
%>
<%
Dim rsOpera__MMColParam
rsOpera__MMColParam = "1"
If (Request.QueryString("id_opera") <> "") Then 
  rsOpera__MMColParam = Request.QueryString("id_opera")
End If
%>
<%
Dim rsOpera
Dim rsOpera_numRows

Set rsOpera = Server.CreateObject("ADODB.Recordset")
rsOpera.ActiveConnection = MM_diCastro_STRING
rsOpera.Source = "SELECT * FROM opera WHERE id_opera = " + Replace(rsOpera__MMColParam, "'", "''") + ""
rsOpera.CursorType = 0
rsOpera.CursorLocation = 2
rsOpera.LockType = 1
rsOpera.Open()

rsOpera_numRows = 0
%>
<%
Dim rsArticoli__MMColParam
rsArticoli__MMColParam = "1"
If (Request.QueryString("id_epoca") <> "") Then 
  rsArticoli__MMColParam = Request.QueryString("id_epoca")
End If
%>
<%
Dim rsArticoli__MMColParam2
rsArticoli__MMColParam2 = "1"
If (Request.QueryString("id_opera") <> "") Then 
  rsArticoli__MMColParam2 = Request.QueryString("id_opera")
End If
%>
<%
Dim rsArticoli
Dim rsArticoli_numRows

Set rsArticoli = Server.CreateObject("ADODB.Recordset")
rsArticoli.ActiveConnection = MM_diCastro_STRING
rsArticoli.Source = "SELECT *  FROM articoli  WHERE id_epoca = " + Replace(rsArticoli__MMColParam, "'", "''") + " AND id_opera = " + Replace(rsArticoli__MMColParam2, "'", "''") + ""
rsArticoli.CursorType = 0
rsArticoli.CursorLocation = 2
rsArticoli.LockType = 1
rsArticoli.Open()

rsArticoli_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
<link href="cssDb/diCastro.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><form id="form1" name="form1" method="post" action="">
      <table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="20" colspan="2"></td>
        </tr>
        <tr>
<td width="117" height="20" align="left" class="Titolini">Epoca:</td>
          <td width="283" align="left" class="testo">
		  <%If rsArticoli EOF Then
		  Response.write ("Nessun Risultato trovato")
		  else%> 
<%=(rsArticoli.Fields.Item("id_epoca").Value)%>
<%End if%> 
</td>
        </tr>
        <tr>
          <td height="20" align="left" class="Titolini">Opera:</td>
          <td align="left" class="testo">
		   <%If rsArticoli EOF Then
		  Response.write ("Nessun Risultato trovato")
		  else
		  %> 		  <%=(rsArticoli.Fields.Item("id_opera").Value)%>
		  <%End if%> 
		  </td>
        </tr>
      </table>
        </form>
    </td>
  </tr>
In rosso ho evidenziato il codice che ho messo per visualizzare i dati. Senza di quello giustamente se i valori sono giusti mi fa vedere i dati altrimenti mi da l'errore tecnco dove mi dice che nn ci sono record.

Dove sbaglio?