<%

Class ASPItalia
  ' dichiaro l'oggetto visibile in tutta la classe
  Dim conn

  ' invocato quando viene instanziata la classe
  Private Sub Class_Initialize()
    strConn = "Provider=sqloledb; Data Source=(local); Initial Catalog=pubs; Integrated Security=SSPI;"
    set conn = Server.CreateObject("ADODB.Connection")
    conn.Open strConn
  End Sub

  ' invocato quando viene deallocata la classe
  Private Sub Class_Terminate()
    if IsObject(conn) Then
      conn.Close
      set conn = Nothing
    end if
  End Sub

  ' funzione pubblica
  Public Function Estrai(tabella)
    ' codice dello script #372
     Set rs = conn.Execute("SELECT * FROM " & tabella)

      ' ricavo il nome dei campi
      For i = 0 to RS.Fields.Count - 1
        intestazione = intestazione & "<th bgcolor=gray>" & RS(i).Name &"</th>"
      Next
  
      ' prendo i dati dal db
      strResults = rs.GetString(, 10,"</td><td>","</td></tr><tr><td>","-")
      set rs = nothing

      ' output
     Estrai = "<table border=1>" & _
                  "<tr>" & intestazione & "</tr>" & _
                  "<tr><td>" & _
                  strResults & _
                  "</td></tr></table>"
   End Function

End Class


'utilizzo l'oggetto
set objASPItalia = New ASPItalia
Response.Write ( objASPItalia.Estrai("authors") )
set objASPItalia = Nothing

%>