creo que este codigo puede funcionarte perfectamente pero con unas cuantas variantes, por ejemplo....
no requiere realizar un trim dentro del FOR...
Cita: <%
var2=split(request.form("id"),",")
Set Base = Server.CreateObject("ADODB.Connection")
Base.Open = "mibasededatos.mdb"
for i=0 to UBound(var2)
sql="update anuncios SET "&_
"fecha='"&date()&"', "&_
"titulo='"&titulo&"', "&_
"categoria='"&categoria&"', "&_
"subcategoria='"&subcategoria&"',"&_
"valida='"&valida&"' "&_
"where id="&var2(i)
Base.Execute SQL
next
base.close
set base=nothing
%>