Set rs = CreateObject("ADODB.RecordSet")
rs.Open StrSQL, MyDB, adOpenDynamic, adLockPessimistic,
adCmdText
response.write "
Отчет по запросу:
"
'------- вывод набора записей в таблицу -------------
If rs.EOF = True Then
response.write "
Список пуст
"
stop
End If
'--- Вывод таблицы на лист ----
rs.MoveFirst
tt="
"
'--- Строка с заголовками столбцов --
For Each el In rs.Fields
rr = el.Name
tt = tt & ""
Next
tt=tt & ""
Автор: к.т.н. Герасимов Н.А.
Слайд 17
Вывод таблицы в HTML-формат
'—Блок 3----- Вывод тела
таблицы -------------
Do Until rs.EOF
tt=tt & " "
'---- чтение элементов строки -----
For Each el In rs.Fields
rr = el.Value
tt = tt & ""
Next
'---- переход на седующую строку ----
tt=tt & ""
rs.MoveNext
Loop
'------------- конец формирования таблицы -----
tt=tt & "
"
response.write tt
%>
Автор: к.т.н. Герасимов Н.А.