게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

10개씩 뿌리는건데여 2페이지로 가면 2페이지것이 보여야 하는데 1페이지것이 보여여 어떻게 고쳐야 하나여? 때에따라서 PageSize 가 바뀔수도 있습니다.

전체게시물 과 현재페이지 숫자는 페이지 넘기면 정상으로 변하고 있습니다.

<%

Page = injec(Request("page"))
PageSize = 10

if page="" then
page=1
end If

with cmd
.ActiveConnection = db
.CommandText = "board_list"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@PageSize", adInteger, adParaminput, 10,PageSize)
.Parameters.Append .CreateParameter("@TotalRecordCnt", adInteger, adParamoutput, 10)
.Parameters.Append .CreateParameter("@TotalPage", adInteger, adParamoutput, 10)

.Execute ,, adExecuteNoRecords
TotalRecordCnt= .Parameters("@TotalRecordCnt").Value
TotalPage = .Parameters("@TotalPage").Value

End with
Set rs = cmd.Execute


If Not Rs.EOF Or Not Rs.BOF Then
Dim ArrList : ArrList = Rs.GetRows()
End If

%>

<table width="600">
<tr>
<td>전체게시물 <%=TotalRecordCnt%> 개     
현재페이지 : <%=page%> / <%=TotalPage%>
</td>
</tr>
</table>

</tr>
<%
Num = TotalRecordCnt - (page * pagesize) + pagesize

LoopCount = UBound(ArrList,2)

For i = 0 To pagesize-1 '아무래도 여기서 잘못된거같은데 이런저런 방법을
해봐도 안되네여 도와주세여 ㅜㅜ
name=ArrList(0,i)
email=ArrList(1,i)
content=ArrList(2,i)
%>
<tr>
<td><%=Num%></td>
<td><%=email%></td>
<td><%=content%></td>
</tr>
<%
Num = Num - 1

If num=0 Then
Exit For
End If

Next

Intstart=(int((Page-1)/10)*10)+1
IntEnd=IntStart+9
if int(IntEnd) >= int(TotalPage) then
IntEnd=TotalPage
end if

if IntStart > 10 then
response.write "<A href=list.asp?Page="& IntStart-1 & Url &">[Prev]</a>"
end if

For i=IntStart to IntEnd
if i=int(Page) then
response.write "<b> "&i&" </b>"
else
response.write "[<a href=list.asp?Page="& i & Url &">" & i & "</a>]"
end if
Next

if IntEnd < TotalPage then
response.write "<A href=list.asp?Page="& IntEnd+1 & Url &">[Next]</a>"
end if
%>