ASP, Pervasive,ODBC

[brabl]

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

[brabl]

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

[teapot]

Вот так примерно это выглядит на 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

[Vitas]

а в чем проблемма?
разницы ни какой, что подключаешь первасиве, что акцессовскую базу в аспе нет.
например для акцесса:
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

[teapot]

Вот так примерно это выглядит на 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

[Galpro_tut]

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