¿Funcionará algo así..

?
Código HTML:
<%
var1=request.form("id") 'Asigna los datos que viene de la otra pagina
var2=split(var1,",") 'Elimina las comas que contengan esos valores y asigna los valores a "var1"
Set Base = Server.CreateObject("ADODB.Connection")
Base.Open = "mibasededatos.mdb"
for i=LBound(var2) to UBound(var2) 'Toma a "var2" como un arreglo y lo recorre de principio a fin
id=Trim(var2) 'Elimina, si hubiera espacios en blanco al inicio y final de cada elemento y los asigna a la variable "id"
sql="update anuncios SET fecha='"&date()&"', titulo='"&titulo&"',categoria='"&categoria&"', subcategoria='"&subcategoria&"', valida='"&valida&"' where id="&id&"" 'Y ahora si hace la consulta con cada uno de los "id" que se encuentren
Base.Execute SQL
next
base.close
set base=nothing
%>
Prueba y nos dices que paso...
Saludos...