Problema campo vuoto

**aleko** · 08-08-2011, 17:22

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:

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>

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.

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

Discussione: Problema campo vuoto

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Problema campo vuoto

Permessi di invio