none
ASP CLASSICO E SQL SERVER RRS feed

  • Pergunta

  • estou usando asp classico e sqlserver 2008 express

    mas quando gravo no banco  as palavaras com acentos e cedilhas ficam errradas

    segunda-feira, 5 de março de 2012 13:24

Todas as Respostas

  • Boom dia.

    Veja thread ja respondida:

    http://social.msdn.microsoft.com/Forums/pt-BR/asppt/thread/506521d9-8a33-492e-ad2d-eb960c6f1bf1


    Consultoria .NET

    ANALISTA DESENVOLVEDOR
    Se esta sugestão for útil, por favor, classifique-a como útil.
    Se ela lhe ajudar a resolver o problema, por favor, marque-a como resposta.
    Blog .Net Descomplicado

    segunda-feira, 5 de março de 2012 13:28
  • eu não entendi a reposta

    do post que voce indicou

    estou com este problema a dois dias...

    segunda-feira, 5 de março de 2012 13:37
  • Isso nao lhe ajuda?

    Pessoal encontrei uma solução pra isso.
    Coloquei na parte servidor, esta declaração, Response.CharSet = "ISO-8859-1". No cabeçalho do site coloquei a meta tag <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />, e ao cadastrar qualquer coisa dei um replace nas strings desta forma abaixo.
    
    Function HTMLEspeciais(sString)
     If (sString <> "") Then
      sString = Replace(sString, "á", "&aacute;")
      sString = Replace(sString, "â", "&acirc;")
      sString = Replace(sString, "à", "&agrave;")
      sString = Replace(sString, "ã", "&atilde;")
    
      sString = Replace(sString, "ç", "&ccedil;")
    
      sString = Replace(sString, "é", "&eacute;")
      sString = Replace(sString, "ê", "&ecirc;")
    
      sString = Replace(sString, "í", "&iacute;")
    
      sString = Replace(sString, "ó", "&oacute;")
      sString = Replace(sString, "ô", "&ocirc;")
      sString = Replace(sString, "õ", "&otilde;")
    
      sString = Replace(sString, "ú", "&uacute;")
      sString = Replace(sString, "ü", "&uuml;")
    
      sString = Replace(sString, "Á", "&Aacute;")
      sString = Replace(sString, "Â", "&Acirc;")
      sString = Replace(sString, "À", "&Agrave;")
      sString = Replace(sString, "Ã", "&Atilde;")
    
      sString = Replace(sString, "Ç", "&Ccedil;")
    
      sString = Replace(sString, "É", "&Eacute;")
      sString = Replace(sString, "Ê", "&Ecirc;")
    
      sString = Replace(sString, "Í", "&Iacute;")
    
      sString = Replace(sString, "Ó", "&Oacute;")
      sString = Replace(sString, "Ô", "&Ocirc;")
      sString = Replace(sString, "Õ", "&Otilde;")
    
      sString = Replace(sString, "Ú", "&Uacute;")
      sString = Replace(sString, "Ü", "&Uuml;")
    
      sString = Replace(sString, """", "&quot;") '"
      sString = Replace(sString, "<", "&lt;") '<
      sString = Replace(sString, ">", "&gt;") '>
     End If
    
     HTMLEspeciais = sString
    End Function
    
    Pronto, depois disso, tudo funciona as mil maravilhas.

    E esta:

    Afinal o necessário foi gravar o ficheiro em UTF-8.

    No ultraedit, tem lá no menu File-Conversions->ASCII to UTF-8 (Unicode)

    E depois gravei e voilá. Tudo perfeito. Sem codepages, vbscripts, nada.

    Referencia:

    http://social.msdn.microsoft.com/Forums/pt-BR/asppt/thread/506521d9-8a33-492e-ad2d-eb960c6f1bf1


    Consultoria .NET

    ANALISTA DESENVOLVEDOR
    Se esta sugestão for útil, por favor, classifique-a como útil.
    Se ela lhe ajudar a resolver o problema, por favor, marque-a como resposta.
    Blog .Net Descomplicado

    segunda-feira, 5 de março de 2012 13:44
  • OLÁ AMIGO BOM DIA,

    SOU PROGRAMADOR C#, MAS ACHO QUE NO ASP CLASSICO EXISTE TBM O LCID=1036, QUE SERVE EXATAMENTE PARA ESSE PROBLEMA QUE VC ESTÁ TENDO.

    ELE DEIXA OS VALORES, DATAS, ACENTUAÇÃO DE ACORDO COM A SUA LOCALIDADE.

    TENTA COLOCAR ISSO NO SEU CODIGO E VÊ SE DA CERTO.


    CASO A RESPOSTA TENHA AJUDADO FAVOR MARCAR COMO RESPONDIDA.

    segunda-feira, 5 de março de 2012 13:45
  • isto não teria que funcionar?

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

    segunda-feira, 5 de março de 2012 13:47
  • Olá tenta isso..

    Coloque na parte servidor, esta declaração, Response.CharSet = "ISO-8859-1". No cabeçalho do site coloquei a meta tag <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />, e ao cadastrar qualquer coisa dei um replace nas strings desta forma abaixo.

    Function HTMLEspeciais(sString)
     If (sString <> "") Then
      sString = Replace(sString, "á", "&aacute;")
      sString = Replace(sString, "â", "&acirc;")
      sString = Replace(sString, "à", "&agrave;")
      sString = Replace(sString, "ã", "&atilde;")

      sString = Replace(sString, "ç", "&ccedil;")

      sString = Replace(sString, "é", "&eacute;")
      sString = Replace(sString, "ê", "&ecirc;")

      sString = Replace(sString, "í", "&iacute;")

      sString = Replace(sString, "ó", "&oacute;")
      sString = Replace(sString, "ô", "&ocirc;")
      sString = Replace(sString, "õ", "&otilde;")

      sString = Replace(sString, "ú", "&uacute;")
      sString = Replace(sString, "ü", "&uuml;")

      sString = Replace(sString, "Á", "&Aacute;")
      sString = Replace(sString, "Â", "&Acirc;")
      sString = Replace(sString, "À", "&Agrave;")
      sString = Replace(sString, "Ã", "&Atilde;")

      sString = Replace(sString, "Ç", "&Ccedil;")

      sString = Replace(sString, "É", "&Eacute;")
      sString = Replace(sString, "Ê", "&Ecirc;")

      sString = Replace(sString, "Í", "&Iacute;")

      sString = Replace(sString, "Ó", "&Oacute;")
      sString = Replace(sString, "Ô", "&Ocirc;")
      sString = Replace(sString, "Õ", "&Otilde;")

      sString = Replace(sString, "Ú", "&Uacute;")
      sString = Replace(sString, "Ü", "&Uuml;")

      sString = Replace(sString, """", "&quot;") '"
      sString = Replace(sString, "<", "&lt;") '<
      sString = Replace(sString, ">", "&gt;") '>
     End If

     HTMLEspeciais = sString
    End Function


    CASO A RESPOSTA TENHA AJUDADO FAVOR MARCAR COMO RESPONDIDA.

    segunda-feira, 5 de março de 2012 14:28
  • Olá tenta isso..

    Coloque na parte servidor, esta declaração, Response.CharSet = "ISO-8859-1". No cabeçalho do site coloquei a meta tag <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />, e ao cadastrar qualquer coisa dei um replace nas strings desta forma abaixo.

    Function HTMLEspeciais(sString)
     If (sString <> "") Then
      sString = Replace(sString, "á", "&aacute;")
      sString = Replace(sString, "â", "&acirc;")
      sString = Replace(sString, "à", "&agrave;")
      sString = Replace(sString, "ã", "&atilde;")

      sString = Replace(sString, "ç", "&ccedil;")

      sString = Replace(sString, "é", "&eacute;")
      sString = Replace(sString, "ê", "&ecirc;")

      sString = Replace(sString, "í", "&iacute;")

      sString = Replace(sString, "ó", "&oacute;")
      sString = Replace(sString, "ô", "&ocirc;")
      sString = Replace(sString, "õ", "&otilde;")

      sString = Replace(sString, "ú", "&uacute;")
      sString = Replace(sString, "ü", "&uuml;")

      sString = Replace(sString, "Á", "&Aacute;")
      sString = Replace(sString, "Â", "&Acirc;")
      sString = Replace(sString, "À", "&Agrave;")
      sString = Replace(sString, "Ã", "&Atilde;")

      sString = Replace(sString, "Ç", "&Ccedil;")

      sString = Replace(sString, "É", "&Eacute;")
      sString = Replace(sString, "Ê", "&Ecirc;")

      sString = Replace(sString, "Í", "&Iacute;")

      sString = Replace(sString, "Ó", "&Oacute;")
      sString = Replace(sString, "Ô", "&Ocirc;")
      sString = Replace(sString, "Õ", "&Otilde;")

      sString = Replace(sString, "Ú", "&Uacute;")
      sString = Replace(sString, "Ü", "&Uuml;")

      sString = Replace(sString, """", "&quot;") '"
      sString = Replace(sString, "<", "&lt;") '<
      sString = Replace(sString, ">", "&gt;") '>
     End If

     HTMLEspeciais = sString
    End Function


    CASO A RESPOSTA TENHA AJUDADO FAVOR MARCAR COMO RESPONDIDA.

    só para completar

    Tenta colocar no inicio do código ASP:
    Response.Charset="ISO-8859-1"
    ou
    Response.Charset="UTF-8"

    ou ainda, na primeira linha das páginas ASP
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


    CASO A RESPOSTA TENHA AJUDADO FAVOR MARCAR COMO RESPONDIDA.

    • Sugerido como Resposta Renan Buzzi segunda-feira, 5 de março de 2012 18:43
    segunda-feira, 5 de março de 2012 14:29