Галактика в вопросах и ответах

Есть база на сервере, подключаюсь к нему через клиента Pervasive по ODBC.
Нужно вывести в html таблицу. Может кто нибудь бросит пример любой готовый.

Странно, разве ни кто не пишит отчеты на html?

Вот так примерно это выглядит на WSH
на ASP где то также долно быть
' Получение информации о текущих пользователях
Dim db
Dim rs
dim str
dim i
Set db =WScript.CreateObject("ADODB.Connection")
Set rs =WScript.CreateObject("ADODB.Recordset")
db.ConnectionTimeout = 2
db.CommandTimeout = 2
db.ConnectionTimeout = 2
db.ConnectionString = "Provider=MSDASQL;Persist Security Info=False;Data Source=galaxy2"
db.Open()
rs.ActiveConnection = db
'sapros = "select novellname from X__ACTIVEUSERS"
sapros = "select novellname, XU$FULLNAME from X__ACTIVEUSERS, X__USERS where X__USERS.ATL_NREC =X__ACTIVEUSERS.USERCODE "
rs.Open sapros, , , , adCmdText
i=0
Do Until rs.EOF
i=i+1
str=rs.Fields("novellname").Value
str1=rs.Fields("XU$FULLNAME").Value
allstr=allstr & chr(13) & i & " " & str & " " & str1
rs.MoveNext
Loop
rs.Close
db.Close
WScript.Echo allstr

а в чем проблемма?
разницы ни какой, что подключаешь первасиве, что акцессовскую базу в аспе нет.
например для акцесса:
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("путь на базу/база.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

далее для запроса:
Set RSEVENT = Server.CreateObject("ADODB.RecordSet")
RSEVENT.CursorType=1
RSEVENT.Open "SELECT * FROM таблица ", Conn, 1, 3

ну и погнал в цикле бегать:
Do while NOT RSEVENT.EOF
делаешь то, что тебе надо, например генеришь хтмл-код
RSEVENT.movenext
Loop
RSEVENT.close

Вот так примерно это выглядит на WSH
на ASP где то также долно быть
' Получение информации о текущих пользователях
Dim db
Dim rs
dim str
dim i
Set db =WScript.CreateObject("ADODB.Connection")
Set rs =WScript.CreateObject("ADODB.Recordset")
db.ConnectionTimeout = 2
db.CommandTimeout = 2
db.ConnectionTimeout = 2
db.ConnectionString = "Provider=MSDASQL;Persist Security Info=False;Data Source=galaxy2"
db.Open()
rs.ActiveConnection = db
'sapros = "select novellname from X__ACTIVEUSERS"
sapros = "select novellname, XU$FULLNAME from X__ACTIVEUSERS, X__USERS where X__USERS.ATL_NREC =X__ACTIVEUSERS.USERCODE "
rs.Open sapros, , , , adCmdText
i=0
Do Until rs.EOF
i=i+1
str=rs.Fields("novellname").Value
str1=rs.Fields("XU$FULLNAME").Value
allstr=allstr & chr(13) & i & " " & str & " " & str1
rs.MoveNext
Loop
rs.Close
db.Close
WScript.Echo allstr

Гляньте еще тут:
http://galpro.itpark.ru/cgi-bin/cutecas ... thread=463
интерфейс выгрузки прайса в Html на сайт