Hola a todos:
Tengo un pequeño problema con el idioma ruso y es el siguiente. Cuando recupero de la base de datos los caracteres cirilicos todo el rato en la pagina web me los interpreta con caracteres de interrogacion (?). La base de datos la tengo modificado con la intercalacion en Cyrillic_General_100_BIN y esta me la interpreta correctamente, pero cuando lo muestro en la página web siempre esta con las interrogaciones. He provado a poner lo de uiculture, culture, elñ requestencoding, responseencoding pero todo el rato sale con las ?. Parte del codigo de vb es el siguiente:
Dim cmd_cargar As New ADODB.Command
cmd_cargar.ActiveConnection = cn
cmd_cargar.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
cmd_cargar.CommandText = "pr_cargar_textos_presentacion"
Dim prm_idioma As New ADODB.Parameter
Dim prm_titulo As New ADODB.Parameter
Dim prm_texto1 As New ADODB.Parameter
Dim prm_texto2 As New ADODB.Parameter
Dim prm_texto3 As New ADODB.Parameter
Dim prm_texto4 As New ADODB.Parameter
Dim prm_texto5 As New ADODB.Parameter
prm_idioma = cmd_cargar.CreateParameter("idioma", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 3)
prm_titulo = cmd_cargar.CreateParameter("titulo", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 500)
prm_texto1 = cmd_cargar.CreateParameter("texto1", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)
prm_texto2 = cmd_cargar.CreateParameter("texto2", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)
prm_texto3 = cmd_cargar.CreateParameter("texto3", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)
prm_texto4 = cmd_cargar.CreateParameter("texto4", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)
prm_texto5 = cmd_cargar.CreateParameter("texto5", ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamOutput, 8000)
prm_idioma.Value = "rus"
cmd_cargar.Parameters.Append(prm_idioma)
cmd_cargar.Parameters.Append(prm_titulo)
cmd_cargar.Parameters.Append(prm_texto1)
cmd_cargar.Parameters.Append(prm_texto2)
cmd_cargar.Parameters.Append(prm_texto3)
cmd_cargar.Parameters.Append(prm_texto4)
cmd_cargar.Parameters.Append(prm_texto5)
cmd_cargar.Execute()
If cmd_cargar("titulo").Value Is DBNull.Value Then
Else
lbl_titulo.Text = cmd_cargar("titulo").Value
lbl_texto1.Text = cmd_cargar("texto1").Value
lbl_texto2.Text = cmd_cargar("texto2").Value
lbl_texto3.Text = cmd_cargar("texto3").Value
lbl_texto4.Text = cmd_cargar("texto4").Value
lbl_texto5.Text = cmd_cargar("texto5").Value
End If
Tengo algun parametro mal? Tengo que cambiar alguna configuracion?
Muchas gracias a todos