problema con la ñ!!!

[roger1187]

Peter ahi esta el codigo x si no m crees

Dim conexionesglo As SqlConnection = New SqlConnection("Data Source=(local); Initial Catalog=sigaf; user id=sa;password=sa159")

Dim codetalle As New SqlCommand
codetalle.CommandText = "sp_AperturaSolicitud_Gas"
codetalle.CommandType = CommandType.StoredProcedure
codetalle.Connection = conexionesglo


Dim ParamSolicitudes As New SqlParameter("@nSolicitudes", data.SqlDbType.Decimal)
ParamSolicitudes.Direction = ParameterDirection.Output
codetalle.Parameters.Add(ParamSolicitudes)

Dim ParamSolicitudes1 As New SqlParameter("@nSolicitudes1", data.SqlDbType.Decimal)
ParamSolicitudes.Direction = ParameterDirection.Output
codetalle.Parameters.Add(ParamSolicitudes1)
codetalle.Parameters("@nSolicitudes1").value=IIf(( Request.Form("txnumSolic1") <> Nothing), Request.Form("txnumSolic1"), "999999")
Dim ParamAgenci As New SqlParameter("@nAgenci", data.SqlDbType.Smallint)
ParamAgenci.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamAgenci)
codetalle.Parameters("@nAgenci").value=1
Dim ParamTalleres As New SqlParameter("@nTalleres", data.SqlDbType.Smallint)
ParamTalleres.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamTalleres)
codetalle.Parameters("@nTalleres").value=IIf((Requ est.Form("DdlTalleres") <> Nothing), Request.Form("DdlTalleres"), "")
Dim ParamFinancieras As New SqlParameter("@nFinancieras", data.SqlDbType.Smallint)
ParamFinancieras.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFinancieras)
codetalle.Parameters("@nFinancieras").value=IIf((R equest.Form("DdlFinancieras") <> Nothing), Request.Form("DdlFinancieras"), "")
Dim ParamTipoCredito As New SqlParameter("@nTipoCredito", data.SqlDbType.Smallint)
ParamTipoCredito.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamTipoCredito)
codetalle.Parameters("@nTipoCredito").value=IIf((R equest.Form("DdlTipoCredito") <> Nothing), Request.Form("DdlTipoCredito"), "")
Dim ParamPlaca As New SqlParameter("@cPlaca", data.SqlDbType.VarChar)
ParamPlaca.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamPlaca)
codetalle.Parameters("@cPlaca").value=IIf((Request .Form("TxtNumPlaca") <> Nothing), Request.Form("TxtNumPlaca"), "")
Dim ParamApePaterno As New SqlParameter("@cApePaterno", data.SqlDbType.VarChar)
ParamApePaterno.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamApePaterno)
codetalle.Parameters("@cApePaterno").value=IIf((Re quest.Form("TxtAPaterno") <> Nothing), Request.Form("TxtAPaterno"), "")
Dim ParamApeMaterno As New SqlParameter("@cApeMaterno", data.SqlDbType.VarChar)
ParamApeMaterno.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamApeMaterno)
codetalle.Parameters("@cApeMaterno").value=IIf((Re quest.Form("TxtAMaterno") <> Nothing), Request.Form("TxtAMaterno"), "")
Dim ParamNombres As New SqlParameter("@cNombres", data.SqlDbType.VarChar)
ParamNombres.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamNombres)
codetalle.Parameters("@cNombres").value=IIf((Reque st.Form("TxtNombre") <> Nothing), Request.Form("TxtNombre"), "")
Dim ParamTipoDocumento As New SqlParameter("@nTipoDocumento", data.SqlDbType.SmallInt)
ParamTipoDocumento.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamTipoDocumento)
codetalle.Parameters("@nTipoDocumento").value=IIf( (Request.Form("DdlTipoDocumento") <> Nothing), Request.Form("DdlTipoDocumento"), "")
Dim ParamNumDocumento As New SqlParameter("@cNumDocumento", data.SqlDbType.VarChar)
ParamNumDocumento.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamNumDocumento)
codetalle.Parameters("@cNumDocumento").value=IIf(( Request.Form("TxtNumDocumento") <> Nothing), Request.Form("TxtNumDocumento"), "0")
Dim ParamFechaNacimiento As New SqlParameter("@dFechaNacimiento", data.SqlDbType.DateTime)
ParamFechaNacimiento.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFechaNacimiento)
codetalle.Parameters("@dFechaNacimiento").value=II f((fechanacimiento <> Nothing), fechanacimiento, "")



