ADO per EXCHANGE

[domenico.nardo]

Salve a tutti, finisco con un problema e ne inizio con un'altro. un po' di tempo fa ho mandato una discussione sempre sull'argoento ma menio specifica di questo.
Ora vi spiego il rpoblema.
Ho un server exchange della microsoft, vorrei estrapolare dallo store, (mailbox) gli account e stamparli (account e posta elettronica) a video su una pagina asp in vbscript.

So che devo creare una connessione al database e su questo non ho problemi, il problema è come prelevare i campi da quel database, che sinceramente non so come sia strutturato, e stamparli a video.

Potete aiutarmi, grazie in anticipo per l'aiutone.

[raffaeu]

Beh se vuoi sapere nome campo e nome tabella devi usare questo codice

<% 
set rsT = Server.CreateObject("ADODB.Recordset")
set rsC = Server.CreateObject("ADODB.Recordset")

'Esempio di connessione OLEDB al database
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Trusted_Connection=yes;Provider=SQLOLEDB;Data Source=(local);Initial Catalog=nomedatabase;"

'Esempio di connessione DSN-LESS al database
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "Driver={Microsoft Access Driver (.mdb)};dbq=" & 
'Server.MapPath("percorso/database.mdb")

Set RsT = Conn.OpenSchema(20)
do while not RsT.eof
%>
<%= rsT("TABLE_NAME") %>
<%
Set RsC = Conn.OpenSchema(4, Array(Empty, Empty, "" & rsT("TABLE_NAME")))
do while not rsC.eof
%><%= rsC("COLUMN_NAME") %>
<%
rsC.moveNext
loop
rsT.MoveNext
loop

rsT.Close
Set rsT = Nothing
rsC.Close
Set rsC = Nothing
Conn.Close
Set Conn = Nothing
%>

Cambia solamente la connectionString e il nome DB