<%@ LANGUAGE=VBScript %>
<%Response.Expires=0%>
<%
NUM=Request.Querystring("NUM")
NAME=Request.Querystring("NAME")
ADRESS=Request.Querystring("ADRESS")
Email=Request.Querystring("EMAIL")
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>WORK</title>
</head>
<!--На этой странице все достаточно просто. Определяем что именно было передано со страницы ввода данных
и проверяем на соответствие <>"" в противном случае выводим соответствующее сообщение и прекращаем работу скрипта. -->

<body BGColor="#FFFFFF" Text="#FFFFFF">
<%
if NUM="" then
   msg="<li>Ошибка при вводе! Не заполнено поле номера телефона!"
   Elseif NAME="" then
   msg="<li>Ошибка при вводе! Не заполнено поле ФИО!"
   ElseIf ADRESS="" then
   msg="<li>Ошибка при вводе! Не заполнено поле адреса!"
   else

  	Set Conn = Server.CreateObject("ADODB.Connection")
  	Conn.Open "tel"

sqlstr="INSERT INTO KART "
sqlstr=sqlstr & "(NUM,NAME,ADRESS,Email) VALUES "
sqlstr=sqlstr & "('" & NUM & "','" & NAME & "','" & ADRESS  & "','" & Email & "')"
Conn.Execute(sqlstr)
msg=NAME & " успешно добавлен в базу!."  
end if
%>
<b>

<p><a href="ASPwork.asp">Возвратиться к форме ввода</a> </p>

<p><font color="#000000">Новая запись:</font><font color="#FF0000">  <%=msg%></b><br>
</font></p>
</body>
</html>