IsOdd Function:

The IsOdd function returns True if a number is odd or False if it is even.

Syntax:
boolean = IsOdd(numberinput)
Example Usage: 
<%
dim i
for i = 1 to 900
	response.write IsOdd(i) & "<BR>"
next
%>
ASP Source Code: 
<%
Private Function IsOdd(byVal lngInput)
	lngInput = CLng( lngInput )
	if lngInput = 0 then IsOdd = Null : Exit Function
	Select Case CLng( Trim( Right(lngInput, 1) ) )
		Case 1, 3, 5, 7, 9
			IsOdd = True
		Case 2, 4, 6, 8, 0
			IsOdd = False
		Case Else
			IsOdd = Null
	End Select
End Function
%>