<html>
<head>
<title>Mostrar Imagen</title>
<script language="VBScript">
Sub MostrarImagen()
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ruta\a\la\base\de\datos.mdb;"
cn.Open
Set rs = cn.Execute("SELECT imagen FROM tabla WHERE id = 1") 'Cambiar "tabla" y "id" por los nombres correctos
If Not rs.EOF Then
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 'adTypeBinary
stream.Open
stream.Write rs("imagen").Value
stream.SaveToFile "C:\ruta\a\la\imagen.jpg", 2 'adSaveCreateOverWrite
stream.Close
Set stream = Nothing
Set img = Document.getElementById("imagen")
img.src = "C:\ruta\a\la\imagen.jpg"
End If
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
</script>
</head>
<body>
<input type="button" value="Mostrar Imagen" onclick="MostrarImagen()">
<br><img id="imagen">
</body>
</html>