%@ Language=VBScript %>
<% response.buffer=true %>
<% Response.Expires=0 %>
<%
Select Case Request.QueryString ("page")
Case ""
Session("CurrentPage") = 1
Case "next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "prev"
Session("CurrentPage") = Session("CurrentPage") - 1
Case "current"
Session("CurrentPage") = Session("CurrentPage")
Case Else
Session("CurrentPage") = Request.QueryString ("page")
End Select
Select Case Request.QueryString ("ten")
Case ""
Session("StartPage") = 1
Case "next"
Session("StartPage") = Session("StartPage") + 10
Case "prev"
Session("StartPage") = Session("StartPage") - 10
Case "current"
Session("StartPage") = Session("StartPage")
End Select
' if request("page")="" then
' page=1
' else
' page=request("page")
' end if
%>
<%
SQL = "SELECT * FROM RBoard ORDER BY ref desc, re_step asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = 10
rs.Open SQL,db,1
%>
:::::::::::: SEOUL SEMICONDUCTOR :::::::::::::