<%nav_bg=1%>
<%
if request("sortid")<>"" then
article_numa=conn.execute("select count(*) from query_info where qtype='aboutus' and sortid="&request("sortid")&" ")(0)
if article_numa=1 or article_numa=0 then
if request("sortid")<>"" then
sql="select top 1 * from query_info where qtype='aboutus' and sortid="&request("sortid")&" order by order_info asc,id asc"
else
sql="select top 1 * from query_info where qtype='aboutus' order by order_info asc,id asc"
end if
Rs.open sql,conn,1,1
if not(rs.eof) then
id=rs("id")
subject=rs("subject")
content=rs("content")
sortid=rs("sortid")
sortname=rs("sortname")
images=rs("images")
Field1=rs("Field1")
set rsn=server.CreateObject("Adodb.recordset")
sqln="select top 1 * from info_sort where qtype='aboutus' and id="&rs("sortid")&" order by orderno asc,id asc"
Rsn.open sqln,conn,1,1
if not(rsn.eof and rsn.bof) then
sort_images=rsn("images")
sort_content=rsn("content")
end if
rsn.close
else
response.Write(" ")
end if
rs.close
else
response.Redirect("aboutus_list.asp?sortid="&request("sortid")&"")
end if
else
if request("id")<>"" then
sql="select * from query_info where qtype='aboutus' and id="&request("id")&" order by order_info asc,id asc"
Rs.open sql,conn,1,1
if not(rs.eof) then
id=rs("id")
subject=rs("subject")
content=rs("content")
sortid=rs("sortid")
sortname=rs("sortname")
Field1=rs("Field1")
images=rs("images")
set rsn=server.CreateObject("Adodb.recordset")
sqln="select top 1 * from info_sort where qtype='aboutus' and id="&rs("sortid")&" order by orderno asc,id asc"
Rsn.open sqln,conn,1,1
if not(rsn.eof and rsn.bof) then
sort_images=rsn("images")
sort_content=rsn("content")
end if
rsn.close
else
response.Write(" ")
end if
rs.close
end if
end if
%>