<%
Function CheckThis(sThisValue, sCheckedValue)
	If sThisValue = sCheckedValue Then
		CheckThis = " checked"
	End If
End Function

Function CheckIf(bCond)
	CheckIf = IIf(bCond, " checked", "")
End Function

Function SelectThis(sThisValue, sCheckedValue)
	If sThisValue = sCheckedValue Then
		SelectThis = " selected"
	End If
End Function

Function IIf(cond, valTrue, valFalse)
	If cond Then IIf = valTrue Else IIf = valFalse
End Function

Function TextAreaValue(sCheckAgainst, sValue)
	TextAreaValue = IIf(sValue=sCheckAgainst, "", sValue)
End Function
%>