/    Sign up×
Community /Pin to ProfileBookmark

VBScript DOM HTA Table Hyperlink

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

to post a comment
HTML

0Be the first to comment 😎

×

Success!

Help @AJAX33 spread the word by sharing this article on Twitter...

Tweet This
Sign in
Forgot password?
Sign in with TwitchSign in with GithubCreate Account
about: ({
version: 0.1.9 BETA 6.16,
whats_new: community page,
up_next: more Davinci•003 tasks,
coming_soon: events calendar,
social: @webDeveloperHQ
});

legal: ({
terms: of use,
privacy: policy
});
changelog: (
version: 0.1.9,
notes: added community page

version: 0.1.8,
notes: added Davinci•003

version: 0.1.7,
notes: upvote answers to bounties

version: 0.1.6,
notes: article editor refresh
)...
recent_tips: (
tipper: @nearjob,
tipped: article
amount: 1000 SATS,

tipper: @meenaratha,
tipped: article
amount: 1000 SATS,

tipper: @meenaratha,
tipped: article
amount: 1000 SATS,
)...