Lo que yo haría es crear una tabla que contuviera del 1 al 31 como campos id, y el texto a ingresar, igual y hasta la imagen, suponiendo que ya tengo una conexi´n activa que se llama ObjConn:
impresiones
--------------------------------------------------
--------------------------------------------------
| dia_id | texto| magen |
1 |Hola Mundo|hola_mundo.jpg
Y así sucesivamente hasta el 31, después en puedes crearte una sub que consulte el id, dependiendo del día del servidor:
Sub ImprimeTextoImagen()
dia = day(date)
Set rsImprimeTextoImagen = Server.createObject("ADODB.Recordset")
strSQLImprimeTextoImagen = "SELECT texto, imagen FROM impresiones WHERE dia_id=" & dia
rsImprimeTextoImagen.Open strSQLImprimeTextoImagen, ObjConn, 3, 3
If not rsImprimeTextoImagen.EOF Then
Response.write(rsImprimeTextoImagen("texto") & "<img src=imagenes/" & rsImprimeTextoImagen("imagen") & ">")
End If
rsImprimeTextoImagen.Close
Set rsImprimeTextoImagen = Nothing
End Sub
Es solo una idea
Salu2,