//отключение сообщений об ошибках
 On Error Resume Next
 Response.Write «
Добавление данных»
 //если есть параметры, тогда обрабатываем их
 If Request.Form.count > 0 then
 Dim strConnect,objConn,objCom,period,sales,pays,day_week
 strConnect=»Provider=SQLOLEDB; Data Sourse=db; 
Database=boss; User ID=boss; Password=test»
 Set objConn=Server.CreateObject(«ADODB.Connection»)
 objConn.Open strConnect
 Set objCom=Server.CreateObject(«ADODB.Command»)
 period=»'» & Request.QueryString(«period») & «'»
 sales=Request.QueryString(«sales»)
 pays=Request.QueryString(«pays»)
 day_week=»'» & Request.QueryString(«day_week») & «'»
 objCom.ActiveConnection=objConn
 objCom.CommandText=»Insert into boss_table 
(period,sales,pays,day_week) values 
(« & period & «,» & sales & «,» & pays & «,» & day_week & «)»
 objCom.Execute
 objConn.Close
 Set objConn=Nothing
 //обработка ошибок
 if objConn.Errors.Count > 0 then
 Response.Write «

Ошибка записи в базу данных.

» Response.Write «

Возможные причины:» Response.Write «

  • Неверный формат ввода даты
  • Выход за пределы допустимых значений
» End If Response.Write «
» Response.Write «Введенные данные:

» Response.Write «
Дата (число/месяц/год): » & Request.QueryString(«period») & «
Продажи: » & Request.QueryString(«sales») & «
Платежи: » & Request.QueryString(«pays») & «
День недели: » & Request.QueryString(«day_week») & «
» else Response.Write «
Введите данные для добавления в базу

» Response.Write «

» Response.Write «
Дата (число/месяц/год):
Продажи:
Платежи:
День недели:
» End If Response.Write «»

назад

Поделитесь материалом с коллегами и друзьями