Hola Mithrandir:
Tal y como lo estás enfocando vas muy bien. Sólo te faltaría crear una colección (objeto dictionary) y llenarlo con los mensajes:
Código:
<%
[...]
'Haces todos tus cálculos y obtienes los datos (p.ej: en
'el recordset ``rs")
[...]
' Creas el dictionary
set mensajes = server.createObject("Scripting.Dictionary")
' Y lo llenas...
dim tipoMensaje, cuerpoMensaje
while not rs.eof
id= rs("id").value
mensaje = rs("mensaje").value
mensajes.add id, mensaje
rs.moveNext()
wend
[...]
' Haces el resto de operaciones y cálculos que tengas que hacer, cierras objetos y ya está
[...]
%>
Fíjate en que tendrás que usar nombres de campos que se adecúen a tu base de datos (me refiero a ``id" y a ``mensaje").
Y poco más... :)