"
Response.write "| "
for j=1 to NumOfPages
if j=1 then
Response.Write "Première Page"
end if
Next
Response.write " | "
Response.write ""
Dim n
for n=1 to NumOfPages
if n=ShowPage then
if not ShowPage=1 then
Response.Write " <<< "
ELse
Response.Write " << "
End if
end if
Next
Dim k
for k=1 to NumOfPages
if k=ShowPage then
Response.Write "" & k & " "
else
Response.Write "" & k & " "
end if
Next
Dim m
for m=1 to NumOfPages
if m=ShowPage then
if not ShowPage=NumOfPages then
Response.Write " >>> "
ELse
Response.Write " >> "
End if
end if
Next
Response.write " | "
Response.write ""
Dim l
for l=1 to NumOfPages
if l=NumOfPages then
Response.Write "Dernière Page"
end if
Next
Response.write " | "
Response.write "