Envío de correo con folio

[uarcos]

Hola,

Tengo una duda...

Estoy generando un código para un sistema de tickets web, sin embargo, tengo un detalle al momento de querer incluir en el cuerpo del correo el No. de ticket ya que deseo heredar el Id de la base de datos de SQL donde guardo el ticket pero no encuentro la manera, tengo un Procedure donde hago el SELECT:

Código vb:

ELSE IF @Action = 'GetRec_SugerenciasBuzon'
        BEGIN   
                SELECT max(IdComentario) FROM HI_BuzonSugerencias WHERE IdComentario=@IdComentario;
        END
 

Ahora tengo un código para mandar llamar este select en un programa .asp.vb

Código ASP:

Protected Sub doSendNotification()
        Dim Params(2) As SqlParameter
        Dim MailParams(2) As String
        Dim MailTo(0) As String
        Dim MailToCC(0) As String
        Dim MailTo_Client(0) As String
        Dim MailParams_Client(1) As String
 
        Dim Contents As SqlDataReader = Nothing
 
        Try
            ' Primero obtendremos la información del area orgánica (Página de Inicio)
            With Me.Master.QMngr.Cmd
                .Connection = Me.Master.QMngr.Cn
                .CommandType = Data.CommandType.StoredProcedure
                .CommandText = "[HV_HI_ContenedoresInfo]"
                .Parameters.Clear()
                .Parameters.AddWithValue("Action", "GetRec_SugerenciasBuzon")
                .Parameters.AddWithValue("IdComentario", Me.Master.HI_BuzonSugerencias.Value)
                Contents = .ExecuteReader()
            End With
            ' El registro existe... 
            If Contents.Read() Then ' Si Hay información...
 
                
 
            End If
        Catch ex As Exception
 
        Finally
 
        End Try
 
        ' Obtenemos el destinatario...
 
            Params(0) = New SqlParameter("Action", "scl_CatGral_AltCode")
            Params(1) = New SqlParameter("IdCatalogo", "GEN_Configuracion")
            Params(2) = New SqlParameter("Clave", 2) 'Destinatario Buzón de Sugerencias
            MailTo(0) = Query_Manager.Get_ScalarValue("[HV_GEN_Catalogos_Admin]", Params)
            MailTo_Client(0) = Me.txtCorreo.Text
 
        'Establecemos los parámetros del correo
 
        MailParams(0) = Me.txtTitulo.Text
        MailParams(1) = Me.txtComentario.Text
        MailParams(2) = mid(Request.ServerVariables("LOGON_USER"),9,3)
        ' MailToCC(0) =   Query_Manager.Get_ScalarValue("[HV_GEN_Catalogos_Admin]", Params)
 
        ' Enviamos el correo... 
         Query_Manager.SendMail(MailTo, Nothing, "HI_NuevoMsjBuzonSugerencias", MailParams)
 
        MailParams_Client(0) = Me.txtTitulo.Text
        MailParams_Client(1) = IdComentario
 
        ' Enviamos el correo... 
        Query_Manager.SendMail(MailTo_Client, Nothing, "HI_NuevoMsjBuzonSugerencias_Client", MailParams_Client)
 
 
 
 
End Sub
 

me está mandando un error en la línea de .Parameters.AddWithValue("IdComentario", Me.Master.HI_BuzonSugerencias.Value) no sé si tengan una solución sugerida para resolver este tema ya que es lo único que me hace falta para completar el ejercicio.

Gracias!!