Code:
Dim I As Integer
Dim needfooter As boolean
Dim Literal1 As New Literal()
Define_List1_Data()
Dim html As New StringBuilder() 'Building an HTML string.
html.Append("<table border = '1' cellspacing=\'0\' cellpadding=\'2\' border=\'1\'><tr>") 'Table start.
For I = 1 to 8
html.Append("<th>column " & i & "</th>")
Next
html.Append("</tr>") 'Building the Data rows.
for I = 1 to 88
needFooter = true
if I mod 8 = 0 then html.Append("<tr>")
html.Append("<TD align = 'center'>")
**Here is my problem **
I want the cells to be links to a Sub in this page but it won't accept what I typed.
html.Append("<A HREF='javascript:DisplayConstellations(I)'>" & ConName(I) & "</A>")
html.Append("</TD>")
if I mod 8 = 8 Then
html.Append("</tr>")
needFooter = false
End If
Next
html.Append("</table>") 'Table end.
PlaceHolder1.Controls.Add(New Literal() With{.Text=html.ToString()})
Comment