
<% function stringdelimter(s)
position=InStr(s,",")
sqlkeyword=""
if int(position)>0 then
	While (int(position)>0 and len(s)>1)
		str=Left(s,int(position-1))
		sqlkeyword=sqlkeyword  & "title like '%" & str & "%' OR " & "descr like '%" & str & "%' OR " 
		s=Right(s, int(len(s)-position))
		position=InStr(s,",")
    Wend 
end if
if s<>"" or s<>null then  
	sqlkeyword=sqlkeyword  & "title like '%" & s & "%' OR " & "descr like '%" & s & "%'"
end if 
stringdelimter=sqlkeyword
end function %>