Hvad betyder fejl-koden?

Du skal huske at lukke for både recordset og connection efter brug i koden, det kan evt. placeres i bunden af filerne som bruger dem.

rs.Close
Set rs = Nothing
Conn.Close
Set conn = Nothing

Det mener jeg ellers jeg har gjort...
Men jeg må gå dem efter

Den skriver også:

Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'Open'

engang imellem

Det var tilsyne ladende ikke det... det var vidst serveren... men smid et svar ellers nupper jeg selv pointene ;)

ok :)
Men jeg har ikke se den sidste fejl før.

Jeg var for hurtig :(

Jeg får igen de to fejl...

Gider i at kigge på følgende side og sige hvad der er galt?!?!

--> Start <--

<%
nyhed = Request.QueryString("nyhed")
%>


            <table width="99%">
            <tr>
              <td class="tdover" colspan="2">Velkommen til Net-lunden.dk<br />
              </td>
            </tr>
            <tr>
              <td colspan="2">    Her vil alle der er i familie med undertegnede kunne få deres egen
                emailadresse (valgfri@net-lunden.dk), se i det fælles billedarkiv,
                tilføje arrangementer i kalenderen, samt se alle i familiens offentliggjorte højtider.
              </td>
            </tr>
            <tr>
              <td align="right" colspan="2">Toste Lund - 18/1 2004&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br /><br />
              </td>
            </tr>
<% if nyhed = "" then %>
            <tr>
              <td class="tdover">Nyheder på Net-lunden.dk<br />
              </td>
              <td align="right"><a href="?nyhed=alle" class="small">se alle</a></td>
            </tr>

<%
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT Top 2 * FROM news ORDER by id desc"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
    rs.Open strSQL, strDSN, 1  <-- Linie 32
    Do While Not rs.EOF
  %>
        <tr class="newstitleline">
          <td class="newstitle"><%=rs("overskrift")%></td>
          <td align="right" class="newsdate"><%=DanskDatoTid(rs("dato"))%></td>
        </tr>
        <tr>
          <td colspan="2" class="news"><%=rs("besked")%><br /><br /></td>
        </tr>

  <%
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
%>
<% end if %>

<% if nyhed = "alle" then %>
            <tr>
              <td class="tdover">Nyheder på Net-lunden.dk<br />
              </td>
              <td align="right"><a href="../" class="small">tilbage</a></td>
            </tr>

<%
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM news ORDER by id desc"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
    rs.Open strSQL, strDSN, 1
    Do While Not rs.EOF
  %>
        <tr class="newstitleline">
          <td class="newstitle"><%=rs("overskrift")%></td>
          <td align="right" class="newsdate"><%=DanskDatoTid(rs("dato"))%></td>
        </tr>
        <tr>
          <td class="news" colspan="2"><%=rs("besked")%><br /><br /></td>
        </tr>

  <%
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
%>

<% end if %>

            </table>

--> Slut <--

Du kan prøve at lave en connection til databasen sådan det ikke er recordset so står for connectionen, så disse linjer:

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT Top 2 * FROM news ORDER by id desc"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
    rs.Open strSQL, strDSN, 1  <-- Linie 32

Bliver til:

    Set rs = Server.CreateObject("ADODB.RecordSet")
    Set Conn = Server.CreateObject("ADODB.Connection")
    strSQL = "SELECT Top 2 * FROM news ORDER by id desc"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
    Conn.Open strDSN
    rs.Open strSQL, Conn, 1




Og så efter:
    rs.Close
    Set rs = Nothing

Huske:
    Conn.Close
    Set Conn = Nothing

Ja... jeg gør nok noget forkert, for det virker ikke optimalt ;)

Jeg får stadig følgende fejl...

Microsoft VBScript runtime error '800a01fb'
An exception occurred: 'Open'

/sider/head.asp, line 33


eller


Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'
[Microsoft][ODBC Microsoft Access Driver] Too many client tasks.

/sider/head.asp, line 33

--> Start <--
<%
nyhed = Request.QueryString("nyhed")
%>


            <table width="99%">
            <tr>
              <td class="tdover" colspan="2">Velkommen til Net-lunden.dk<br />
              </td>
            </tr>
            <tr>
              <td colspan="2">    Her vil alle der er i familie med undertegnede kunne få deres egen
                emailadresse (valgfri@net-lunden.dk), se i det fælles billedarkiv,
                tilføje arrangementer i kalenderen, samt se alle i familiens offentliggjorte højtider.
              </td>
            </tr>
            <tr>
              <td align="right" colspan="2">Toste Lund - 18/1 2004&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br /><br />
              </td>
            </tr>
<% if nyhed = "" then %>
            <tr>
              <td class="tdover">Nyheder på Net-lunden.dk<br />
              </td>
              <td align="right"><a href="?nyhed=alle" class="small">se alle</a></td>
            </tr>

<%
        Set rs = Server.CreateObject("ADODB.RecordSet")
        Set Conn = Server.CreateObject("ADODB.Connection")
        strSQL = "SELECT Top 2 * FROM news ORDER by id desc"
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
        Conn.Open strDSN  <-- Linie 33
        rs.Open strSQL, Conn, 1
        Do While Not rs.EOF
  %>

        <tr class="newstitleline">
          <td class="newstitle"><%=rs("overskrift")%></td>
          <td align="right" class="newsdate"><%=DanskDatoTid(rs("dato"))%></td>
        </tr>
        <tr>
          <td colspan="2" class="news"><%=rs("besked")%><br /><br /></td>
        </tr>

  <%
        rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
%>
<% end if %>

<% if nyhed = "alle" then %>
            <tr>
              <td class="tdover">Nyheder på Net-lunden.dk<br />
              </td>
              <td align="right"><a href="../" class="small">tilbage</a></td>
            </tr>

<%
        Set rs = Server.CreateObject("ADODB.RecordSet")
        Set Conn = Server.CreateObject("ADODB.Connection")
        strSQL = "SELECT * FROM news ORDER by id desc"
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/datalunden.mdb")
        Conn.Open strDSN
        rs.Open strSQL, Conn, 1
        Do While Not rs.EOF
  %>
        <tr class="newstitleline">
          <td class="newstitle"><%=rs("overskrift")%></td>
          <td align="right" class="newsdate"><%=DanskDatoTid(rs("dato"))%></td>
        </tr>
        <tr>
          <td class="news" colspan="2"><%=rs("besked")%><br /><br /></td>
        </tr>

  <%
        rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
%>

<% end if %>

            </table>

--> Slut <--

kan se på http://net-lunden.dk

hmm, og du sikker på database filen ligger det rigtig sted??
Server.MapPath("../db/datalunden.mdb")

ja...
men det har jo også virket... det var først i går at det gik galt