Recordset.EOF

Bortset fra at du har skrevet Repsonse i stedet for Response ser det rigtigt ud.

If Recordset.EOF OR Recordset.BOF

(tror jeg)

el_barto: Hvis recordset'et er tomt er første 'record' i recordset'et både den første (BOF) og den sidste (EOF). Der er derfor ingen grund til at teste for begge.

Det skulle kunne gøre det :) Vidst næsten det samme som du har, du har bare stavet Response forkert ;)

<%
if recordset.eof then
response.write ("der er ikke fundet noget")
else
'EN MASSE KODE TIL AT VISE INDHOLDET AF RECORDSET
end if

%>

tjaa....
jeg vil sige det samme som er sagt, men sørg for ikke at starte og slutte dit asp-tag så mange gange, jo flere gange <% eller %> benyttes jo langsommere bliver siden...
Benyt i stedet Response.write "<html-tags>" så virker det...
Altså_:

<% if recordset.EOF then
Response.write "der er ikke fundet nogen poster"
else
Response.write "din kode..."
end if
%>

-Ellebæk

Det virker stadig ikke - fatter det ikke. Nu har jeg skrevet følgenden:

.................
.................
  <td width="419" valign="bottom" height="39"><img src="../_images/<%=(rsCategory.Fields.Item("CategoryImage").Value)%>" width="320" height="35"></td>
        </tr>
      </table>
      <br>
      <span class="rodbread">
      <% If (rsPhoto.BOF AND rsPhoto.EOF) Then Response.Write("Der er ingen billeder i albummet") %>
      </span>
      <% Else %>
   
      <table width="521" border="0" cellspacing="0" cellpadding="0" height="30">
        <tr>
          <td width="8">&nbsp;&nbsp;</td>
          <td width="279" class="bread"><b>titel:&nbsp;&nbsp;</b></td>
          <td widt
.................
.................
        <td width="142">&nbsp;</td>
          <td width="40">&nbsp;</td>
          <td width="30">&nbsp;</td>
          <td width="26">&nbsp;</td>
        </tr>
      </table>
    <% End If %>
      <br>
    </td>
  </tr>
  <tr>

.................
.................


Det er vel også stort set hvad I har skrevet

Kan du ikke prøve at forklare hvordan det ikke virker? Får du en fejlmeddelelse eller sker der bare ingenting? Det er ikke if-sætningen som er gal så du bliver nok også nødt til at poste noget mere kode.

Den melder fejl ved " Else "

