|
|
|
<%
if request("news_id")<>"" then
set rs_cat = Server.CreateObject("ADODB.RECORDSET")
sql_cat = "SELECT * from news where news_id=" & request("news_id")
rs_cat.Open sql_cat , conn ,1,1
%>
|
<%=rs_cat("news_topic") %> [<%=rs_cat("news_date") %>]
|
|
|
|
<%=rs_cat("news_details") %>
|
|
|
| Back |
|
|
<%
rs_cat.close
set rs_cat=nothing
else
set rs_cat = Server.CreateObject("ADODB.RECORDSET")
sql_cat = "SELECT * from news where news_cat_id<>2 order by news_date desc"
rs_cat.Open sql_cat , conn ,1,1
rs_cat.pagesize=10
dim number_record,number_page,page_now,record_now
number_record=rs_cat.recordcount
number_page=rs_cat.pagecount
page_now=rs_cat.absolutepage
if request("page")<>"" then
rs_cat.absolutepage=CInt(request("page"))
else
page_now=1
end if
record_now=(page_now-1)*rs_cat.pagesize
j=1
if not rs_cat.eof then
while (not rs_cat.eof) and (j<=rs_cat.pagesize )
%>
 |
">
<% =rs_cat("news_topic_schi") %>
|
[<%=rs_cat("news_date") %>] |
|
|
<%
j=j+1
rs_cat.movenext
wend
end if
rs_cat.close
set rs_cat=nothing
%>
|
|
|
<% if request("page")>1 then
select case mytype
case 1
%>
&page=<%= request("page")-1 %>"> >Provious
<% case else %>
"> >Provious
<%
end select
end if
%>
[
<%
for j=1 to number_page
response.write "" & j & "" & " | "
next
%>]
<% if ((request("page")="") or (CInt(request("page"))1) then
select case mytype
case 1
response.write ""
case else
response.write ""
end select
%>
>Next
<% end if %>
|
<% end if %>
|
|
|
|
|
