Lo script di oggi è uno di quegli script da tenere sempre a portata di mano, se puntate a far scambiare dati alle vostre applicazioni con programmi o altre applicazioni web esterne alla vostra.
XML è uno standard più che maturo per questo genere di cose ed in molti casi può togliervi dall'imbarazzo di dover trovare un formato accettabile per entrambi le parti.
Questo codice si limita a rendere disponibile, qualsiasi sia la sua struttura, il contenuto di una tabella di un database.
Vi basta personalizzarlo in pochi punti perchè sia già funzionante.

<%

set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn

set rs = conn.Execute("SELECT * FROM tabella")

Dim strXML
strXML = "<xml>"

Do While rs.EOF<>True

  strXML = strXML & "<row>"

  For Each Item In rs.Fields
    strXML = strXML _
            & "<" & Item.name & ">" _
            & Item.value _
            & "</" & Item.name & ">"
  Next

  strXML = strXML & "</row>"

  rs.MoveNext

Loop

strXML = strXML & "</xml>"

' libero risorse
rs.Close
Set rs = Nothing
conn.Close
set conn = Nothing

%>

In realtà ADO mette a disposizione un oggetto Recordset, che ha tra i suoi metodi Save, che permette di rendere persistente un recorset su un file XML:

<%

rs.Save Response, adPersistXML '-1

%>

Tuttavia nonostante sia molto più veloce come approccio, questo sistema produrrà un mole molto grande di dati, alcuni dei quali anche inutili.

Per maggiori informazioni su XML si veda:
https://www.aspitalia.com/articoli/xml/introduzione.asp