Prova così:
codice:
<%
result = mid(Recordset1.Fields.Item("titolo").Value, 1, instr(1, Recordset1.Fields.Item("titolo").Value, " ") + 1)

response.write(result)
%>