loSpeaker = new MFUG._Function
~~Bonnie> Dim loSpeaker As MFUG._Function >>
> ' Speaker 1 > lcHtml = lcHtml + loSpeaker.AddSpeaker(lnSpeaker1, _ > loData.Tables("Temp").Rows(lnCompteur)("SpeakerPicture1"), _ > loData.Tables("Temp").Rows(lnCompteur)("Speaker1"), _ > loData.Tables("Temp").Rows(lnCompteur)("SpeakerBio1")) >>
>Public Class _Function > > > ' Add a speaker > ' expN1 Speaker ID > ' expL1 If the speaker picture is available > ' expC1 Speaker name > ' expM1 Speaker bio > Public Function AddSpeaker(ByVal tnSpeakerID, ByVal tlPicture, ByVal tcName, ByVal tmBio) As String > Dim lcHtml As String > Dim lcUniversalThread As String > > lcHtml = "" > > ' Universal Thread url > lcUniversalThread = "http://www.levelextreme.com/" > > If tnSpeakerID > 0 Then > lcHtml = lcHtml + "<TABLE CELLSPACING=0 CELLPADDING=0>" > lcHtml = lcHtml + "<TR VALIGN=TOP>" > lcHtml = lcHtml + "<TD ALIGN=CENTER WIDTH=90>" > If tlPicture Then > lcHtml = lcHtml + "<IMG SRC=" + lcUniversalThread + "Photo/" + tnSpeakerID.ToString().PadLeft(6, "0") + ".jpg>" > Else > lcHtml = lcHtml + "<IMG SRC=" + lcUniversalThread + "Photo/PictureNotAvailable.jpg>" > End If > lcHtml = lcHtml + "<TD WIDTH=4>" > lcHtml = lcHtml + "<TD>" > lcHtml = lcHtml + tmBio > lcHtml = lcHtml + "</TABLE>" > End If > lcHtml = lcHtml + "<P>" > Return lcHtml > End Function > > >End Class >>