<%@ LANGUAGE="VBSCRIPT" %> <% Response.CharSet ="WINDOWS-1251" Response.AddHeader "Expires", Now() Response.AddHeader "Last-Modified", Now & " GMT" Response.AddHeader "Cache-Control", "no-cache, must-revalidate" Response.AddHeader "Cache-Control", "post-check=0,pre-check=0" Response.AddHeader "Cache-Control", "max-age=0" Response.AddHeader "Pragma", "no-cache"%> <%set conn = Server.CreateObject("ADODB.Connection") conn.Open "dsn=rtifor" set conn2 = Server.CreateObject("ADODB.Connection") conn2.Open "dsn=allnews" d1=date() sql="select clickall from counters where page='1st.asp'" set rs=conn.Execute (sql) 'Response.Write d1 &","& date2table(d1) if rs.eof then a=1 sql="insert into counters(clickall,dattu,datt,timm,page) values("& a &",#"&date2table(d1) &"#,#"&date2table(d1) &"#,#" &Time()&"#,'1st.asp')" 'Response.Write sql conn.Execute (sql) else a=rs(0)+1 sql="update counters set clickall=" & a & ",datt=#" &date2table(d1)&"#,timm=#"& time() &"# where page='1st.asp'" conn.Execute (sql) end if '================================= 'sql="select count(codex) from exhibs where toshow= true" '20-11-01 ''Response.Write sql 'set rs =conn.Execute (sql) 'numrecords = rs(0) ' 8000' '============================= 'Response.Write "a" if request("ok")="ok" then 'Response.Write "a!" mail=left(trim(request("sscrb")),50) mail=replace(mail,"'","''") 'Response.Write d1 if not trim(mail)="" and not trim(mail)="Ваш@адрес.ru" then 'Response.Write mail sql="select ccc,mn,email from subscr where email='" & mail &"'" ' Response.Write "a0 "& sql&"
" set rsn=conn2.Execute (sql) if rsn.eof then sql="insert into subscr (email,mn,np,datsc) values('"& mail&"',1,4,#" & date2table(d1) & "#)" ' Response.Write "a1 "&sql&"
" conn2.Execute (sql) 'sql="select top 1 ccc from subscr order by ccc desc" sql="select max(ccc) from subscr " 'установить номер новой записи в subscr set codmail=conn2.Execute (sql) 'Response.Write codmail(0) sql="insert into subsp (codmail,mn,nproj,ds,comment) values(" & codmail(0) &",1,4,#" &year(d1)&"-"&month(d1)&"-"& day(d1) & "#,'первичная подписка')" 'Response.Write "a2 "&sql&"
" conn2.Execute (sql) mess="Вы успешно подписались" sql="select * from rassylka where mn=1 and nproj=4 and sflag=2" '??? или указать номер формы? set rsn2=conn2.Execute (sql) too=mail ccc="vmost@rsoft.ru" from="news@vmost.rsoft.ru" from="<"&from&">"&"Выставочный МОСТ" if not rsn2.eof then subj=rsn2(8) str=rsn2("body") str=str&vbcrlf&vbcrlf&rsn2("podp")&vbcrlf&vbcrlf& rsn2("copyr") str=str&vbcrlf&vbcrlf&rsn2("bottom") str=replace(str,"youremail",codmail(0)) 'Response.Write str else subj="подписка на новости" str="Вы успешно подписались"&vbcrlf&vbcrlf&"Проект Выставочный МОСТ" end if set ml=server.CreateObject("cdonts.newmail") Referer=Request.ServerVariables("HTTP_REFERER").Item ml.Value("X-UserIP") =Request.ServerVariables("REMOTE_HOST").Item ml.To =too ml.Subject =Subj ml.from=from ml.cc="vmost@rsoft.ru" ml.Body =str ml.Send ' Response.Write "insert" '================================================ else ' если запись в базе уже есть 'Response.Write "rsn0 "&rsn(0)&"
" if rsn(1)=1 or rsn(1)=0 then if rsn(1)=0 then sql="update subscr set mn=1 where ccc=" & rsn(0) 'если в subscr mn=0, то mn=1 conn2.Execute (sql) end if codmail=rsn(0) ' - номер мыла sql="select cntr,mn,nproj from subsp where codmail=" & rsn(0) & " and nproj=4" 'Response.Write "b0 "&sql&"
" set rsn2=conn2.Execute (sql) 'Response.Write rsn2(1)&rsn2(0)&rsn2(2) if not rsn2.eof then ' запись в subsp уже есть ' Response.Write rsn2(1) if rsn2(1)=0 then sql="update subsp set mn=1, ds=#" &year(d1)&"-"&month(d1)&"-" &day(d1)& "# where cntr=" & rsn2(0) ' Response.Write rsn2(0)&sql conn2.Execute (sql) mess="Вы успешно возобновили подписку" else mess="Вы уже подписаны" end if elseif rsn2.eof then ' нет записи именно для ВМоста sql="insert into subsp (codmail,mn,nproj,ds,comment) values(" & codmail &",1,4,#" & year(d1)&"-"&month(d1)&"-" &day(d1) &"#,'посетитель подписался на ВМОСТ')" ' Response.Write "a2 "&sql&"
" conn2.Execute (sql) mess="Вы успешно подписались" end if 'письмо too=mail ccc="vmost@rsoft.ru" from="vmost@rsoft.ru" from="<"&from&">"&"Выставочный МОСТ" if not mess="Вы уже подписаны" then sql="select * from rassylka where mn=1 and nproj=4 and sflag=2" '??? или указать номер формы? set rsn2=conn2.Execute (sql) if not rsn2.eof then subj=rsn2(8) str=rsn2("body") str=str&vbcrlf&vbcrlf&rsn2("podp")&vbcrlf&vbcrlf& rsn2("copyr") str=str&vbcrlf&vbcrlf&rsn2("bottom") str=replace(str,"youremail",codmail) ' Response.Write str else subj="подписка на новости Выставочного МОСТа" str="Добрый день! "&vbcrlf &"Вы успешно подписались"&vbcrlf&vbcrlf&"Проект Выставочный МОСТ" end if else subj="подписка на новости Выставочного МОСТа" str="Добрый день! "&vbcrlf &"Вы уже подписаны на новости Выставочного МОСТа"&vbcrlf&vbcrlf&"Проект Выставочный МОСТ" end if ' Response.Write str set ml=server.CreateObject("cdonts.newmail") ml.Value("X-UserIP") =Request.ServerVariables("REMOTE_HOST").Item ml.To =too ml.from=from ml.Subject =Subj ml.Body =str ml.Send elseif rsn(1)=2 then mess="Адрес недействителен. Вы не подписаны." elseif rsn(1)=3 then mess="Адрес в черном списке. Вы не подписаны." end if ' rsn(1) end if 'if not rsn.eof rsn.close rsn2.close end if 'if not mail="" end if 'if ok %> <%page="vyst"%>

О проекте  Партнеры  Статьи  Инвестиции  Организаторам        Имя:  Пароль:

Ближайшие выставки   начинка

Ближайшие семинары  Выбор темы,города,фирмы <%m=month(d1) y=year(d1) if m=12 then m=1 y=y+1 else m=m+1 end if%>  Организаторы семинаров  Скидки на участие!   Все семинары <%=year(d1)%>   Регистрация организаторов семинаров Найти:

Новости выставок <%d2=date()-7 d2=year(d2)&"-"&month(d2)&"-"&day(d2) d3=date()+1 d3=year(d3)&"-"&month(d3)&"-"&day(d3) sql="select top 12 cntr,num,numf,datan, timen, zag,mn from news where (mn=1 or (mn=2 and datan>#" & d2 & "#)) and (nproj=4 and datan<#" & d3 & "#) order by mn desc, datan desc, timen desc, cntr desc" '` (mn=1 or mn=2 ) and nproj=4 'Sql="select * from exhnews where numnew>((select max(numnew) from exhnews)-6)" 'Response.Write sql set rs=conn2.Execute (sql) if not rs.eof then lpRoot = rs.GetRows() ilast = ubound(lproot,2) %> <% for i=0 to ilast%> <%if lproot(6,i)=1 then%><%=lproot(3,i)&" "&left(lproot(4,i),5)%> <%else%><%="Внимание!"%><%end if%>