<% Else 'Выше кнопка HIDDEN устанавливает значение переменной Message в True. 'Данные введены в форму. 'Получение данных из формы. Они будут помещены в базу данных. 'Access не принимает некоторые знаки (например апострофы) поэтому закодируем ' данные с помощью метода HTMLEncode ASP-объекта Server. dim strTB1, strTB2, strTB4, strMB1, strDD, strCommand strTB1 = Request.QueryString("From") strTB2 = Request.QueryString("EMailAdd") strTB4 = Request.QueryString("Subject") strMB1 =Request.QueryString("Memo") strDD = Now() ConnectionString = "DSN=tests;DBQ=C:\InetPub\wwwroot\sources\zonna\test.mdb;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;providerName=System.Data.Odbc" Set objConn = server.createobject("ADODB.Connection") objConn.Open(ConnectionString) 'Определение запроса. 'Существуют различные типы запросов, позволяющих добавлять, удалять и получать данные. 'Этот запрос будет добавлять данные в базу данных с использованием ключевых слов INSERT INTO. 'Здесь GuestBook — это имя таблицы. 'Здесь для ограничения строк нужно использовать апострофы. strCommand = "INSERT INTO GuestBook (name,email,subject,textbody,ddate) VALUES ('"& strTB1 & "','" & strTB2 & "','" & strTB4 & "','" & strMB1 & "','" & strDD & "')" 'Выполнить запрос для добавления данных в базу данных. objConn.Execute strCommand Response.Write("Спасибо! Ваши данные добавлены.") %>