יש לי שאלה

הינה הקוד
הינה הקוד הבאתי אותו על דיסקת מהמחשב שלי.
אזז  ישתנו כל מיני סימנים..

<%
Dim currPage,i,pCount, numRecs
currPage = 1
numRecs = 9
if Not request("currPage") = "" then
currPage= request("currPage")
end if
rs.Open "SELECT * FROM fullgame",conn,3,1
rs.PageSize = numRecs
rs.CacheSize = numRecs
if Not rs.EOF Then
pCount=rs.pageCount
rs.AbsolutePage=CurrPage
End If
Do While Not rs.EOF AND i < rs.pagesize
i=i+1
rs.MoveNext
Loop
rs.Close

for i = 1 to pCount
if Cint(i) = Cint(currPage) then
Response.Write " <b>"& i &"</b> "
Else
Response.Write " <a href=""thePage.asp?currPage="&i&""">"& i &"</a> "
End If
Next
%>

זה הקוד..
מה הבעיה בו?
לא שיניתי את currPage ביגלל שככה היה כתוב שזה צריך להיות..
מה הבעיה??

לא בנתי ממש מה כתבת אבל לא משנה
אני כותב 1 על 1 מה שכתוב כי מאיפה לי לדעת מה משנים?
אני רק משנה מה שאני צריך למשל כמו כל כמה משחקים זה ישתנה..
מה אני עוד צריך לשנות שם<?
ומה הבעיה בורה שכתבתי באתחלה? אצלי שורה 76 בדף.

הינה שורה 76 מודגשת
שורה 76 מודגשת:

<%
Dim currPage,i,pCount, numRecs
currPage = 1
numRecs = 9
if Not request("currPage") = "" then
currPage= request("currPage")
end if
rs.Open "SELECT * FROM fullgame",conn,3,1
rs.PageSize = numRecs
rs.CacheSize = numRecs
if Not rs.EOF Then
pCount=rs.pageCount
rs.AbsolutePage=CurrPage
End If
Do While Not rs.EOF AND i < rs.pagesize
i=i+1
rs.MoveNext
Loop
rs.Close

for i = 1 to pCount
if Cint(i) = Cint(currPage) then
Response.Write " <b>"& i &"</b> "
Else
Response.Write " <a href=""thePage.asp?currPage="&i&""">"& i &"</a> "
End If
Next
%>

[
מה לא צריך להיות?