<%
Function Quote(sData)
	Quote = "'" + Replace(sData, "'", "''") + "'"
End Function
Function SQLCriteria(sFieldName, sValue, bUseQuotes, sOperator)
	If Len(sValue) > 0 Then
		If bUseQuotes Then
			SQLCriteria = sFieldName & sOperator & Quote(sValue)
		Else
			SQLCriteria = sFieldName & sOperator & sValue
		End If
	Else
		SQLCriteria = sFieldName & " IS NULL"
	End If
End Function
%>