Ja det er lavet i Dreamweaver UltraDev 4 - lidt doven er man vel...

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Conn.asp" -->
<!--#include file="check.inc" -->
<%
Dim rsCategory__MMColParam
rsCategory__MMColParam = "1"
if (Request.QueryString("CategoryID") <> "") then rsCategory__MMColParam = Request.QueryString("CategoryID")
%>
<%
set rsCategory = Server.CreateObject("ADODB.Recordset")
rsCategory.ActiveConnection = MM_Conn_STRING
rsCategory.Source = "SELECT Category.*, Photo.*, Users.UserFirstName, Users.UserLastName, Users.UserID  FROM Category, Users, Photo  WHERE CategoryRegUser = Users.UserID AND PhotoCategory = Category.CategoryID AND CategoryID = " + Replace(rsCategory__MMColParam, "'", "''") + "  ORDER BY PhotoID ASC  "
rsCategory.CursorType = 0
rsCategory.CursorLocation = 2
rsCategory.LockType = 3
rsCategory.Open()
rsCategory_numRows = 0
%>
<%
Dim rsPhtoto__MMColParam
rsPhtoto__MMColParam = "1"
if (Request.QueryString("CategoryID") <> "") then rsPhtoto__MMColParam = Request.QueryString("CategoryID")
%>
<%
set rsPhtoto = Server.CreateObject("ADODB.Recordset")
rsPhtoto.ActiveConnection = MM_Conn_STRING
rsPhtoto.Source = "SELECT PhotoID FROM Photo WHERE PhotoCategory = " + Replace(rsPhtoto__MMColParam, "'", "''") + ""
rsPhtoto.CursorType = 0
rsPhtoto.CursorLocation = 2
rsPhtoto.LockType = 3
rsPhtoto.Open()
rsPhtoto_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsCategory_numRows = rsCategory_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' 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
%>
<!--#include file="check.inc" -->
<html>
<head>
<title>/l&uuml;tzens fotoalbum+/ /administrationssiden/ /albums/</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="frontpage.css" type="text/css">
<link rel="stylesheet" href="../frontpage.css" type="text/css">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body bgcolor="#669999" text="#000000" onLoad="MM_preloadImages('_images/hovedsiden2.gif','_images/indsaetbillede2.gif','_images/brugere2.gif','_images/minprofil2.gif')">
<table width="530" border="0" cellspacing="0" cellpadding="0" height="225" align="center">
  <tr>
    <td bgcolor="#FFFFFF" height="87" valign="top">
      <p>&nbsp;<a href="default.asp" target="_self"><img src="_images/logo_admin.gif" width="394" height="58" alt="&gt;&gt; g&aring; til forsiden" border="0"></a><br>
        &nbsp;<a href="../default.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('hovedsiden','','_images/hovedsiden2.gif',1)"><img name="hovedsiden" border="0" src="_images/hovedsiden1.gif" width="100" height="23"></a>
        <a href="indsaetbillede.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('indsæt billede','','_images/indsaetbillede2.gif',1)"><img name="indsæt billede" border="0" src="_images/indsaetbillede1.gif" width="100" height="23"></a>
        <img src="_images/albums3.gif" width="100" height="23"> <a href="brugere.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('brugere','','_images/brugere2.gif',1)"><img name="brugere" border="0" src="_images/brugere1.gif" width="100" height="23"></a>
        <a href="minprofil" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('min profil','','_images/minprofil2.gif',1)"><img name="min profil" border="0" src="_images/minprofil1.gif" width="100" height="23"></a>
      </p>
    </td>
  </tr>
  <tr>
    <td height="3" bgcolor="#B2CCCC"></td>
  </tr>
  <tr>
    <td height="435" bgcolor="#FFFFFF" valign="top" style="background-repeat:no-repeat" class="mini">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="24" valign="middle">
            <table width="215" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="9">&nbsp;</td>
                <td width="205" valign="middle"><a href="albums.asp" target="_self"><img src="_images/allealbums1.gif" width="56" height="12" border="0" alt="&gt;&gt; g&aring; til alle albums"></a>
                  <img src="_images/streg.gif" width="4" height="16"><a href="album_nyt.asp" target="_self"><img src="_images/nytalbum.gif" width="56" height="12" alt="&gt;&gt; opret ny album" border="0"></a>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td bgcolor="#B2CCCC" height="3"></td>
        </tr>
      </table>
      <table width="436" border="0" cellspacing="0" cellpadding="0" height="53">
        <tr>
          <td width="9" height="39">&nbsp;</td>
          <td width="419" valign="bottom" height="39"><img src="../_images/<%=(rsCategory.Fields.Item("CategoryImage").Value)%>" width="320" height="35"></td>
        </tr>
      </table>
      <br>
      <span class="rodbread">
      <% If (rsPhoto.BOF AND rsPhoto.EOF) Then Response.Write("Der er ingen billeder i albummet") %>
      </span>
      <% Else %>
   
      <table width="521" border="0" cellspacing="0" cellpadding="0" height="30">
        <tr>
          <td width="8">&nbsp;&nbsp;</td>
          <td width="279" class="bread"><b>titel:&nbsp;&nbsp;</b></td>
          <td width="142" class="bread"><b>&nbsp;&nbsp;reg bruger:&nbsp;&nbsp;</b></td>
          <td width="40" class="bread"><b>billede:</b></td>
          <td width="30" class="bread"><b>slet:&nbsp;&nbsp;</b></td>
          <td width="26" class="bread"><b>ret:&nbsp;&nbsp;</b></td>
        </tr>
        <tr>
          <td width="8" height="2"></td>
          <td colspan="5" height="2" bgcolor="#B2CCCC"></td>
        </tr>
        <%
