<%
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>