IF this_str <> "" THEN
	Response.ContentType="text/x-vcard"
	'Response.CharacterEncoding("UTF-8")
	Response.charset = "UTF-8"
	Response.Write this_str
END IF


nameConn_CACHE.Close
SET nameConn_CACHE = nothing
%>