I’m new to scripting and web development, so please accept my apologies if my terminology is incorrect. I’m trying to create hyperlinks for the values that are generated in the table cells via a VBScript which builds a table in my HTA. How would I go about hyperlinking the cells. Below is my DOM/VBScript:
‘——————————————————————-
Option Explicit
Sub window_onload()
Self.Resizeto 1100,900
BuildServerDataTable
End Sub
Sub window_onclose()
Self.Close
End Sub
Sub BuildServerDataTable()
Dim oTable, oTableRow, oTableDataServerName, oTableDataComment
Dim oTableDataStatus, oTableDataError, oTableDataAcknowledged
oServers.MoveFirst
Set oTable = document.getElementByID(“ServerTable”)
Do While oServers.EOF = False
Set oTableRow = document.CreateElement(“TR”)
Set oTableDataServerName = document.CreateElement(“TD”)
Set oTableDataError = document.CreateElement(“TD”)
Set oTableDataStatus = document.CreateElement(“TD”)
Set oTableDataComment = document.CreateElement(“TD”)
Set oTableDataAcknowledged = document.CreateElement(“TD”)
oTableDataServerName.innerHTML = oServers.GetFieldData(“ServerName”)
oTableDataError.innerHTML = oServers.GetFieldData(“ServerError”)
oTableDataStatus.innerHTML = oServers.GetFieldData(“Status”)
oTableDataComment.innerHTML = oServers.GetFieldData(“Comment”)
oTableDataAcknowledged.innerHTML = oServers.GetFieldData(“Acknowledged”)
oTable.appendChild(oTableRow)
oTableRow.appendChild(oTableDataServerName)
oTableRow.appendChild(oTableDataError)
oTableRow.appendChild(oTableDataStatus)
oTableRow.appendChild(oTableDataComment)
oTableRow.appendChild(oTableDataAcknowledged)
oServers.MoveNext
Loop
End Sub