<%if Request.QueryString("id") <> "" then
Response.Write(imprimirTerminos(""))
end if
%>
<%
if Request.Form("term") <> "" then
term = Request.Form("term")
term = replace(term, "á", "á")
term = replace(term, "é", "é")
term = replace(term, "í", "í")
term = replace(term, "ó", "ó")
term = replace(term, "ú", "ú")
term = replace(term, "Á", "Á")
term = replace(term, "É", "É")
term = replace(term, "Í", "Í")
term = replace(term, "Ó", "Ó")
term = replace(term, "Ú", "Ú")
%>
<%
Response.Write(imprimirTerminos(term))%>
<%end if
%>