File Already in use
Jeg har 3 billeder der skrifter på skift (de ligger på 3 forskellige sider som så hentes ind i nogle rammer), men når de kører så går der lige lidt også får jeg fejlen "File already in use" og derefter "Provider error", så går der lige 2 minutter så kører det igen. Jeg etabelrer forbindelse sådan her:---------
<%
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\Inetpub\wwwroot\xxxx\xxxx.mdb; uid=; pw=;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
%>
---------
og de sider der henter billeder ud ser sådan herud:
---------
<html>
<head>
<meta HTTP-EQUIV="refresh" CONTENT="10; URL=MaskinRoterDansk.asp">
</head>
<!--#include file="forbindelse.asp" -->
<%
Sql = "Select count(*) as Found from Billeder Where Lillebillede <> null"
Set rs = conn.execute(Sql)
Ialt = rs("found")
Rs.Close
Set rs = Nothing
Sql = "Select * from Billeder Where Lillebillede <> null"
Set rs = conn.execute(Sql)
Application.Lock
Application("strHusk") = Application("strHusk")+1
Application.Unlock
if Application("strHusk")>Ialt then
Application("strHusk")=1
End if
%>
<%
Function Show()
Response.write "<table border=""0"" width=""100%"">"
Response.write "<tr>"
RandNum = Application("strHusk")
rs.MoveFirst
For i = 1 to RandNum - 1
rs.MoveNext
next
id = rs("Vare_ID")
Sql2 = "Select * from Varer Where ID=" & id
Set rs2 = conn.execute(Sql2)
Response.write "HER SKRIVES BILLEDET UD"
Response.write "</tr>"
Response.write "</table>"
Rs.Close
Set Rs = Nothing
Rs2.Close
Set Rs2 = Nothing
Conn.Close
set Conn = Nothing
end function
Show()
%>
---------
Jeg tror selv det er forbi den holder forbindelse åben, men jeg kan ikke se at jeg ikke "ryder" op efter mig. De 3 sider der henter billeder ud ser alle ud som ovenstående
