<%
address = request.querystring("address")
if instr(address,"@") > 0 and instr(address,".") > 0 then
companyname = request.querystring("companyname")
city = request.querystring("city")
phonenumber = request.querystring("phonenumber")
ContactFio = request.querystring("ContactFio")
'set conn = server.createobject("adodb.connection")
' conn.open Session("ConnectionString")
' set rs_visitor = conn.execute("select top 1 * from visitors where EmailAddress = '" & address & "' order by ID desc")
' if not rs_visitor.EOF then
' companyname = rs_visitor("companyname")
' city = rs_visitor("city")
' phonenumber = rs_visitor("phonenumber")
' ContactFio = rs_visitor("ContactFio")
' end if
' conn.close
' set conn = nothing
if request.servervariables("SERVER_NAME") = "www.quali-tv.ru" then
set mailer = Server.CreateObject("CDO.Message")
with mailer
.To = "hdtv@era-tv.com"
.From = address
.Subject = "Quali-TV regional partner feedback"
.TextBody = "Компания: " & companyname & vbCrLf & _
"Город: " & city & vbCrLf & _
"телефон: " & phonenumber & vbCrLf & _
"контактное лицо: " & ContactFio & vbCrLf
with .BodyPart
.ContentTransferEncoding = "8bit"
.Charset = "koi8-r"
end with
.Send()
end with
set mailer = nothing
end if
end if
Function DDig(nom)
if len(nom)=1 then
DDig="0" & nom
else
DDig=nom
end if
end function
mtData=dateAdd("d",-1,Now())
mTime = FormatDateTime(mtData, vbLongTime)
tg=InStr(mTime,"M")
if (tg > 0) then
mTime = Mid(mTime,1,tg-3)
end if
mtwD=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
mtmD=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sept","Oct","Nov","Dec")
mtDay=mtwD(WeekDay(mtData,1)-1)
mtMonth=mtmD(DatePart("m",mtData)-1)
mtdExp=mtDay & ", " & DDig(DatePart("d",mtData)) & " " & mtMonth & " " & DDig(DatePart("yyyy",mtData)) & " " & mTime & " GMT"
Response.AddHeader "Last-Modified", mtdExp
Response.AddHeader "Content-Type", "text/html; charset=windows-1251"
%>
Quali-TV - HDTV для Европы. Российский дистрибьютор - компания ЭРА.
Благодарим Вас за интерес к HD-ресиверам компании Quali-TV
<% if address <> "" then %>
Наш менеджер свяжется с Вами в течение одного рабочего дня и проинформирует Вас об условиях партнерства по продукции Quali-TV.
По всем вопросам пишите по адресу hdtv@era-tv.com
<% Else %>
Заполните пожалуйста следующую форму, чтобы мы могли связаться с Вами и выслать Вам условия партнерства по продукции Quali-TV.
HDTV
Smartcard activation
