חלוקה לעמודים – שדרוג הקוד

תשובה
תחליף את הקוד הרלוונטי שלך לקוד הבא:

<%
If Cint(CurrentPage) < Cint(NumOfPages) Then 'בדיקה אם יש צורך בקישור לדף הבא
    Pages = Pages & " <A Href=?ob="&OB&"&page=" & CurrentPage + 1 & " class='link_bold'><<</A> "
End if

For i = CurrentPage-5 to CurrentPage-1 ' קישורים לעמודים קודמים
    If i>0 And i <> Cint(CurrentPage) Then
        Pages = Pages &  " [<A Href=?ob="&OB&"&page=" & i & " class='link_bold'>" & i & "</A>] "
    End If
Next

Pages = Pages &  " [" & CurrentPage & "] "

For i = CurrentPage+1 to CurrentPage+5 ' קישורים לעמודים הבאים
    If i<=NumOfPages Then
        Pages = Pages &  " [<A Href=?ob="&OB&"&page=" & i & " class='link_bold'>" & i & "</A>] "
    End If
Next

If CurrentPage > 1 Then 'בדיקה אם יש צורך בקישור לדף הקודם
    Pages = Pages & " <A Href=?ob="&OB&"&page=" & CurrentPage – 1 & " class='link_bold'>>></A> "
End If

selectPages = ""
For i=1 To NumOfPages
    If CInt(CurrentPage)=CInt(i) Then selected = " selected=""selected""" Else selected=Empty
    selectPages = selectPages & "<option value="""&i&""""&selected&">"&i&"</option>"
Next

%>
<%= Pages %><br>
<select name="selectPages" id="selectPages" OnChange="location.href='?ob=<%=OB%>&page='+this.value;"><%=selectPages%></select>

זה אמור לפתור את כל בקשותיך.
אם אתה זקוק לעזרה או הסבר לגבי השינויים בקוד – אתה מוזמן לשאול  

בכיף
חג שמח ובהצלחה!