Code:
<%
Function WriteText(ByVal Cells)
    Dim i
    If IsArray(Cells) Then
        For i = LBound(Cells) To UBound(Cells)
            Response.Write "<TR><TD>" & Cells(i) & "</TD></TR>"
        Next
    End If
End Function
%>
<TABLE border="1">
<%= WriteText(Array(6,1,2,"Schmoo", "Self",4,5,6)) %>
</TABLE>