<%dim YH(100,100)
dim i,j
response.write "<Table>"
YH(0,0)=1
response.write "<tr><td align=Center>1</td></tr>"
for i=1 to ubound(YH)
response.write "<Tr><Td align='center'>"
YH(i,0)=YH(i-1,0)
response.write YH(i,0) & " "
for j=1 to i
YH(i,j)=YH(i-1,j-1)+YH(i-1,j)
response.write YH(i,j) & " "
next
response.write "</Td></Tr>"
next