>I'm a C#'er so not 100% sure of the VB syntax. But, the fact of the method being static isn't what makes it callable from both pages, I guess I kinda misstated that. Making it static allows you to call it without instanciating the class. So, in your code you can just do...
>
>MyResult = WebCommon.MyStaticMethod(Whatever)
>
>without having to createobj, or whatever you do to instanciate in VB.Net.
>
>If the webcommon class is in the same project and the same namespace as your aspx pages it should be callable. If you want to put your webcommon in another project you would have to add a reference to that project from your webpage's project to use it.

I created a class named Function.vb. It is in the same project. I put the class in it. It's like this:

Public Class _Function


   ' Add a speaker
   ' expN1 Speaker ID
   ' expL1 If the speaker picture is available
   ' expC1 Speaker name
   ' expM1 Speaker bio
   Private Function AddSpeaker(ByVal tnSpeakerID, ByVal tlPicture, ByVal tcName, ByVal tmBio)
      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

In the ASPX files, I remove the Sub function AddSpeaker(). Now, wherever AddSpeaker() is present, I see that we have a problem. So, I put the line like this:

            ' Speaker 1
            lcHtml = lcHtml + Function.AddSpeaker(lnSpeaker1, _
             loData.Tables("Temp").Rows(lnCompteur)("SpeakerPicture1"), _
             loData.Tables("Temp").Rows(lnCompteur)("Speaker1"), _
             loData.Tables("Temp").Rows(lnCompteur)("SpeakerBio1"))

It doesn't work as we have an unknown reference.