<%
table=Request("table")
Set DbCon=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")
DbCon.Open ("dsn=ch71;uid=gajanet;pwd=0202;")
RS.Open("Select * from "&table&" Order By ref Desc, step"),Dbcon,1,1
if(rs.bof=true and rs.eof=true) then
r=1
else
RS.PageSize=10
page=Request("page")
if page<>"" then
cpage=page
if cpage<1 then
cpage=1
end if
else
cpage=1
end if
RS.AbsolutePage=cpage
end if
%>
(C)E-Bizpia Corporation
<% if table="gajaboard" then %>
<% elseif table="gajaboard2" then %>
<% elseif table="gajaevent" then %>
<% elseif table="gajacs" then %>
<% end if %>
<%
ss="select count(*) as tc from "&table
Set rr=dbcon.Execute(ss)
if rr("tc")=0 then
%>
자료가
없습니다. 글을 올려주세요!
<%else%>
번
호
글쓴이
날짜
조회수
Subject
<% if r=1 then %>
<% else %>
<%
RowCount=rs.PageSize
Do While Not RS.EOF and RowCount >0
%>
<%
subject=rs("subject")
subject=replace(subject," "," ")
if Len(subject)>25 then
subject=left(subject,25)&".."
end if
if rs("re_level") > 0 then
wid = 4 * rs("re_level")
%>
<% end if %>
"><%=subject%>
<%
RowCount = RowCount-1
RS.MoveNext
Loop
end if
%>
<% if cpage>1 then %>
<%else%>
<%end if%>
<%if RowCount=0 then%>
<%else%>
<%end if%>
<%=rs("numm")%>
<%else%>
<%=rs("numm")%>
<%end if%>
<% end if %>
