Software

Ask something
Question Locked

Using Javascript in ASP.NET/VB.NET

0 helpful
1 reply

by srbonton

Closed to new repliesThis discussion is closed. It stays readable, but it takes no new replies.

My task is to create a dynamic widget. A part of the widget is creating tabs. Once the widget is rendered on the client side it should display the layout. Part of the layout is creating a tab control that displays dynamic data. Please find a copy of the code pasted below.
The final step is to implement the inline Javascript so that it gives the behavior and format the tab control accurately. How do I do this?

----------------------------------------------------------------------------------------------------------------------------------------
Public Sub GenerateBullets(ByVal ID As Int64)
Try

Dim BulletList As List(Of FlexOffers.Entities.Content)
Dim LongReview As List(Of FlexOffers.Entities.Content)
LongReview = p.Content.GetContentByTransactionID(ID, ConfigurationManager.AppSettings("TrackURL"), 36)

BulletList = p.Content.GetContentByTransactionID(ID, ConfigurationManager.AppSettings("TrackURL"), 34)
LongReview = p.Content.GetContentByTransactionID(ID, ConfigurationManager.AppSettings("TrackURL"), 36)

JavaCode.Append("document.write('

');")

If BulletList.Count > 0 Then

With JavaCode

.Append("document.write('")
.Append("

")
.Append("

")
.Append("

")
.Append("

")
.Append("")
If BulletList(0).Image.ID > 0 Then
.Append("")
Else
.Append("")
End If
.Append("<\/a>")
.Append("

")
.Append("

")
.Append("

")
.Append("<\/tr>")
.Append("

")
.Append("

")
.Append("

")
.Append("

")
.Append("

")
.Append("

")
.Append("

 
Intro Rate<\/td>")
.Append("

No Introductory Rate Available <\/td>")
.Append("<\/tr>")
.Append("

APR<\/td>")
.Append("

24.50%*<\/td>")
.Append("
Fee $150**<\/td>")
.Append("

")
.Append("<\/td>")
.Append("');")
.Append("document.write('")
.Append("

")
.Append("")
.Append("")
.Append(Replace(BulletList(0).ProductName, "'", "\'"))
.Append("<\/a>")
'If BulletList(0).Product.Name <> BulletList(0).Program.Name Then
.Append(" - ")
.Append("By " & Replace(BulletList(0).Program.Name, "'", "\'"))
.Append("<\/span>")
'End If
.Append("<\/span>")
.Append("

    ")
    .Append("');")

    For Each Bullet As FlexOffers.Entities.Content In BulletList

    .AppendLine("document.write('

  • " & (Replace(Replace(Replace(Bullet.Content, vbCrLf, ""), "?", "'"), "'", "\'")) & "

    • ');")

    Next

    .Append("document.write('")
    .Append("

")
.Append("")
'.Append("»")
Try
If BulletList(0).Product.LinkText.Length > 0 Then
.Append("" & BulletList(0).Product.LinkText & "")
Else
.Append("Apply Now")
End If
Catch ex As Exception
.Append("Apply Now")
End Try
.Append("<\/span>")

If Len(BulletList(0).Product.Terms) > 0 Then
.Append("")
.Append("Terms and Conditions<\/a>")
.Append("<\/span>")
End If
.Append(" ")

'This is end of tab control

.Append("<\/td>")
.Append("<\/tr>")
.Append("<\/tbody>")
.Append("<\/table>")
'This is beginning of tab control
'This is the Javascript Code for Tab Control

.Append(" ")

.Append("

")

.Append("

")

.Append("

    ")
    .Append("

  • Review

    • ")
    .Append("

  • Rates & Fees

    • ")
    .Append("

  • Rewards

")

'This is the review tab
.Append("

")
.Append("

")
.Append("

Review

")
.Append("

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vestibulum nisl elit, facilisis nec vestibulum aliquam, adipiscing ac lectus. Praesent libero ipsum, volutpat eu porta vel, molestie ut purus. Donec et lorem a justo pellentesque feugiat eu eget diam. Aliquam non interdum leo. Sed auctor tortor ac mauris ullamcorper placerat. Praesent sit amet arcu ac nisiinterdum pellentesque et consequat metus. Ut eget mauris nisl. Aenean mattis sem eget dolor blandit vitae mollis elit faucibus. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.

")

'This is the Rates and Fees tab
.Append("

")
.Append("

Review

")
.Append("

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vestibulum nisl elit, facilisis nec vestibulum aliquam, adipiscing ac lectus. Praesent libero ipsum, volutpat eu porta vel, molestie ut purus. Donec et lorem a justo pellentesque feugiat eu eget diam. Aliquam non interdum leo. Sed auctor tortor ac mauris ullamcorper placerat. Praesent sit amet arcu ac nisiinterdum pellentesque et consequat metus. Ut eget mauris nisl. Aenean mattis sem eget dolor blandit vitae mollis elit faucibus. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.

")

'This is the Rewards tab
.Append("

")
.Append("

Rewards

")
.Append("

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Vestibulum nisl elit, facilisis nec vestibulum aliquam, adipiscing ac lectus. Praesent libero ipsum, volutpat eu porta vel, molestie ut purus. Donec et lorem a justo pellentesque feugiat eu eget diam. Aliquam non interdum leo. Sed auctor tortor ac mauris ullamcorper placerat. Praesent sit amet arcu ac nisiinterdum pellentesque et consequat metus. Ut eget mauris nisl. Aenean mattis sem eget dolor blandit vitae mollis elit faucibus. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.

")

.Append("

")
.Append("');")

End With

Else

With JavaCode

.Append("document.write('")
.Append("

")
'.Append(";")

'.Append("document.write('")
.Append("

")
.Append("

")
.Append("

")
.Append("")
.Append("     <\/b>")
.Append("<\/font>")
.Append("<\/td>")
.Append("<\/tr>")
.Append("<\/table>")
.Append("');")

End With

End If

JavaCode.Append("document.write('

');")

If Request.QueryString("T") IsNot Nothing Then
If Request.QueryString("T") = "1" Then
JavaCode = JavaCode.Replace("http:", "https:")
End If
End If

Response.ContentType = "text/javascript"

Response.Write(JavaCode.ToString)
Catch ex As Exception
Response.End()
End Try

End Sub-------------------------------------------------------------------------------

1 reply

This discussion is closed to new replies.