Visual Basic

    <br />
'Gets any previosuly create about us text <br />
    Public Function GetAboutUs(ByVal ProductID As Int32) As String<br />
        ' Create Connection<br />
        Dim HSConn As New SqlConnection(ConfigurationManager.ConnectionStrings("RemoteSqlServer").ConnectionString)<br />
        ' Create data reader<br />
        Dim dr As SqlDataReader<br />
        'Declare Command<br />
        Dim HSComm As New SqlCommand()<br />
<br />
        Try<br />
            HSConn.Open()<br />
            ' Provide connection<br />
            HSComm.Connection = HSConn<br />
            ' Provide command type and command<br />
            HSComm.CommandType = CommandType.StoredProcedure<br />
            HSComm.Parameters.AddWithValue("ProductID", ProductID)<br />
            HSComm.CommandText = "SP_ProductAboutUsSelect"<br />
<br />
            'Execute the command<br />
            dr = HSComm.ExecuteReader<br />
<br />
            While dr.Read()<br />
                'If there is a Tagline return it. Otherwise return nothing<br />
                If dr.IsDBNull(0) Then<br />
                    Return Nothing<br />
                Else<br />
                    Return dr.GetString(0)<br />
                End If<br />
            End While<br />
<br />
            'Return in case value is not found<br />
            Return Nothing<br />
<br />
        Catch ex As Exception<br />
            ' Failed to retrieve tagline so return false<br />
            Emailer.ErrorEmail(ex, Page)<br />
            Return Nothing<br />
        End Try<br />
<br />
        ' Finish up with resources<br />
        dr.Close()<br />
        HSConn.Close()<br />
<br />
    End Function