<% Dim r, g, b for r = 0 to 15 for g = 0 to 15 b = (r * g) mod 16 response.Write "" & vbCRLF next next %>