<% 
Response.ContentType = "text/xml" 
%> 
<?xml version="1.0" encoding="utf-8"?> 
<news_list max_id="15"> 
<% 
Dim MM_lu_STRING 
MM_lu_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../mdb-database/eventi_08.mdb") 

Set objConn = Server.CreateObject ("ADODB.Connection") 
objConn.Open MM_lu_STRING 

set rs = objConn.execute("SELECT * FROM locale1 ORDER BY id ASC") 

Do until rs.eof 
  response.write "<news pref="& rs("pref") &" pos="& rs("pos") &" id="& rs("id") &" data="& rs("data") &" titolo="& rs("titolo") &" link="& rs("link") &" testo="& rs("testo") &">" 

  rs.movenext 

loop 
rs.close 
set rs = nothing 

objConn.close 
set objConn = nothing 

%> 
</news_list>