ASP.NET

Public Sub GetDataFromDB( _
        ByVal sEmail As String, _
        ByVal sDisplayName As String, _
        ByVal sFname As String, _
        ByVal sLname As String, _
        ByVal sPropertyDefinitionID As Decimal, _
        ByVal sUserID As Decimal, _
        ByVal sPropertyText As String, _
        ByVal sPrefix As String, _
        ByVal sMiddleName As String, _
        ByVal sSuffix As String, _
        ByVal PropertyValue As String, _
        ByVal Visitbiity As Integer, _
        ByVal sTelephone As String, _
        ByVal sCity As String, _
        ByVal sRegion As String, _
        ByVal sState As String, _
        ByVal sCountry As String, _
        ByVal sBio As String)


        Dim Conn As String = System.Configuration.ConfigurationManager.ConnectionStrings("SiteSQLServer").ConnectionString
        Dim myConnection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(Conn)
        Dim mySQL As String = "P4YS_GetBioInfo"

        Try
            Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(mySQL, myConnection)
            cmd.CommandType = Data.CommandType.StoredProcedure
            'need to pass UserID Parameter to the system for the Stored Procedure
            cmd.Parameters.AddWithValue("@UserID", sUserID)
            myConnection.Open()
            Dim myReader As Data.SqlClient.SqlDataReader = cmd.ExecuteReader

            'Date Returned from database map entries to 
            sEmail = "Email"
            sDisplayName = "DisplayName"
            sFname = "FirstName"
            sLname = "LastName"

            'Search through PropertyDefinition for each of these values and set a varialble to them
            'Where propertyDefinitation 
            ' 20 = sUserPrefix and visibility = 2
            'sPrefix = 
            ' 22 = Middle Name and visibility = 2
            'sMiddleName = 
            ' 24 = Suffix and visibility = 2
            'sSuffix = 
            ' 27 = City and visibility = 2
            'sCity = 
            ' 28 = Region and visibility = 2
            'sRegion = 
            ' 29 = Country and visibility = 2
            'sCountry = 
            ' 31 = Telephone Number and visibility = 2
            'sTelephone = 
            ' 36 = BIO and visibility = 2
            'sBio = 


        Catch ex As Exception

        Finally
            CType(myConnection, IDisposable).Dispose()
        End Try

    End Sub

<br />
  <MyControl ID="cc1" runat="server"><br />
    <HeadTemplate class="container_head"><br />
      SomeText<br />
    </HeadTemplate><br />
    <ItemTemplate class="container_body"><br />
      <a href="#">List some items</a><br />
      <a href="#">Add some item</a><br />
    </ItemTemplate><br />
  MyControl><br />

<br />
  <MyControl ID="cc1" runat="server" class="container_head" Text="SomeText"><br />
    <Div class="container_body"><br />
      <a href="#">List some items</a><br />
      <a href="#">Add some item</a><br />
    </Div><br />
  MyControl><br />

<asp:TemplateField HeaderText="BlogTitle"><br />
                            <ItemTemplate><br />
                             <asp:LinkButton ID="blgname" runat="server" CommandName="blogname" CommandArgument=<%# Eval("blgid") %> ForeColor="black" Height="12px" Text='<%# (container.dataitem("blogtitle")) %>' CssClass="textforum"></asp:LinkButton><br />
                            </ItemTemplate><br />
                                <HeaderStyle CssClass="textforum" ForeColor="White" /><br />
                            </asp:TemplateField>

Dim id As Integer = Convert.ToInt32(e.CommandArgument)<br />
            Dim lnkbname As LinkButton<br />
Dim rowindex As Integer = CInt(e.CommandArgument)<br />
            Dim row As GridViewRow = grd_allblogs.Rows(rowindex)<br />
            lnkbname = DirectCast(row.FindControl("blgname"), LinkButton)<br />
            Session("blgname") = lnkbname.Text<br />
<br />
<br />
            Response.Redirect("BlogDetails.aspx?id=" & id)<br />