Un millon de gracias a todos, ya le habia puesto el end if pero lo habia ubicado despues del next, y en realidad va antes del next, por si a alguien mas le sirve lo del link queda asi:
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>")
end if
next
Con el tema tipografia sigo luchando, es lo mas sencillo de todo y no lo logro
Muchas gracias!!!!!!