While ((Repeat1__numRows <> 0) AND (NOT rsCategory.EOF))
%>
        <tr>
          <td width="8" height="17">&nbsp;</td>
          <td width="279" class="bread" valign="top" height="17"><b><%=(rsCategory.Fields.Item("PhotoTitle").Value)%></b><br>
            <br>
            <%=(rsCategory.Fields.Item("PhotoDescription").Value)%>&nbsp;&nbsp;</td>
          <td width="142" class="bread" valign="top" height="17">&nbsp;<%=(rsCategory.Fields.Item("UserFirstName").Value)%>&nbsp;<%=(rsCategory.Fields.Item("UserLastName").Value)%>&nbsp;&nbsp;&nbsp;</td>
          <td width="40" class="mini" valign="middle" height="17"><a href="retbillede.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "PhotoID=" & rsCategory.Fields.Item("PhotoID").Value %>" target="_self"><img src="../album/<%=(rsCategory.Fields.Item("CategoryFolder").Value)%>/thumb/<%=(rsCategory.Fields.Item("PhotoPicThumb").Value)%>" alt="<%=(rsCategory.Fields.Item("PhotoDescription").Value)%>" border="0"></a><br>
            &nbsp;&nbsp;&nbsp;</td>
          <td width="30" class="bread" valign="top" align="left" height="17">&nbsp;<A HREF="billede_slet.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "PhotoID=" & rsCategory.Fields.Item("PhotoID").Value & "&CategoryID=" & rsCategory.Fields.Item("PhotoCategory").Value%>" target="_self"><img src="_images/slet.gif" width="18" height="18" border="0" alt="&gt;&gt; slet billedet <%=(rsCategory.Fields.Item("PhotoTitle").Value)%>"></A></td>
          <td width="26" class="bread" valign="top" height="17"><A HREF="retbillede.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "PhotoID=" & rsCategory.Fields.Item("PhotoID").Value %>" target="_self"><img src="_images/ret.gif" width="20" height="20" alt="&gt;&gt; ret billedet <%=(rsCategory.Fields.Item("PhotoTitle").Value)%>" border="0"></A>&nbsp;</td>
        </tr>
        <tr>
          <td width="8"></td>
          <td colspan="5" bgcolor="#B2CCCC" height="1"></td>
        </tr>
        <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsCategory.MoveNext()
Wend
%>
        <tr>
          <td width="8">&nbsp;</td>
          <td width="279">&nbsp;</td>
          <td width="142">&nbsp;</td>
          <td width="40">&nbsp;</td>
          <td width="30">&nbsp;</td>
          <td width="26">&nbsp;</td>
        </tr>
      </table>
    <% End If %>
      <br>
    </td>
  </tr>
  <tr>
    <td bgcolor="#B2CCCC" height="3"></td>
  </tr>
  <tr>
    <td bgcolor="#993300" class="whitebottom">&nbsp; du er logget ind som <%= Session("Navn")%> | <a href="logud.asp">log ud</a></td>
  </tr>
</table>
</body>
</html>
<%
rsCategory.Close()
%>
<%
rsPhtoto.Close()
%>

Jeg tror egentlig bare du skal dele linien:
<% If (rsPhoto.BOF AND rsPhoto.EOF) Then Response.Write("Der er ingen billeder i albummet") %>

så det bliver:
<% If (rsPhoto.BOF AND rsPhoto.EOF) Then
Response.Write("Der er ingen billeder i albummet") %>

Her er fejlmeddelelsen fra serveren

Fejltype:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/foto/admin/albums_billeder.asp, line 151

- har prøvet at dele linjen som 'cbp' skrev uden resultat

Hvad hvis du bare skriver rsPhoto.EOF i stedet for rsPhoto.BOF AND rsPhoto.EOF

det virker heller ikke

er der nogen der har en idé om hvorfor det her ikke virker - det skulle være så simpelt, men nej....