Hi guys!
I write to you because after the last windows update, my code doesn't work like it used to.
I use webbrowser control and I displayed images horizontal.
After windows update (iframe.dll changed?), now I see images vertical.
Code:
With CurrentDb.OpenRecordset(sQuery)
sBody = "<html><body>"
Do Until .EOF
sBody = sBody & "<div>"
sBody = sBody & "<span style='width:150px;vertical-align:top;margin:1px;'>"
sBody = sBody & "<TABLE border='1' width='300'>"
sBody = sBody & "<TR><TD ROWSPAN='2'><p style='background-color: #F8FAB3;font-family: courier;font-size:9pt;'><b>" & .Fields("Titolo") & "</b></TD></TR>"
sBody = sBody & "<TR><TD>" & "<a href='#" & .Fields("tbl") & "#" & .Fields("ID") & "' style='font-family: courier;font-size:10pt;'>" & .Fields("ID") & "</a></TD></TR>"
If .Fields("genere") & "" <> "" Then
sBody = sBody & "<TR><TD COLSPAN='2'>"
sBody = sBody & "<span style='font-family: courier;font-size:8pt;'>" & .Fields("genere") & "</TD></TR>"
Else
sBody = sBody & "<TR><TD COLSPAN='2'> </TD></TR>"
End If
sBody = sBody & "<TR><TD ROWSPAN='3'>" & "<img src ='" & .Fields("copertinaweb") & "' alt='" & .Fields("copertina") & "' height='250' width='170'>" & "</TD>"
sBody = sBody & "<TR><TD><p style='font-family: courier;font-size:9pt;'>" & .Fields("auth")
sBody = sBody & "<br>"
sBody = sBody & "<p style='font-family: courier;font-size:9pt;'>pag. " & .Fields("pagine") & "<br>"
sBody = sBody & "</TD>"
sBody = sBody & "</TABLE>"
sBody = sBody & "</div>"
sBody = sBody & "</span>"
.MoveNext
Loop
End With
What's wrong?
Thanks for help
Silvia