codice:
conn.ConnectionString = "driver={Microsoft Access Driver(*.mdb)};dbq=" & 
Server.MapPath("../mdb-database/ecom1.mdb")
	conn.CursorLocation = adUseClient
	conn.Open 
	rs.CursorLocation = adUseClient
	rs.Open "SELECT * FROM " & Request.QueryString("TableName"), conn , adOpenkeyset, adLockBatchOptimistic
        rs.Save stm, adPersistXML
	Response.ContentType = "text/xml"
     Response.Write server.HTMLEncode(stm.ReadText)