I don't understand why it is caughing on the live server. It works on my local machine:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim username As String = TextBox1.Text
'Dim userProfile As ProfileCommon = DirectCast(ProfileCommon.Create(username, True), ProfileCommon)
'Dim name As String = userProfile.Name
'Response.Write(name)
'Exit Sub
Dim GetUserinfoAdapter As New DataSet1TableAdapters.GetUserInfoTableAdapter
Dim GetUsertable As New DataSet1.GetUserInfoDataTable
If Not GetUserinfoAdapter.GetUserInfo(username) Is Nothing Then
GetUsertable = GetUserinfoAdapter.GetUserInfo(username)
End If
For Each GetUsertableRow As DataSet1.GetUserInfoRow In GetUsertable
' Now create an email message
Dim emailMessage As New StringBuilder()
emailMessage.A ...
Go to the complete details ...