IFrame Method
This method is the easiest to implement. Just Cut and Paste the code below into your website and it will display a different
Hero Each time.
Web Service Method
We have a web service that you can find here:
http://www.realtechnologyheroes.com/RealTechnologyHeroes.asmx
Page: AnyPage.aspx
<table width="140px" bgcolor=white>
<tr>
<td>
<asp:HyperLink ID="hypHeader" runat=server
NavigateUrl="http://www.RealTechnologyHeroes.com"
Target=_blank
Text="Real Technology Heroes" />
</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="hypImage" runat=server
NavigateUrl="http://www.RealTechnologyHeroes.com" Target=_blank>
<asp:Image ID="imgHero" runat=server Width=100 Height=100
BorderStyle=none BorderWidth="0" />
</asp:HyperLink>
</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="hypHero" runat="server" Target=_blank />
</td>
</tr>
<tr>
<td>
<asp:HyperLink ID="hypDetails" runat=server Target=_blank
Text="View Details" />
|
<asp:HyperLink ID="hypListen" runat=server Target=_blank
Text="Listen" />
</td>
</tr>
</table>
Page: AnyPage.aspx.vb
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.Load
Dim objRTH As wsRTH.RealTechnologyHeroes = New
wsRTH.RealTechnologyHeroes
Dim dsHero
As System.Data.DataSet
Dim drHero
As DataRow
Dim CreatedBy
As String = ""
dsHero = objRTH.RandomHero()
If dsHero.Tables.Count > 0
Then
If dsHero.Tables(0).Rows.Count > 0 Then
drHero = dsHero.Tables(0).Rows(0)
Dim strHeroURL
As String
= drHero("HeroURL")
Dim strHeroName
As String
= drHero("HeroName")
Dim AudioURL
As String
= drHero("HeroAudioURL")
hypHero.NavigateUrl = strHeroURL
hypHero.Text = strHeroName
hypImage.NavigateUrl = strHeroURL
hypListen.NavigateUrl = AudioURL
hypDetails.NavigateUrl = strHeroURL
End If
End If
End Sub