“)
.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(“
“)
‘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——————————————————————————-
