Thanks. I figured out something a little bit simpler -- I use the innerHTML
property of the div tag.
<html>
<head>
<title>Test_A1</title>
<hta:application
id="lhta"
applicationname=test_A1.hta"
singleinstance="yes"
windowstate="normal"
caption="yes"
showintaskbar="yes"
sysmenu="yes"
scroll="No"
Icon="Icon5.ico"
/>
<script language="vbScript">
Sub CopyMemberDB()
Dim conn, str1
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Code\testAcc\db1test.mdb"
Set rsData = conn.Execute("SELECT * FROM Stuff")
str1 = "<table border=1>"
Do Until rsData.EOF = True
str1 = str1 & "<tr><td>" & rsData(1) & "</td><td>" & rsData(2) &
"</td><td>" & rsData(3) & "</td></tr>"
rsData.moveNext
Loop
str1 = str1 & "</table>"
myContent.innerHTML = str1
'myContent.innerHTML = "<table
border=1><tr><td>testing1</td><td>testing2</td></tr><tr><td>testing3</td><td>testing4</td></tr></table>"
End Sub
</script>
</head>
<div id="myContent"></div>
<body bgcolor=aqua>
<table border=0>
<tr>
<td><input type="submit" value= "Copy Member DB"
OnClick="CopyMemberDB()"></td>
</tr>
</table>
<h2>Test Buttons</h2>
</body>
</html>