Pues yo lo haría así:
sSQL = "SELECT * FROM Mensajes Where idTema Like '" & Request.Querystring("idTema") & "'"
Set oRS = oConn.Execute(sSQL)
Dim icono()
Dim i
i = 0
Do While NOT oRS.EOF
icono(i) = oRS("icono").Value
i = i + 1
oRS.Movenext
Loop
y como te mencione anteriormente si te sigue mandando error quita las dos líneas de Dim
Saludos
Response.Write (icono(i))
<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>