Пример в этой статье описывает метод VB, возвращающий результаты набора записей в таблицы HTML. Поделитесь этим со всеми для справки. Конкретный метод реализации заключается в следующем:
функция ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst response.Write "<tabledata"" cols=""" & rs.Fields.Count & """>" response.Write "<tr>" Для каждого поля oField в ответе rs.Fields. Напишите «<th>» и oField.Name & «</th>» Следующий ответ. Напишите «</tr>» «Делать, пока нет». rs.EOF ответ.Запишите "<tr>" для каждого поля oField в ответе rs.Fields.Запишите "<td>" Если IsNull(oField) Тогда ответ.Запишите " " Иначе ответ.Запишите oField.Value End If ответ.Запишите " </td>" Следующий ответ rs.MoveNext.Запись "</tr>" Цикл ответа.Запись "</table>"конечная функция
Я надеюсь, что эта статья будет полезна всем, кто занимается программированием на VB.