//отключение сообщений об ошибках
 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 «»

назад