problema con query

[hugheshi]

riporto l'errore :

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

    <%

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

<%
	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
%>

[burruchaga]

togli quel ";" , hai provato?

[hugheshi]

dove ,scusa?

[Roby_72]

Ma gli scritp di sopra sono nella stessa pagina?
Hai aperto la connessione due volte.

Roby

[hugheshi]

si si tratta della stessa pagina

[Roby_72]

Allora ti ho risposto.

Roby

[hugheshi]

ma in locale su xp funziona su server mi riporta l'errore
mi dici cosa togliere ?
grazie in anticipo (scusa la mia poca conoscenza )

[Roby_72]

Nella seconda pagina devi togliere queste righe:

	CNN=Application("CNN")
	set conn=Server.CreateObject("ADODB.Connection")
	conn.open CNN   'riga dell'errore

Evviva i server...

Roby

[hugheshi]

grazie ma non va
riposto tutto il codice , in locale su xp va su server 2000 no

prima avevo dimenticato un pezzo :
[CODE <%

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

<%
'CNN=Application("CNN")
'set conn=Server.CreateObject("ADODB.Connection")
'conn.open CNN

set rs=Server.CreateObject("ADODB.RecordSet")
qry4="SELECT Top 1 id, Titolo, Argomento FROM Prima where vis=-1 ORDER BY id desc;"

rs.Open qry4,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="javascriptpenwindow('myasg/up3/dettagli3.asp?id=<%=rs.fields("id")%>','xxx<%=rs.f ields("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
%>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Set rsQuery = Server.CreateObject("ADODB.Recordset")
Path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Path = Path & Server.MapPath("myasg/up3/news.mdb") & ";Mode=ReadWrite;Persist Security Info=False"
Con.Open Path

Const CONST_DISPLAY = 5
%>
<%
Dim i
Set rsQuery = Con.Execute("SELECT * FROM News WHERE vis=-1 ORDER BY id DESC")
If rsQuery.EOF Then
%>
<font face="Verdana" size="1">No Tags</font>
<%
End If
i = 1
While Not rsQuery.EOF And i <= CONST_DISPLAY
%>
<a href="myasg/up3/dettagli.asp?id=<%=rsQUERY("id")%>" target="_blank"><%= rsQuery("Titolo")%>

<%
rsQuery.MoveNext : i = i + 1
Wend
%>
<%
'rs.close
'set rs=nothing
'conn.close
'set conn=nothing


if err.number<>0 then

response.write Err.number & "
" & Err.description
response.end
end if

%>
[/CODE]

[Roby_72]

Errore?