Ragazzi sto avendo un problema con un sito che ho ereditato e di cui sto facendo il restyling.
Una parte del sito si poggia su un database access. In una pagina specifica (http://www.associazioneart.it/ArtNew/marchi.asp) ricevo un errore ASP quando vado a cercare un marchio in una regione che non ne ha (ad es. provate con Liguria).
L'errore è:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/ArtNew/marchiag.asp, line 207
Alla linea 207 il mio file marchiag.asp recita:
Eseguo anche un controllo sui record vuoti tramite il quale dovrebbe uscire un messaggio di del tipo "nessun marchio in questa regione"- In basso il codice completo della pagina.codice:<p align="center"><font color="#000033">Per la Regione <font color="#FF0000"> <%=(Recordset1.Fields.Item("Regionebis").Value)%></font>ci sono <font color="#FF0000"><%=(Recordset1_total)%></font>Marchi</font></p>
Come posso risolvere il problema ?
Grazie in anticipo!
codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.Form("select") <> "") Then Recordset1__MMColParam = Request.Form("select") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connession_STRING Recordset1.Source = "SELECT * FROM ditteag1 WHERE Regionebis = '" + Replace(Recordset1__MMColParam, "'", "''") + "' ORDER BY Azienda ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim Recordset1_total Dim Recordset1_first Dim Recordset1_last ' set the record count Recordset1_total = Recordset1.RecordCount ' set the number of rows displayed on this page If (Recordset1_numRows < 0) Then Recordset1_numRows = Recordset1_total Elseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1 End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 ' if we have the correct record count, check the other stats If (Recordset1_total <> -1) Then If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Recordset1_total = -1) Then ' count the total records by iterating through the recordset Recordset1_total=0 While (Not Recordset1.EOF) Recordset1_total = Recordset1_total + 1 Recordset1.MoveNext Wend ' reset the cursor to the beginning If (Recordset1.CursorType > 0) Then Recordset1.MoveFirst Else Recordset1.Requery End If ' set the number of rows displayed on this page If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total End If ' set the first and last displayed record Recordset1_first = 1 Recordset1_last = Recordset1_first + Recordset1_numRows - 1 If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total End If End If %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <!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=utf-8" /> <title>Agenti Rappresentanti Tessili</title> <meta name="keywords" content="Agenti, Rappresentanti, tessili, ART, Associazione, marchi, giacobelli" /> <meta name="description" content="ART - Agenti Rappresentanti Tessili" /> <link href="templatemo_style.css" rel="stylesheet" type="text/css" /> <link rel="stylesheet" href="css/coda-slider.css" type="text/css" /> <script src="js/jquery-1.2.6.js" type="text/javascript"></script> <script src="js/jquery.scrollTo-1.3.3.js" type="text/javascript"></script> <script src="js/jquery.localscroll-1.2.5.js" type="text/javascript" charset="utf-8"></script> <script src="js/jquery.serialScroll-1.2.1.js" type="text/javascript" charset="utf-8"></script> <script src="js/coda-slider.js" type="text/javascript" charset="utf-8"></script> <script src="js/jquery.easing.1.3.js" type="text/javascript" charset="utf-8"></script> </head> <body> <div id="slider"> <div id="templatemo_wrapper"> <div id="header"> <div id="site_title"><h1>AssociazioneArt.it</h1></div> </div> <div id="content-flex"> <div class="scroll-flex"> <div class="scrollContainer-h"> <div class="panel" id="mmare"> <p align="center"><font color="#000033">Per la Regione <font color="#FF0000"> <%=(Recordset1.Fields.Item("Regionebis").Value)%></font>ci sono <font color="#FF0000"><%=(Recordset1_total)%></font>Marchi</font></p> </p> <table width="82%" border="0"> <tr> <td width="50%"><div align="center"><font color="#FF0000">Azienda</font></div></td> <td width="17%"><div align="center"><font color="#FF0000">Linea</font></div></td> <td width="33%"><div align="center"><font color="#FF0000">Logo</font></div></td> </tr> <% If Recordset1.EOF And Recordset1.BOF Then %> <tr> <td bgcolor="#00FF66"><font color="#FF0000">Nessun Marchio per questa Regione</font></td> <td></td> <td></td> </tr> <% End If ' end Recordset1.EOF And Recordset1.BOF %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <tr> <td><form name="form1" method="post" action=""> <input name="hiddenField" type="hidden" value="<%=(Recordset1.Fields.Item("IDDitte").Value)%>"> "><font size="-1">Sc.Az.</font><font color="#000033" size="-1"><%=(Recordset1.Fields.Item("Azienda").Value)%></font> </form></td> <td><font color="#000033" size="-1"><%=(Recordset1.Fields.Item("Linea").Value)%></font></td> <td><form name="form2" method="post" action=""> <input type="image" border="0" name="imageField" src="<%=(Recordset1.Fields.Item("LOGO").Value)%>"> </form></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %> </table> </div> </div> </div> </div> <div id="footer-flex"> <div id="social_box"> <!-- [img]images/facebook.png[/img] [img]images/flickr.png[/img] [img]images/myspace.png[/img] [img]images/twitter.png[/img] [img]images/youtube.png[/img] --> </div> <div id="copyright"> <small>Copyright © 2011 A.R.T. - Agenti Rappresentanti Tessili Via Oriani,8 70122 BARI tel. 080.5610101 - 080.5241477 fax 080.5042024 - REA XXXXXXX - P.IVA XXXXXXXXXXXXXXXXXX - Cap. Soc. XXXXXXXXXXX</small></div> </div> </div> </div> </body> </html> <% Recordset1.Close() Set Recordset1 = Nothing %>
Rispondi quotando
