<%@ Language=VBScript %> <% Response.Clear Response.Buffer = TRUE Response.Expires = 0 dim uid_submitted %> <% dim conn, rs, DateNow, strDateNow OpenConnection conn, dsn_webdb,login_webdb, passw_webdb OpenConnection conn_banners, dsn_banners, login_webdb, passw_webdb If WebSite = 2 Then bgColor = "#CCCCCC" Else bgColor = "#FFFFFF" End If %> <% If WebSite = 2 Then %>

<% End If %> <% News_ID = GetInt(Request("id"), Empty) Docs_ID = GetInt(Request("id"), Empty) If Len(News_ID) > 0 AND IsNumeric(News_ID) Then News_ID = Int(News_ID) Else News_ID = Empty End If If Len(Docs_ID) > 0 AND IsNumeric(Docs_ID) Then Docs_ID = Int(Docs_ID) Else Docs_ID = Empty End If %> на главную <%'' REKLAMA ShowPDABannerOnTheNextPage conn_banners, 197 If IsEmpty(News_ID) Then %>  ЛЕНТА НОВОСТЕЙ   <% Set rs = conn.Execute("PDA_NewsAndOnline_list 30") Do While NOT rs.EOF strDateTime = rs("date_start") strTitle = rs("title") strLink = "news.html?id=" & rs("id") bHotNews = rs("hot_news") If bHotNews Then HotTagLeft = "" HotTagRight = "" Else HotTagLeft = "" HotTagRight = "" End If %> <%= getSDateTimeToday(strDateTime) %> - <%=HotTagLeft%><%=strTitle%><%=HotTagRight%> <% rs.MoveNext Loop Set rs = Nothing %> <% Else Set rs = conn.Execute("news_get " & News_ID) If NOT rs.EOF Then strTitle = rs("title") strLead = rs("vvodka") strText = rs("news") strImage = rs("img_small") If Len(strImage) > 4 Then strImage = "http://www.kommersant.ru/images/" & strImage Else strImage = Empty End If End If If FALSE Then %>  НОВОСТИ <%= (rs("date_start")) %>   <%If NOT IsEmpty(strImage) Then%> <%End If%> <%=strTitle%> <%=strLead%> <%=strText%> ... вся лента новостей <% End If '' Set rs = conn.Execute("PDA_News_list @row=1, @id=" & Docs_ID) '' If Not rs.EOF Then '' strDateTime = rs("date_start") '' Else strDateTime = Now() '' End If %>  НОВОСТИ <%= Replace(getSDateTimeToday(strDateTime), " ", " ") %>   ... вся лента новостей <% Set rs = Nothing End If %> <% If WebSite = 2 Then %>

<% End If %> <% Call CloseConnection( conn ) Call CloseConnection( conn_banners ) %>