Vb + asp отобразить данные из БД в виде html таблицы

Формулировка задачи:

Здравствуйте! Мне необходимо вывести в виде таблицы следующие данные: Вот что имеется на данный момент:

<html>
    <body>    
            <%
                Dim con, rs, names
                Set con = Server.CreateObject("ADODB.Connection")
                Set rs = Server.CreateObject("ADODB.RecordSet")
                con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\data.mdb"
                if con.State = 1 then
            %> 
        CONNECTED <br> 
            <%
                rs.Open "Select * from peoples", con                     
                /*Вот здесь нужно реализовать чтение из БД
                и отображение их в виде таблицы    КАК????*/ 
                if rs.EOF = false then 
                    names = rs.Fields("name")
                else
                    names = "???"
                end if
             
            %> 
        <br> name: <input type="Text" size=40 value=<%=names%>>
            <%else%>         
            <%
                end if
                Set rs = Nothing
                Set con = Nothing
            %>       
    </body>
</html>

Как это сделать? Вот файл БД: data.rar Заранее спс!

Решение задачи: «Vb + asp отобразить данные из БД в виде html таблицы»

textual
                            Листинг программы 
                        

                            Imports System.Data.OleDb
Imports System.Data
 
 
Public Class DataSample
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myConnection As OleDbConnection
        Dim myCommand As OleDbCommand
        Dim myReader As OleDbDataReader
 
        'Объявление переменной для хранения строки "ConnectionString".
        Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\data.MDB"
 
        'Создание объекта "OleDbConnection"
        'и передача "ConnectionString" как параметра.
        myConnection = New OleDbConnection(myConnectionString)
 
        'Открытие соединения.
        myConnection.Open()
 
        'Объявление переменной для хранения оператора SQL.
        Dim mySelect As String = "SELECT * FROM peoples"
 
        'Создание объекта "OleDbCommand"
        'и передача строки запроса и объекта соединения как параметров.
        myCommand = New OleDbCommand(mySelect, myConnection)
 
        'Отправка запроса и создание объекта "OleDbDataReader".
        'Примечание: Объект "OleDbDataReader" представляет собой набор записей с последовательным доступом.
        myReader = myCommand.ExecuteReader()
 
        'Объявление переменной для хранения информации, возвращенной объектом "OleDbDataReader",
        'и кода HTML-таблицы, в виде которой будут представлены результаты запроса.
        Dim TableBuilder = "<table border=1 cellspacing=1>"
 
        'Создание строки заголовка, содержащей названия столбцов таблицы.
        TableBuilder += "<tr><td><b>Код Клиента</b></td><td><b>Обращаться к</b></td></tr>"
 
        'Цикл по записям возвращенного набора результатов.
        While (myReader.Read())
            'Объединение значений "DataReader" для создания строк таблицы.
            TableBuilder += "<tr><td>" & myReader("name") _
                            & "</td><td>" + myReader("age") _
                            & "</td></tr>"
        End While
 
        TableBuilder += "</table>"
 
        'Запись завершающей строки.
        Response.Write(TableBuilder)
 
        'Закрытие соединения и объекта "DataReader".
        myConnection.Close()
        myReader.Close()
 
    End Sub
 
End Class
                        