Entonces lo del Font colocalo de forma global
Response.Write "<font face='verdana'>"
...
'Aqui todo tu codigo
...
Response.Write "</font>"
En cuanto a lo del link
for J=0 to UBound(vector,1)
If Instr(vector(J,I),"@") Then
Response.Write("<TD><a href='mailto:" & vector(J,I) & "'>"&vector(J,I) &"</a></TD>")
Else
Response.Write("<TD>" & vector(J,I) &"</td>")
next
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>