<%
page=request("page")
rang=cint(request("rang"))
if page="" then
page=session("page")
rang=cint(session("rang"))
end if
if page="" then
page="top"
rang=5
end if
set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = 1
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\1gb.ru\hosted\ufatop-ru_e6e51610\data\data.mdb;"
Set RSpage = Conn.Execute("SELECT * FROM pages where idPage='" & page & "'")
%>
<%
rspage.movefirst
response.write("" & rspage.fields("title") & "")
response.write("")
response.write("")
h1=rspage.fields("h1")
%>
<%
%>
<%
response.write("" & rspage.fields("addTop"))
'Формирование ссылок
if page="top" or page="sites" then
'Топ-10
response.write("
")
'end if
rs.movenext
i=i+1
loop
response.write("
")
Set RS = Conn.Execute("SELECT * FROM sites inner join pages on (sites.idPage=Pages.idPage) where Sites.Rang>="& Rang & " order by pages.Rang asc, sites.Rang desc, reiting desc")
if not rs.eof then rs.movefirst
str=""
do while not rs.eof
if isnull(rs.fields("name")) then
str=""
elseif rs.fields("name")<>str then
str=rs.fields("name")
response.write("
" & str & "
")
end if
'if rs.fields("tip")=1 then
' response.write("" & rs.fields("nazvan") & " ")
'else
response.write("" & rs.fields("nazvan") & " ")
'end if
if page="top" then response.write(rs.fields("opisan") & "
")
rs.movenext
loop
else
Set RS = Conn.Execute("SELECT * FROM sites left join gruppa2 on (sites.Gruppa2=Gruppa2.idGruppa) where sites.idPage='" & page & "' and Rang>="& Rang & " order by Gruppa2 asc, Rang desc, reiting desc")
if not rs.eof then rs.movefirst
str=""
do while not rs.eof
if isnull(rs.fields("NameGruppa")) then
str=""
elseif rs.fields("NameGruppa")<>str then
str=rs.fields("NameGruppa")
response.write("