riporto l'errore :
codice:
Microsoft JET Database Engine (0x80004005)Could not use ''; file already in use.
/body.asp, line 235
il codice della pagina e la riga di codice a cui fa rifermento l'errore
codice:
    <%

dim ip

ip= request.ServerVariables("REMOTE_ADDR")
gg=day(Date())
if gg < 10 then gg="0"  & gg end if
mm=month(Date())
if mm < 10 then mm="0"  & mm end if
aa=year(Date())
data=gg & mm & aa 
CNN=Application ("CNN")

set conn=server.createobject("ADODB.Connection")
conn.open CNN ,"",""

qry="INSERT INTO conta (ip, data) " & _
	"SELECT '"& ip & "' , '"& data &"' ;" 

conn.execute(qry)

set rs=server.createobject("ADODB.recordset")

qry2="SELECT TOP 1 id, data FROM conta ORDER BY id desc ;"
rs.Open qry2,conn

set data=rs.fields("data")
g=left(data,2)
m=mid(data,3,2)
y=right(data,4)
data_tot= g & "/" & m  & "/" & y

response.write "Questa pagina ha avuto "& rs.fields("id") &" contatti."
'response.write "
Oggi è il " & data_tot	
%>
        In questo momento ci sono 
        <% =Application("Utenti")%>
        utenti collegati
codice:
<%
	CNN=Application("CNN")
	set conn=Server.CreateObject("ADODB.Connection")
	conn.open CNN   'riga dell'errore 
	
	set rs=Server.CreateObject("ADODB.RecordSet")
	qry="SELECT Top 1 id, Titolo, Argomento FROM Prima where vis=-1 ORDER BY id desc;"

	rs.Open qry,conn
	if rs.eof then 
		response.write "nessun record disponibile"
       else
        %>
                    <%=rs.fields("Titolo")%>

                    <%=rs.fields("Argomento")%></font>

                    [img]files/arrow_green.gif[/img]<a href="javascript:openwindow('myasg/up3/dettagli3.asp?id=<%=rs.fields("id")%>','xxx<%=rs.fields("id")%>',750,750,'yes' ,'no','1',5,4)"> 
                    <%=rs.fields("Titolo")%>--<font color="#009933">Continua quì</font></a></font> 
                    <%
conn.close
set conn=nothing
end if
%>