<%
SeminarType = request.QueryString("seminar")
if SeminarType="" then SeminarType="4"
Name = request.form("Name")
Phone = request.form("Phone")
EMail = request.form("EMail")
Organization = request.form("Organization")
Position = request.form("Position")
SeminarType2 = request.form("SeminarType")
if SeminarType2<>"" then SeminarType=SeminarType2
Tag = request.form("Tag")
if Tag = "edited" and Name <> "" and Phone <> "" and EMail <> "" then
response.write("Спасибо! Ваши регистрационные данные сохранены.")
Set PriceDBObject = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM SeminarMart2005"
PriceDBObject.open sql, "DSN=AnketaDB", adOpenStatic, adLockOptimistic, adCmdText
PriceDBObject.AddNew
PriceDBObject("Name") = Name
PriceDBObject("Phone") = Phone
PriceDBObject("EMail") = EMail
PriceDBObject("Organization") = Organization
PriceDBObject("Position") = Position
PriceDBObject("SeminarDate") = SeminarType
PriceDBObject.Update
PriceDBObject.Close
else
if Tag = "edited" and (Name = "" or Phone = "" or EMail = "") then
response.write("Внимание! Не все обязательные поля заполнены.")
end if
select case SeminarType
case "4"
SemTitle = "семинар 'Организация архива компании' 21 апреля 2005 года"
end select
%>
<%
End If
Set PriceDBObject = Server.CreateObject("ADODB.RecordSet")
%>