Replace risultato ricerca

[Gio&Ste]

C'è qualcosa che non sta andando in un Replace che faccio.
Mi stampa articolo di...
ma non leggo l'oggetto, cosa sto sbagliando?

<%
if Cerca = "" then
Response.write "Inserire un termine per effettuare una ricerca"
Response.end
end if

if Rs.EOF then
Response.write "Nessun risultato trovato!"
else
Do while NOT Rs.EOF
testo=Rs("Oggetto") 
testo = replace(Oggetto,Cerca,"" & Cerca & "",1,-1,vbTextCompare)   %>


<% Response.Write (testo) %> 
Articolo di <%=Rs("Tipo")%>, <abbr title="numero">n.</abbr> <%=RS("Numero")%> pubblicato il<%=Rs("data")%> </p>

<%
	Rs.MoveNext 
	Loop 
	End If
	
	Rs.Close
	Set Rs = Nothing
	Conn.Close
	Set Conn = Nothing
%>