Чего-то не понял, у меня что-ли на компе? Я же имел ввиду сервак общесвенный.
А MSAccess я вообще не знаю!!!
<%
'Отключаем вывод ошибок и остановку скрипта
On error resume next
Dim FSO
Dim LOG
'Создаём FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
'Создаём элемент FSO, с функциями управления
Set LOG = FSO.OpenTextFile(server.mappath("log.txt"),8,true,-2)
'Пишем время в файл
LOG.write time & vbcrlf
'Закрываем файл
LOG.close
'Удаляем экземпляр FSO
Set FSO=NOTHING
'Удаляем его компонент
Set LOG=NOTHING
'Это на случай ошибки - вывод инфы
Response.write err.description
%>
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0