<% Function   Max(Price)
Dim   n,   m
If   UBound(Price)   >   0   Then
m   =   Price(0)
For   n   =   1   To   UBound(Price)
If   Price(n)   >   m   Then   m   =   Price(n)
Next
Max   =   m
Else
Max   =   Null
End   If
End   Function

Function   Min(Price)
Dim   n,   m
If   UBound(Price)   >   0   Then
m   =   Price(0)
For   n   =   1   To   UBound(Price)
If   Price(n)   <   m   Then   m   =   Price(n)
Next
Min   =   m
Else
Min   =   Null
End   If
End   Function
Dim   ary
ary   =   Array(12,13,41,61,8,38,90)
Response.Write   Max(ary)
Response.Write   " <BR><BR> "
Response.Write   Min(ary) %>