HTML Help

cygnusx1 · Joined: 25 Sep 2007 Posts: 7

Using vbscript I have created a 2 column table that displays some data. Is there a way to clear this table data and display new data from a click of a button?

I am very new to using vbscript to display data in html. Without posting the whole script I create the table from a dictionary object like this:

Set oIE = CreateObject("InternetExplorer.Application")
With oIE
.Navigate "file://" & sHtmFile'"about:blank"
.Width = (oIE.Document.ParentWindow.Screen.AvailWidth * .70)
.Height = (oIE.Document.ParentWindow.Screen.AvailHeight * .58)
.Left = (oIE.Document.ParentWindow.Screen.AvailWidth-oIE.Width)/2
.Top = (oIE.Document.ParentWindow.Screen.AvailHeight-oIE.Height)/2
.AddressBar = 0
.FullScreen = 0
.MenuBar = 0
.Resizable = 0
.ToolBar = 0
End With

Do While (oIE.Busy)
Loop

With oIE.Document
.Writeln "<div id=oOutput align=left class=""output"">"
.Writeln "<table border=1 width=100%>"
k = oDict.Keys
i = oDict.Items
For x = 0 to oDict.Count -1
.Writeln "<tr align=left><td style=""width:70%"">" & k(x) & "</td><td>" & i(x) & "</td></tr>"
Next
.Writeln "</table></div></body>"
End With

Should I be using innerHtml or innerText instead of Writeln?

Any help or sugestions would be appreciated.

cygnusx1 · Joined: 25 Sep 2007 Posts: 7

I have to delete the rows & then add the new data.
The problem is that the rows do not get removed. If I ONLY remove the rows then they are removed.

Set d = oIE.document.getElementById("oTable")
For x = (d.rows.length -1) To 0 Step -1
d.deleteRow(x)
Next
'if I stop here: all the rows are removed
Call GetData '<this gets the dictionary containing the data>

k = oDict.Keys
i = oDict.Items
For x = 0 to oDict.Count -1
Set oRow = d.InsertRow()
Set oCell = oRow.InsertCell()
oCell.InnerText = k(x)
Set oCell = oRow.InsertCell()
oCell.InnerText = i(x)
Set oRow = Nothing:Set oCell = Nothing
Next

Set d = Nothing