Hi, can someone see whats wrong with this code. I'm trying to output this bit of html to a new window from a button in the notes client. Its not doing anything at all!!!
Thanks
Jane
Sub Click(Source As Button)
Dim htmltext As String
htmltext = "<html>"
htmltext = htmltext + "<head>"
htmltext = htmltext + "</head>"
htmltext = htmltext +"<body>"
htmltext = htmltext + "<table>"
htmltext = htmltext + "<tr>"
htmltext = htmltext + "<td>"
htmltext = htmltext +"hi"
htmltext = htmltext + "</td>"
htmltext = htmltext + "</tr>"
htmltext = htmltext + "</table>"
htmltext = htmltext + "</body>"
htmltext = htmltext + "</html>"
' Print "Content-type:text/html"
Print |<script type="text/javascript">|
Print |myWindow=window.open('','','width=200,height=100')|
Print |myWindow.document.write(htmltext)|
Print |myWindow.focus()|
Print |</script>|
End Sub
Return to top
Trying to output html to new window... (Jane S Nugent 7.Aug.12)
. . 
Print this page
