<%
' Function Ordinal(num)
' Dim ord(4)
'
' ord(1) = " st"
' ord(2) = " nd"
' ord(3) = " rd"
' ord(4) = " th"
' num = num Mod 100
' If num >= 11 And num <= 13 Then
' Ordinal = ord(4)
' Else
' num = num Mod 10
' Select Case num
' Case 1
' Ordinal = ord(1)
' Case 2
' Ordinal = ord(2)
' Case 3
' Ordinal = ord(3)
' Case Else
' Ordinal = ord(4)
' End Select
' End If
' End Function
%>
