<%
Const adOpenKeyset = 1
Const adLockReadOnly = 1

StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database.mdb")

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open StrConnessione

SQL = "SELECT * FROM elenco"

Response.ContentType="text/xml"
Response.Expires = -1
%><?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>

<elenco>
<%

Set rs = Server.CreateObject("ADODB.RecordSet") 
rs.Open SQL, Conn, adOpenKeyset,adLockReadOnly 

Do while not rs.eof 

  Response.Write "<lista nome=""" & rs("nome") & """ cognome=""" & rs("cognome") & """ via=""" & rs("via") & """ foto=""" & rs("foto") & """><info paese=""" & rs("paese") & """ link=""" &rs("link") &"""/></lista>" 

rs.movenext 

Loop 

rs.close 
set rs=nothing 

Response.Write "</elenco>" 

Conn.Close
set Conn=nothing
%>