codice:
'Determine if there are multiple pages and if so, display page numbers.
Dim iMargin
iMargin = 1
If intTotPages > 1 Then 
  Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Verdana,Arial' size='1'>Page: " 
  If (intPage - iMargin)>1 Then
    Response.Write "&lt;&lt; "
  End If
  For x = intPage - iMargin to intPage + iMargin
    If x>0 and x<=intTotPages Then
      If x = intPage Then 
        Response.Write "</font><font face='Arial' size='2'>" & x & "</font><font face='Arial' size='1'> " 
      Else 
        Response.Write "" & x & " " 
      End If
    End If 
  Next 
  If (intPage + iMargin)<intTotPages Then
    Response.Write "&gt;&gt; "
  End If
  Response.Write "</font></td>" 
  Response.Write "</tr><tr><td> </td></tr><tr>" 
End If
Per i colori devi cambiare gli attributi di stile HTML.