Реферат: Считывание данных из гостевой книги

.CommandType = adCmdText

.Execute

End With

Resume

Else

Debug.Print Err.Number; Err.Description

Resume MyExit

End If

End Sub

Function CleanText(strText As String)

' Замените специальные символы HTML типа & with & и " with "

CleanText = Replace(strText, "&", "&")

CleanText = Replace(CleanText, """, """")

End Function

Как описывалось выше этот набор процедур используется в приложении Access, для считывания данных с файла с расширением html. В этом файле хранятся данные о пользователях Гостевой книги.