Datenbankabfrage funktioniert nur einmal

[mR.fLopPy]

Hallo!

Ich habe folgendes Problem und zwar möchte ich eine Newsarchiv machen wo ich halt aller Erneuerungen von meiner Homepage eintragen kann. Wenn ich die *.asp Seite Zeigt er mir den Eintrag den ich in der Datenbank habe. Sobald ich jedoch den IE schließe, neu starte und die gleiche *.asp Seite aufrufe bringt er mir eine Fehlermeldung.

Wenn ich danach versuche die *.mdb zu öffnen, schreibt er mir das bereits in Benutzer auf meine Datenbank zugreift. Dann hilft eigentl. nur ein Neustart um wieder darauf zuzugreifen.

Hoffe ihr könnt mir weiter helfen. Bis Montag muss es jedenfalls funktionieren.

Danke schon mal im voraus

mfg
floppy

Hier der Code:

<%
sql = "select*from news;"
set rs = server.CreateObject("ADODB.recordset")
rs.open sql, conn, 3, 3
%>
<table width="583" height="100%" border="0" bgcolor="#FFFFFF" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
  <tr> 
    <td height="100" colspan="5"><img name="Logo_up" src="../images/banner.gif" width="600" height="100" alt="i-mind Banner/Logo"></td>
  </tr>
  <tr> 
    <td height="30" colspan="5"><img src="../images/news1.gif" alt="News" name="News" width="100" height="30" id="News"><img src="../images/gallerie1.gif" alt="Gallerie" name="Gallerie" width="100" height="30" id="Gallerie"><img src="../images/termine1.gif" alt="Termine" name="Termine" width="100" height="30" id="Termine"><img src="../images/uebermich1.gif" alt="&Uuml;ber Mich" name="JustMe" width="100" height="30" id="JustMe"><img src="../images/links1.gif" alt="Links" name="Links" width="100" height="30" id="Links"><img src="../images/login1.gif" alt="Log In" name="LogIn" width="100" height="30" id="LogIn"></td>
  </tr>
  <tr> 
    <td width="20" bgcolor="#FFFFCC">&nbsp;</td>
    <td width="450" valign="top" bgcolor="#FFFFCC"><br><br>
	    <%
  ' Schleifenbeginn
  rs.movefirst
   do while not rs.eof
   %> 
	  <table width="100%" border="0">
        <tr> 
          <td><b>Jim schrieb am <%response.Write rs("dat")%> um <%response.Write rs("uhr")%> Uhr:</b></td>
        </tr>
        <tr> 
          <td><%response.Write rs("komment")%></td>
        </tr>
        <tr> 
          <td>editieren/L&ouml;schen</td>
        </tr>
      </table>
	  <%
  ' Schleifenende
  rs.movenext
  loop
  %>
  <%
rs.close
set rs = nothing
   %>

PS: Die odbc wird seperat hinzugefügt. Falls ihr eine Einsicht benötigt, dann sagt es einfach.

 

[Luzie]

Ich denke, da kann man jetzt nur spekulieren.
Schließ die die Verbindung doch mal an Ende des Scriptes.

rs.open sql, conn,3,3

benötigst Du eigentlich auch nicht zum einfachen Auslesen der Datensätze.

Versuchs mal so:

<%
sql = "select * from news;"
set rs = server.CreateObject("ADODB.recordset")
rs.open sql, conn
%>
<table width="583" height="100%" border="0" bgcolor="#FFFFFF" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
  <tr> 
    <td height="100" colspan="5"><img name="Logo_up" src="../images/banner.gif" width="600" height="100" alt="i-mind Banner/Logo"></td>
  </tr>
  <tr> 
    <td height="30" colspan="5"><img src="../images/news1.gif" alt="News" name="News" width="100" height="30" id="News"><img src="../images/gallerie1.gif" alt="Gallerie" name="Gallerie" width="100" height="30" id="Gallerie"><img src="../images/termine1.gif" alt="Termine" name="Termine" width="100" height="30" id="Termine"><img src="../images/uebermich1.gif" alt="Über Mich" name="JustMe" width="100" height="30" id="JustMe"><img src="../images/links1.gif" alt="Links" name="Links" width="100" height="30" id="Links"><img src="../images/login1.gif" alt="Log In" name="LogIn" width="100" height="30" id="LogIn"></td>
  </tr>
  <tr> 
    <td width="20" bgcolor="#FFFFCC"> </td>
    <td width="450" valign="top" bgcolor="#FFFFCC"><br><br>
	    <%
  ' Schleifenbeginn
    do while not rs.eof
   %> 
	  <table width="100%" border="0">
        <tr> 
          <td><b>Jim schrieb am <%response.Write rs("dat")%> um <%response.Write rs("uhr")%> Uhr:</b></td>
        </tr>
        <tr> 
          <td><%response.Write rs("komment")%></td>
        </tr>
        <tr> 
          <td>editieren/Löschen</td>
        </tr>
      </table>
	  <%
  ' Schleifenende
  rs.movenext
  loop
  %>
  <%
rs.close
set rs = nothing
conn.close
set conn=nothing
   %>