Dim ParamUsuarioRegistro As New SqlParameter("@cUsuarioRegistro", data.SqlDbType.VarChar)
ParamUsuarioRegistro.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamUsuarioRegistro)
codetalle.Parameters("@cUsuarioRegistro").value=tx tusuario.text



Dim ParamCalif01 As New SqlParameter("@nCalif01", data.SqlDbType.SmallInt)
ParamCalif01.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamCalif01)
codetalle.Parameters("@nCalif01").value=IIf((Reque st.Form("ddlmes1") <> Nothing), Request.Form("ddlmes1"), "")
Dim ParamCalif02 As New SqlParameter("@nCalif02", data.SqlDbType.SmallInt)
ParamCalif02.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamCalif02)
codetalle.Parameters("@nCalif02").value=IIf((Reque st.Form("ddlmes2") <> Nothing), Request.Form("ddlmes2"), "")
Dim ParamCalif03 As New SqlParameter("@nCalif03", data.SqlDbType.Smallint)
ParamCalif03.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamCalif03)
codetalle.Parameters("@nCalif03").value=IIf((Reque st.Form("ddlmes3") <> Nothing), Request.Form("ddlmes3"), "")
Dim ParamCalif04 As New SqlParameter("@nCalif04", data.SqlDbType.Smallint)
ParamCalif04.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamCalif04)
codetalle.Parameters("@nCalif04").value=IIf((Reque st.Form("ddlmes4") <> Nothing), Request.Form("ddlmes4"), "")
Dim ParamTotalEndeudam As New SqlParameter("@nTotalEndeudam", data.SqlDbType.Decimal)
ParamTotalEndeudam.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamTotalEndeudam)
codetalle.Parameters("@nTotalEndeudam").value=IIf( (Request.Form("TxtTotalEndeudamiento") <> Nothing), Request.Form("TxtTotalEndeudamiento"), 0)
Dim ParamNumBancosEndeuda As New SqlParameter("@nNumBancosEndeuda", data.SqlDbType.Smallint)
ParamNumBancosEndeuda.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamNumBancosEndeuda)
codetalle.Parameters("@nNumBancosEndeuda").value=I If((Request.Form("TxtNBancos") <> Nothing), Request.Form("TxtNBancos"), 0)
Dim ParamAñoFabrica As New SqlParameter("@nAñoFabrica", data.SqlDbType.Smallint)
ParamAñoFabrica.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamAñoFabrica)
codetalle.Parameters("@nAñoFabrica").value=IIf((Re quest.Form("TxtAnoFabri") <> Nothing), Request.Form("TxtAnoFabri"), 0)
Dim ParamFechaSunarp As New SqlParameter("@dFechaSunarp", data.SqlDbType.DateTime)
ParamFechaSunarp.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFechaSunarp)
codetalle.Parameters("@dFechaSunarp").value=IIf((f echainforme <> Nothing), fechainforme, "")
Dim ParamFechaSOAT As New SqlParameter("@dFechaSOAT", data.SqlDbType.DateTime)
ParamFechaSOAT.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFechaSOAT)
codetalle.Parameters("@dFechaSOAT").value=IIf((fec havigencia <> Nothing), fechavigencia, "")









Dim ParamFlagCelular As New SqlParameter("@cFlagCelular", data.SqlDbType.Char)
ParamFlagCelular.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFlagCelular)
codetalle.Parameters("@cFlagCelular").value=IIf((F lagRPM <> Nothing), FlagRPM, "")
Dim ParamFlagFondJub As New SqlParameter("@cFlagFondJub", data.SqlDbType.Char)
ParamFlagFondJub.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFlagFondJub)
codetalle.Parameters("@cFlagFondJub").value=IIf((F lagAFP <> Nothing), FlagAFP, "")
Dim ParamFlagVtaSoat As New SqlParameter("@cFlagVtaSoat", data.SqlDbType.Char)
ParamFlagVtaSoat.Direction = ParameterDirection.Input
codetalle.Parameters.Add(ParamFlagVtaSoat)
codetalle.Parameters("@cFlagVtaSoat").value=IIf((F lagSOAT <> Nothing), FlagSOAT, "")



conexionesglo.Open()
codetalle.ExecuteScalar()
conexionesglo.Close()

sol = codetalle.Parameters("@nSolicitudes").Value.ToStri ng
solimod=codetalle.Parameters("@nSolicitudes1").Val ue.ToString

[roger1187]

kiero saber como 1 asp grab la letra ñ en la base d datos xfavor alguna sugerencia