Che ne dici di:

<%

function RemoveTitleTags(txt)
dim tmptxt
tmptxt = txt

if IsNull(tmptxt) then
exit function
end if

dim i, pos1, pos2
do
pos1 = Instr(tmptxt, "<title>")
if pos1=0 then
exit do
else
pos2 = Instr(pos1+7, tmptxt, "</title>")
if pos2=0 then
exit do
else
tmptxt = Mid(tmptxt, pos1+7, pos2-7-pos1)
end if
end if
loop
RemoveTitleTags = tmptxt
end function

prova = "<title>Titolotto</title>"
prova_senza_title_tag = RemoveTitleTags(prova)
%>