Foros del web, para los que viven de bits

mi problemaa es esteee ess q quieroo añadirr a untaa tablaa en sql unoss datoss he estado intentando y no me a salidoo



estee es mi procedimiento funciona ok


SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

create PROCEDURE SGL_INS01_SUGERENCIAS
(@socio varchar(200),
@titulo varchar(300),
@mensaje varchar(3000))
AS
BEGIN TRANSACTION
DECLARE @ULTIMO SMALLINT

SELECT @ULTIMO = CASE WHEN MAX(numero)IS NULL THEN 1
ELSE MAX(numero) + 1
END
FROM sugerencia

INSERT sugerencia(numero,socio,titulo,mensaje,fecha)
VALUES (@ultimo,@socio,@titulo,@mensaje,convert(datetime, getdate(),103))
COMMIT TRANSACTION

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

//------------------------------------------------------------

esto ess lo q he hechoo peroo no añadee no se por q si el procedimiento funcionaa okk qq faltaa paraa q funcionee porr favorrr help meeee

//-----------------------------------------------------------

web.config

<appSettings>

<add key="CadenaConexion" value="Initial catalog=club; Data Source=(local); UID=sa; pwd=;" />

</appSettings>



//-----------------------------------------------------------

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



Dim socio As String = Request.Params("txtitulo")

Dim titulo As String = Request.Params("txtitulo")

Dim sugerencia As String = Request.Params("txsugerencia")

Dim strCadena As String = ConfigurationSettings.AppSettings("CadenaConexion" )

Dim mycommand As New SqlClient.SqlCommand

mycommand.Connection = New SqlConnection(strCadena)

mycommand.CommandType = CommandType.StoredProcedure

mycommand.CommandText = "SGL_INS01_SUGERENCIAS"

Dim Par As New SqlClient.SqlParameter("@socio", SqlDbType.VarChar, 100)

Dim Parametro As New SqlClient.SqlParameter("@titulo", SqlDbType.VarChar, 200)

Dim Categoria As New SqlClient.SqlParameter("@mensaje", SqlDbType.VarChar, 2500)

Par.Value = socio

Parametro.Value = titulo

Categoria.Value = sugerencia

'INSERTO EL PARAMETRO EN EL DA. PARA LUEGO LLENAR EL DS

mycommand.Parameters.Add(Par)

mycommand.Parameters.Add(Parametro)

mycommand.Parameters.Add(Categoria)

mycommand.Connection.Open()

mycommand.ExecuteNonQuery()

mycommand.Connection.Close()

End Sub