Programmierfehler auf Zeile 13

Hallo Zusammen

Ich unterhalte als Anfänger seit 3 Jahren eine Webseite unseres Vereins.
Nun habe ich folgende Fehlermeldung auf der News HP-Seite erhalten.
Es wäre fantastisch, wenn mir ein Profi helfen könnte, damit ich den
Fehler selber beheben kann. Bin am verzweifeln und brauche Rat.
Direkt unterhalb habe ich den Text auf der News-Seite eingefügt
und unterhalb diesem meine HTML-Datei.

Vielen herzlichen Dank im Voraus.

_____________________________________________

Sommerpause vom 23. Juli - 14. August 2016

Microsoft JET Database Engine error '80004005' 
Could not use ''; file already in use. /inc/seiten/news.aspi, line 13

_____________________________________________

</body><b>
Sommerpause vom 23. Juli - 14. August 2016</b><br/><br/><br/>

< %titel = "News"%>
<%
set news = server.createobject("adodb.recordset")
sql = "select tbl_news.* from tbl_news where(not(news_geloescht)) order by news_datum DESC"
news.open sql,dbcon, 3,3

if not(news.eof) then
%>
< center>
< /center>
<table border="0" bgcolor="" cellpadding="0" cellspacing="0" width="450" style="table-layout:fixed;"
<tr>
<td>
<table width="410">
<tr>
<td width="20"></td>
<td>
<table width="100%" border="0" bordercolor="#FFFFFF" >
<br>
<% while not news.eof
if request.querystring("n") <> "archiv" then
if news("news_datum_bis") >= date then
%>
<tr>

Hallo Zusammen

Vielen Dank für eure Rückmeldungen.

Ich habe nun die komplette Datei dieser News-Seite eingefügt.
Die Zeile 13 ist folgende : news.open sql,dbcon, 3,3.
Die Seite mit der HTML - Datei war schon vorhanden, ich habe nur den
Text mit den Sommerferien geschrieben.
Ansonsten habe ich immer mit dem Access und mit Filezilla gearbeitet
und irgendwie funktioniert es jetzt nicht mehr.
Nein die Datei ist nur einmal vorhanden.
Bin in allem nur ein Greenhorn.
Die Microsoft Lösung habe ich versucht, kommt aber nur der Text :
konnte nicht gefunden werden oder falsche Eingabe.
Vielleicht habt ihr ja eine andere Lösung.

Gruss und Dank
guguseli11

</body><b>
Sommerpause vom 23. Juli - 14. August 2016</b><br/><br/><br/>


<%titel = "News"%>
<%
set news = server.createobject("adodb.recordset")
sql = "select tbl_news.* from tbl_news where(not(news_geloescht)) order by news_datum DESC"
news.open sql,dbcon, 3,3
if not(news.eof) then
%>
<center>
</center>
<table border="0" bgcolor="" cellpadding="0" cellspacing="0" width="450" style="table-layout:fixed;"
<tr>
<td>
<table width="410">
<tr>
<td width="20"></td>
<td>
<table width="100%" border="0" bordercolor="#FFFFFF" >
<br>
<% while not news.eof
if request.querystring("n") <> "archiv" then
if news("news_datum_bis") >= date then
%>
<tr>
<td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" ><b><%= news("news_datum") %><hr color="black" style="height:1px;"></b></font></div></td>
</tr>
<tr>
<td colspan="2"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" >
<%= replace(news("news_inhalt"), vbcrlf, "<br>") %></font></div></td>
</tr>
<tr><td><br><br></td></tr>
<%
newsys = TRUE
end if
else%>
<tr>
<td><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" ><b><%= news("news_datum") %><hr color="black"></b></font></div></td>
</tr>
<tr>
<td colspan="2"><div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" >
<%= replace(news("news_inhalt"), vbcrlf, "<br>") %></font></div></td>
</tr>
<tr><td><br><br></td></tr>
<%
newsys = TRUE
end if
news.movenext
wend
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
else
%>
Keine aktuellen Meldungen
<%
end if%>

Ja am Passwort und am Port kann es nicht liegen, da es ja vorher auch immer funktioniert hat und ich nichts an den Einstellungen geändert habe.
Das mit der Datei wird bereits verwendet habe ich schon verstanden, aber ich habe das Access sonst nirgends geöffnet. Nun muss ich wohl
annehmen, dass die DB-Datei defekt ist. Also muss ich mich nun wieder darüber schlau machen.

Vielen Dank für eure Bemühungen .