Ассоциация Телевидения Высокой Четкости и Цифрового Кино
www.hdunion.ru
Добавить в избранное Сделать стартовой Карта сайта
Рус | Eng
Тел/Факс: (495) 781-20-61 Главная
info@hdunion.ru Почта
Об HD Union | Как вступить | Проекты | О лицензировании | Полезные ссылки | Контакты
  HD-программы
 
 
 
<% v1 = request.form("v1") v2 = request.form("v2") v3 = request.form("v3") v4 = request.form("v4") v5 = request.form("v5") v6 = request.form("v6") v7 = request.form("v7") v8 = request.form("v8") v9 = request.form("v9") v10 = request.form("v10") v11 = request.form("v11") v12 = request.form("v12") v13 = request.form("v13") v14 = request.form("v14") marker = request.form("marker") result = "" 'if instr(email,"@")=0 or instr(email,".")=0 or trim(email) = "нет" or trim(email)="-" then 'result = "Неправильный ввод адреса: " & email 'end if if v1 = "" or v6 = "" or v7 = "" or v9 = "" or v14 = "" then result = "Просьба заполнить все обязательные поля (помечены * ) !" end if %> "HD - программы".
<% if marker = "" then %>

"HD - программы". Анкета.

Пожалуйста, заполните следующую форму:

Название снятого киноматериала:
 
*
Режиссер:
 
  
Сценарист:
 
  
Продюсер:
 
  
Студия производитель:
 
  
Правообладатель:
 
*
Жанр:
 
*
В ролях (для игровых фильмов):
 
  
Продолжительность (мин):
 
*
Год выпуска:
 
  
Звук:
 
  
Какой камерой снят материал:
 
  
Аннтотация:
 
  
Контактная информация (ФИО, телефон, е-mail):
 
*

( * ) - поля, обязательные для заполнения !

  

По всем вопросам обращайтесь по e-mail: info@hdunion.ru
<% else %> <% if result <> "" then %>

Ошибка!

<%= result %>


<% else set conn = server.createobject("ADODB.Connection") set conn=nothing mess = "Данные по новому участнику Интернет-проекта HD-программы" & vbCrLf & vbCrLf mess = mess & "Название снятого киноматериала: " & v1 & "," & vbCrLf mess = mess & "Режиссер: " & v2 & "," & vbCrLf mess = mess & "Сценарист: " & v3 & "," & vbCrLf mess = mess & "Продюсер: " & v4 & "," & vbCrLf mess = mess & "Студия-производитель: " & v5 & "," & vbCrLf mess = mess & "Правообладатель: " & v6 & "," & vbCrLf mess = mess & "Жанр: " & v7 & "," & vbCrLf mess = mess & "В ролях: " & v8 & "," & vbCrLf mess = mess & "Продолжительность (мин): " & v9 & "," & vbCrLf mess = mess & "Год выпуска: " & v10 & "," & vbCrLf mess = mess & "Звук: " & v11 & "," & vbCrLf mess = mess & "Какой камерой снят материал: " & v12 & "," & vbCrLf mess = mess & "Аннотация: " & v13 & "," & vbCrLf mess = mess & "Контактная информация: " & v14 & "," & vbCrLf mess = mess & "IT-отдел фирмы ЭРА" & vbCrLf if instr(1,request.servervariables("SERVER_NAME"),"hdunion.ru",1) > 0 then Set cdoConfig = CreateObject("CDO.Configuration") set mailer = Server.CreateObject("CDO.Message") with mailer .To = "info@hdunion.ru" .From = "info@era-tv.ru" .Subject = "ERA Web Server, Интернет-проект HDV-программы" .TextBody = mess ' with .BodyPart ' .ContentTransferEncoding = "8bit" ' .Charset = "koi8-r" 'end with .Send() end with end if ' mess = "Благодарим Вас за интерес к . "HD-программам"," & vbCrLf ' mess = mess & "Наш менеджер проекта "HD-программ" свяжется с Вами в самое ближайшее время." & vbCrLf ' if request.servervariables("SERVER_NAME") = "www.hdunion.ru" then ' set mailer = Server.CreateObject("CDO.Message") ' with mailer ' .To = email ' .From = "info@era-tv.ru" ' .Subject = "ERA Web Server, Интернет-проект "HD-программы"" ' .TextBody = mess ' with .BodyPart ' .ContentTransferEncoding = "8bit" ' .Charset = "koi8-r" ' end with ' .Send() ' end with ' end if %>
Благодарим Вас за интерес к "HD-программам". Наш менеджер проекта "HD-программ" свяжется с Вами в самое ближайшее время.

По всем вопросам обращайтесь по e-mail: info@hdunion.ru
<% end if %> <% end if %>

 
Все торговые марки являются собственностью соответстующих владельцев. Никакая часть электронных документов не может быть перегруппирована, продана, или скопирована без согласия Ассоциации HD Union.