%@ 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
%>
<%
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
%>