<%
kod=request("kod")
page="news"
tema=request("tema")
set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = 0
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\1gb.ru\hosted\ufatop-ru_e6e51610\data\data.mdb;"
%>
<%
if kod>0 then
Set RSnews2 = Conn.Execute("SELECT * FROM news where id=" & kod)
if not rsnews2.eof then rsnews2.movefirst
reads=rsnews2.fields("reads")
if isnull(reads) then reads=0
reads=reads+1
response.write("" & rsnews2.fields("title") & "")
response.write("" & rsnews2.fields("title") & "
")
response.write("" & rsnews2.fields("data") & "")
response.write("" & rsnews2.fields("body") & "
")
response.write("
Все новости")
response.write("Обсуждение статьи
")
if rsnews2.fields("forum")>0 then
TypeOfPost="Reply"
threadID=rsnews2.fields("forum")
set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Mode = 0
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\1gb.ru\hosted\ufatop-ru_e6e51610\forum\data\messages.mdb"
MySql="SELECT * FROM messages Where Messages.threadID=" & rsnews2.fields("forum") & " ORDER BY messages.Posted desc;"
set rscomm=Conn2.Execute (MySql)
if not rscomm.eof then rscomm.movefirst
do while not rscomm.eof
response.write("| ")
if (RScomm("Email")="Not disclosed" or RScomm("Email")="") then response.write RScomm("Poster") else response.write "" & RScomm("Poster") & ""
response.write (" - " & rscomm("Posted") & " |
| " & rscomm.fields("message") & " |
| |
")
rscomm.movenext
loop
else
TypeOfPost="New"
newstitle=left(rsnews2.fields("title"),50)
end if
%>
<%
Session("CurrentPage")="http://ufatop.ru/news.asp?kod=" & kod
Conn.Execute("update news set reads=" & reads & " where id=" & kod)
Set RSnews2 = Conn.Execute("SELECT top 10 * FROM news where kod>0 order by reiting desc")
if not rsnews2.eof then rsnews2.movefirst
response.write("Самые читаемые
")
do while not rsnews2.eof
response.write("" & "" & "" & rsnews2.fields("title") & " " & rsnews2.fields("data") & "
")
rsnews2.movenext
loop
elseif tema<>"" then
Set RSnews2 = Conn.Execute("SELECT top 100 * FROM news where kod>0 and idPage='" & tema &"' order by data desc")
if not rsnews2.eof then rsnews2.movefirst
response.write("Новости на Уфа Топ - " & rsnews2.fields("tema") & "Новости на Уфа Топ - " & rsnews2.fields("tema") & "
")
do while not rsnews2.eof
response.write("" & rsnews2.fields("title") & " " & rsnews2.fields("data") & "
")
rsnews2.movenext
loop
response.write ("Все новости >>
")
else
Set RSnews2 = Conn.Execute("SELECT top 100 * FROM news where kod>0 order by data desc")
if not rsnews2.eof then rsnews2.movefirst
response.write("Новости на Уфа Топ" & "Все новости на Уфа Топ
")
do while not rsnews2.eof
response.write("" & rsnews2.fields("title") & " " & rsnews2.fields("data") & "
")
rsnews2.movenext
loop
end if
%>