<%
'Set objTools = Server.CreateObject("MSWC.Tools")
'intMin = 1
'intMax = 10
'intRandom = (Abs(objTools.Random) Mod (intMax - intMin + 1)) + intMin
'If intRandom mod 2 = 0 Then
%>
<% 'Else %>
<% 'End If %>
