Affichage sans résultat

Bonsoir,
lorsque j'affiche une page asp sans résultat, j'aimerai afficher un message du type
" Votre recherche n'a donnée aucun résultat "
Comment puis je faire, pour l'instant c'est 

ADODB.Field error '800a0bcd'

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel
et ce n'est pas du plus bel effet....
Merci d'avance et bonne soirée.

Philippe

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/CisQuery.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.Form("Cherche_Nsn") <> "") Then
  Recordset1__MMColParam = Request.Form("Cherche_Nsn")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_CisQuery_STRING
Recordset1.Source = "SELECT * FROM AspRechercheNsn WHERE Expr1 LIKE '%" + Replace(Recordset1__MMColParam, "'", "''") + "%' ORDER BY NSN 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
%>
<html>
<head>
<title>Resultat recherche NSN</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:link {
 color: #BE7E3F;
}
a:visited {
 color: #BE7E3F;
}
a:hover {
 color: #FF6600;
}
a:active {
 color: #BE7E3F;
}
.Style7 {color: #BE7E3F; font-style: italic; }
.Style10 {
 color: #BF8B5D;
 font-weight: bold;
}
.Style14 {font-size: 13px; font-weight: bold; color: #663333; }
.Style19 {
 font-size: 14px;
 font-weight: bold;
}
.Style21 {
 color: #BE7E3F;
 font-weight: bold;
 font-style: italic;
}
.Style22 {
 color: #666633;
 font-weight: bold;
}
.Style25 {color: #666633}
.Style27 {
 color: #F8EEC7;
 font-weight: bold;
}
.Style30 {
 color: #660000;
 font-weight: bold;
}
body {
 background-color: #E6D8B9;
}
-->
</style>
</head>

<body>
<table width="80%" border="0" align="center"><!--DWLayoutTable-->
  <tr>
    <td width="626" height="21"><div align="center">
      <p align="center"><font color="#CC6600"><em>Il y a <strong><%=(Recordset1_total)%></strong> enregistrement(s) pour </em></font>
        <% =Request.Form("Cherche_Nsn") %>
- <a href="http://iliassrv000.idcn.mil.intra/IIF/Report/CIDMAT/NSN.asp?NSN=<% =Request.Form("Cherche_Nsn") %>" target="_blank">SPART</a>  - <a href="?NSN=<% =Request.Form("Cherche_Nsn") %>" target="_blank">STOCK</a> <BR>
      </p>
    </div></td>
  </tr>
</table>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
  <tr bgcolor="#FFCC66">
    <td colspan="3">&nbsp;</td>
  </tr>
  <tr bgcolor="#CC9966">
    <td colspan="3">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="3" bgcolor="#F8EEC7"><table width="204" height="28" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr>
          <td><div align="center" class="Style22">PN : <%=(Recordset1.Fields.Item("PN").Value)%></div></td>
        </tr>
              </table>        <table width="367" border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                 
          <td height="34" valign="top"><strong><a href="http://iliassrv000.idcn.mil.intra/IIF/Report/CIDMAT/NSN.asp?NSN=<%=(Recordset1.Fields.Item("NSNIlias").Value)%>" target="_blank"><%=(Recordset1.Fields.Item("SelectNSN").Value)%></a></strong></td>
                </tr>
              </table></td>
  </tr>
  <tr>
    <td colspan="2" align="left" valign="top" bgcolor="#F8EEC7"><span class="Style19"><font face="Verdana, Arial, Helvetica, sans-serif"><%=(Recordset1.Fields.Item("DENOM").Value)%></font></span></td>
    <td width="249" rowspan="6" bgcolor="#F8EEC7"><div align="center">
      <p><strong><img src="../Img_dynam/PhotoNsn/<%=(Recordset1.Fields.Item("CheminImage").Value)%>" onerror="this.src='../Img_dynam/photoNsn/nophoto.jpg';" width="79" height="66" align="top"></strong></p>
      <p><a href="../Img_dynam/PhotoNsn/<%=(Recordset1.Fields.Item("CheminImage").Value)%>" target="_blank">Zoom</a></p>
    </div></td>
  </tr>
  <tr>
    <td colspan="2" align="left" valign="top" bgcolor="#F8EEC7"><div align="left"></div></td>
  </tr>
  <tr>
    <td align="left" valign="top" bgcolor="#F8EEC7"><div align="left"><strong><span class="Style25"><span class="Style21"><%=(Recordset1.Fields.Item("UM").Value)%></span></span> </strong></div></td>
    <td align="left" valign="top" bgcolor="#F8EEC7"><div align="right"><strong><span class="Style25"><strong><%=(Recordset1.Fields.Item("Compt").Value)%> - <%=(Recordset1.Fields.Item("LOCAL").Value)%></strong></span></strong></div></td>
  </tr>
  <tr>
    <td width="249" align="left" valign="top" bgcolor="#F8EEC7"><strong><span class="Style7"><%=(Recordset1.Fields.Item("CDMAT").Value)%></span></strong></td>
    <td width="108" align="left" valign="top" bgcolor="#F8EEC7"><span class="Style14"><%=(Recordset1.Fields.Item("PRIX").Value)%> &euro;</span></td>
  </tr>
  <tr>
    <td colspan="2" align="left" valign="top" bgcolor="#F8EEC7"><span class="Style10"><%=(Recordset1.Fields.Item("SelectStock").Value)%></span></td>
  </tr>
  <tr>
    <td colspan="2" align="left" valign="top" bgcolor="#F8EEC7"><span class="Style30"><a href="<%=(Recordset1.Fields.Item("test").Value)%>" target="_blank">Stock ILIAS</a>&nbsp;<a href="<%=(Recordset1.Fields.Item("RPLOANI4").Value)%>" target="_blank"><a href="<%=(Recordset1.Fields.Item("RPLOANI4").Value)%>" target="_blank"><%=(Recordset1.Fields.Item("Loan4").Value)%></a>&nbsp;<a href="<%=(Recordset1.Fields.Item("RPLOANI5").Value)%>" target="_blank" class="Style30"><%=(Recordset1.Fields.Item("Loan5").Value)%></a> </span></td>
  </tr>
  <tr bgcolor="#CC9966">
    <td colspan="3"><table width="250" border="0" align="right" cellspacing="0">
          <tr>
            <td width="110"><table width="71" border="0" align="right" cellspacing="0">
                <tr>
                  <td width="69"><div align="center"><a href="InsertionFavoris.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "NSN=" & Recordset1.Fields.Item("NSN").Value %>" target="wclose"
onClick="window.open('InsertionFavoris.asp','wclose',
'width=650,height=350,toolbar=no,scrollbars=no,status=no,left=20,top=50')"><img src="../images/dossier4.jpg" alt="Ajouter à mes Favoris" width="29" height="23" border="0"></a></div></td>
                </tr>
            </table></td>
            <td width="136"><table width="34" border="0" align="right" cellspacing="0">
                <tr>
                  <td><div align="center"><a href="CommandeCaddie.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "NSN=" & Recordset1.Fields.Item("NSN").Value %>" target="wclose"
onClick="window.open('CommandeCaddie.asp','wclose',
'width=700,height=350,toolbar=no,scrollbars=no,status=no,left=20,top=50')"><img src="../images/buyl1.gif" alt="Commander cet article" width="23" height="21" border="0"></a></div></td>
                </tr>
              </table>
                <table width="34" border="0" align="right" cellspacing="0">
                  <tr>
                    <td><div align="center"><a href="<%=(Recordset1.Fields.Item("Gestion").Value)%>" target="_blank" class="Style27">Gestion</a></div></td>
                  </tr>
                </table>
                <table width="34" border="0" align="right" cellspacing="0">
                  <tr>
                    <td><div align="center"></div></td>
                  </tr>
                </table>
                <table width="34" border="0" align="right" cellspacing="0">
                  <tr>
                    <td><div align="center"></div></td>
                  </tr>
              </table></td>
          </tr>
    </table></td></tr>
  <tr bgcolor="#FFCC66">
    <td colspan="3"><a href="Asset.asp?nsn=<%=(Recordset1.Fields.Item("NSN").Value)%>" target="_blank">ASSET</a></td>
  </tr>
  <tr>
    <td colspan="3">&nbsp;</td>
  </tr>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>

</table>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>