[ASP] VEDERE IN ASP IL CONTENUTO DI UNA TABELLA ACCESS

<%@ Language="VBScript" %>

<%
Option Explicit
%>
<br>
<div style="margin-left:auto;margin-right:auto;width:60%;">

<%
Dim objConn 'oggetto connessione
Dim objRS 'oggetto recordset

dim strSql 'stringa per eseguire sql (da dare in pasto a objRs)
dim strRisultato 'stringa del risultato dell'sql
dim i,j 'contatori

    'creo un'istanza di Connection
    Set objConn = Server.CreateObject("ADODB.Connection")
    'mi connetto al db senza DSN
    objConn.Open "Provider = Microsoft.Jet.Oledb.4.0; Data Source =" & Server.MapPath("[MIO_DATABASE].mdb")

    'creo un'istanza di RecordSet
    Set objRS = Server.CreateObject("ADODB.Recordset")

    'apro e popolo il recordset con la lista delle richieste di reset password fatte da questo utente
    strSql = " SELECT * "
    strSql = strSql & " FROM [MIA_TABELLA] "

    'apro il recorsdet
    objRS.Open strSQL, objConn, , , 1 ' adCmdText =1
    if not objRS.eof then
        'memorizzo il risultato su una stringa
        strRisultato = objRS.GetString(,,"</td><td>","</td></tr><tr><td>","&nbsp;")
        'tolgo gli ultimo otto caratteri
        strRisultato = left(strRisultato,len(strRisultato)-8)
%>

<table class='listaProfili'>
    <thead><tr>
        <%
        'riporta il nome dei campi
        for i=0 to objRS.fields.count – 1
            response.write "<th>" & objRS.fields(i).name & "</th>"
        next
        %>
    </tr></thead>
    <tbody>
        <tr>
            <td><%Response.Write(strRisultato)%></td>
        </tr>
    </tbody>
</table>

<%
    end if
    'chiudo Recordset e Connection
    objRS.Close
    Set objRs = Nothing
    objConn.Close
    Set objConn = Nothing
%>
</div>
<br>