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]