<%@ 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 %> ���������� - �������. PDA ������. <% 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 ) %>