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.
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.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>
Dove sbaglio?
Rispondi quotando