Como no nos cuentas bien todo el problema, pues solo te podria recomendar un ciclo.
Código:
<%
Dim contador
Dim i
contador = 10
for i = 1 to contador
Response.Write("<a href=pagina.asp?pad="&i&">" & i & "</a>")
if i < contador then
Response.Write(" |")
end if
next
%>
Saludos