Rafael Spilki

Seu tópico falava do mesmo assunto... é exatamente o mesmo problema... você só mudou o banco de dados... Além do que seu tópico não foi apacado... foi mesclado ao antigo, como você pode ver em: http://scriptbrasil.com.br/forum/index.php?showtopic=129799 edit.: eu inclusive lhe enviei uma mp informando sobre isso! []'s Rafael Spilki

Marcus... Alguns links: http://forum.imasters.uol.com.br/index.php?showtopic=307560 http://forum.imasters.uol.com.br/index.php?showtopic=295519 você deve fazer uma pesquisa no google antes de postar aqui... a literatura a respeito disso é vasta na internet... Seu novo post foi mesclado ao antigo por eu entender tratar-se absolutamente do mesmo assunto e do mesmo problema. []'s Rafael Spilki

Bom... no caso acima como você está dando o replace nos acentos a palavra Olá deverá ser novamente escrita desta forma mesmo: "Olá"... mas muito estranho... cara... tenta assim: <% 'Envio de email Flash + Linguagens 'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com) 'Scripts web sem autoria de Weverton Naves 'Flash com autoria de Weverton Naves 'pegar variaveis nome=request.Form("formNome") email=request.Form("formEmail") assunto=request.Form("formAssunto") mensagem=request.Form("formMsg") 'suas informações aqui seunome="Digite seu Nome Aqui" seuemail="digite seu e-mail@dominio.com.br aqui" suasenha = "digite sua senha aqui" 'Texto="Olá, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: &mensagem 'texto = replace(texto, "á", Server.HTMLEncode("á")) 'texto = replace(texto, "é", Server.HTMLEncode("é")) 'texto = replace(texto, "ã", Server.HTMLEncode("ã")) 'texto = replace(texto, "í", Server.HTMLEncode("í")) 'texto = replace(texto, "ó", Server.HTMLEncode("ó")) 'texto = replace(texto, "õ", Server.HTMLEncode("õ")) 'texto = replace(texto, "ú", Server.HTMLEncode("ú")) 'texto = replace(texto, "Á", Server.HTMLEncode("Á")) 'texto = replace(texto, "Ã", Server.HTMLEncode("Ã")) 'texto = replace(texto, "É", Server.HTMLEncode("É")) 'texto = replace(texto, "Í", Server.HTMLEncode("Í")) 'texto = replace(texto, "Ó", Server.HTMLEncode("Ó")) 'texto = replace(texto, "Õ", Server.HTMLEncode("Õ")) 'texto = replace(texto, "Ú", Server.HTMLEncode("Ú")) 'texto = replace(texto, "ç", Server.HTMLEncode("ç")) 'texto = replace(texto, "Ç", Server.HTMLEncode("Ç")) Dim objCDOSYSMail Dim objCDOSYSCon 'CRIA A INSTÂNCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = seuemail 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = suasenha 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = nome&" <"&email&">" 'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = email 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = assunto 'CONTEÚDO DA MENSAGEM objCDOSYSMail.TextBody = "Olá... você recebeu uma mensagem acentuada em TXT!" 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody 'objCDOSYSMail.HtmlBody = Server.HTMLEncode(Texto) on error resume next 'ENVIA A MENSAGEM objCDOSYSMail.Send 'DESTRÓI OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing if err.number <> 0 then response.Write("retorno=Erro ao enviar.") else response.Write("retorno=Enviado com sucesso.") end if %> teste e depois diga o que aconteceu! []'s Rafael Spilki

Cara... não ta não... ta tudo na mesma linha véio! é que aqui não tem barra de rolagem horizontal... mas copiei e colei pro meu DW e continuou tudo na mesma linha... pode olhar aí! []'s Rafael Spilki

Bah cara... dureza mesmo! não entenda como má vontade... mas nosssssaaa... cara que código mais maluco... Essa data vem do banco e você quer poder alterar ela... é isso? cara... tente botar simplesmente um session.lcid=1046 no topo do seu código... mais precisamente assim: Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i session.lcid = 1046 Mas assim... só para que você entenda como o DW "estraga" o seu código veja como as variáveis acima poderiam ser declaradas de uma forma bem mais simples: Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd, MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, MM_recordId, MM_fieldsStr, MM_columnsStr, MM_fields, MM_columns, MM_typeArray, MM_formVal, MM_delim, MM_altVal, MM_emptyVal, MM_i de 28 linhas passamos para duas... isso falando só na parte de declarar as variáveis... nem vamos falar nos nomezinhos das queridas que vo te dizer... fica bem complicado de interpretar o code... mas enfim... taí a dica... Tomara que funcione... []'s Rafael Spilki

a idéia do Jonathan é a seguinte: <% 'Envio de email Flash + Linguagens 'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com) 'Scripts web sem autoria de Weverton Naves 'Flash com autoria de Weverton Naves 'pegar variaveis nome=request.Form("formNome") email=request.Form("formEmail") assunto=request.Form("formAssunto") mensagem=request.Form("formMsg") 'suas informações aqui seunome="coloque seu nome aqui" seuemail="coloque seu e-mail@dominio.com.br aqui" suasenha = "coloque sua senha aqui" Texto="Ol&aacute, você recebeu uma mensagem do site.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Assunto: "&Assunto&"<br> Mensagem: "&mensagem 'aqui voce começa a formatar o seu texto... texto = replace(texto, "á", Server.HTMLEncode("á")) texto = replace(texto, "é", Server.HTMLEncode("é")) 'repita isso com todos os acentos possíveis... não vou fazer aqui por motivos óbvios... tudo igual... só mudando os acentos e letras... por exemplo: ã, ê, ó, à... 'o objetivo aqui é substituir os acentos "normais" por acentos "codificados"... não tem muito como explicar diferente... não é bem isso mas é quase isso! Dim objCDOSYSMail Dim objCDOSYSCon 'CRIA A INSTÂNCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = seuemail 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = suasenha 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = nome&" <"&email&">" 'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = seunome&" <"&seuemail&">" 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = assunto 'CONTEÚDO DA MENSAGEM 'objCDOSYSMail.TextBody = "Teste do componente CDOSYS" 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody objCDOSYSMail.HtmlBody = Server.HTMLEncode(Texto) on error resume next 'ENVIA A MENSAGEM objCDOSYSMail.Send 'DESTRÓI OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing if err.number <> 0 then response.Write("retorno=Erro ao enviar.") else response.Write("retorno=Enviado com sucesso.") end if %> Enfim... taí... basta continuar agora! []'s Rafael Spilki

Alguém sabe como retirar a "quebra" de código e espaçamentos automáticos do DW? Tipo ao fazer uma tabela ao invés de deixar assim: <td>blablabla</td> ta ficando assim: <td>blablabla </td> De vez em quando ao incluir um select ele inclui tb com alguns espaços a esquerda... Eu queria que não incluisse espaçamento nenhum e tb não trocasse de linha... acho um saco isso! A horas procuro como fazer e não encontro! alquem sabe se isso é possível? Abração.

Poste seu código para darmos uma olhada... Pode ser várias coisas... normalmente data no formato errado ou invertida... []'s Rafael Spilki

Legal... sem stress que bom que conseguiu... qualquer coisa poste aqui! ;) []'s Rafael Spilki

A primeira forma pra resolver isso é não postar tópicos repetidos, ou seja, tratando do mesmo assunto! A segunda é separ a sua variavel data em dia, mês e ano e depois os unificar em uma string... invertendo o mes pelo dia... exemplo: data = date dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) novadata = (mes&"/"&dia&"/"&ano) []'s Rafael Spilki

O Jonathan sugeriu q você faça um arquvo novo em asp com aquele pequeno codigo somente, suba para seu servidor e o acesse... Terá algum resultado impresso em tela... e teremos como saber qual encodehtml deve usar visualizando o codigo fonte desta página... sacou?

Romero... como não funcionou com as session.lcid, até onde eu saiba você não terá grandes chances de resolver isso sem replace... o jeito é por a mão na massa mesmo! Mas enfim... ta aberto aí pra quem tiver outra idéia...

Invista nessa sugestão que lhe dei... a sintaxe do seu codigo... em uma forma geral precisa ser trabalhada! []'s Rafael Spilki

Bom... como teste eu colocaria esses acentos da forma html... Nunca vi isso ocorrendo... mas como aconteceu agora... essa pode ser uma solução... Por exemplo: ao invés de escrever olá... escreva: Ol&aacute; Agora fiquei curioso!

Marcelo... para colocar entre as tags code, basta clicar nesse simbolo que tem logo acima do lado do "smyle" e que parece uma "impressora" []'s Rafael Spilki

Sim... mas perai... você havia postado o seguinte: Cdate é função! Cdate é uma coisa completamente diferente de date... por isso lhe sugeri a mudança! Não podes colocar cdate na sua clausula de where! não tem como funcionar... depois de mudar de cdate para date o que aconteceu? o mesmo erro? e o resultado do debug ficou como? o que imprimiu em tela?

Uhmmm... bem que eu desconfiava... porque você esta usando cDate ali na sua query? você quer comparar com a data atual, é isso? se for use date? Cdate você poderá usar para formatar a sua data... trata-se de uma função... teste, debugue e veja o que ocorre, postando aqui os resultados...

Só debugando a query pra saber... eu acredito que o erro possa estar na clausula de where... datas invertidas ou coisa do tipo... faça assim: strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & cDate &"# order by idEmpresa,DatCompromisso" 'inicio debug response.write "strSql = " & strSql & "<BR>" response.end 'fim debug depois posta aqui o que imprimiu em tela... []'s Rafael Spilki

Pô... legal cara... pena que não consegui te ajudar mais... mas espero pelo menos ter dado uma luzinha que seja... faça umas experiências aí... conforme forem surgindo novos sintomas posta aqui que talves eu tenha uma luz de por onde ir tb... porque agora fiquei no escuro tb! abração

O código ta tranquilo... pelo menos olhando por cima! O server é próprio ou datacenter? Qual a mensagem de erro ou erro que acontece? Já checou a disponibilidade do componente junto ao servidor? []'s Rafael Spilki

Não tinha visto que era 2009! mas enfim... de que adianta migrar simplesmente... você tem mais conhecimento em SQL do que access??? Sim... sempre tem como fazer backup das informações! exportar / importar elas de um banco para outro é que nem sempre é possível, pois alguns dados podem vir corrompidos... e é impossível precisar quantos! pode ser alguns, todos ou nenhum! Mas enfim... esse problema pode ser resolvido sim... basta que você leia com muita calma todos os meus posts e comece a fazer vários testes até achar a combinação perfeita para formatar sua data... Se não está funcionando com session.lcid = 1046 você pode tentar com 1036... ou até mesmo forçar em 1036 e depois passar para 1046... você pode ainda dividir o date... usando datepart e separar dia, mês e ano... montando-os depois em uma string! Problemas com datas são normais... e é extremamente difícil descobrir como consertá-los... mas a solução é SEMPRE simples... e sempre passa pelas dicas que lhe dei! qualquer. coisa postaí!

Mas é exatamente isso que o seu select está mandando fazer não é? Todas os registros do bd com datas menores a data de hoje! Té certinho então!

Cara... vou te falar... a primeira coisa é que eu não sou adepto disso: http://forum.webly.com.br/index.php?showtopic=25126 Penso não existir uma regra específica para isso... mas pessoalmente acho muito desinteressante! Acho que você tem que escolher um caminho... veja... o fórum, pelo menos este fórum, tem a finalidade de ensinar... e não entregar pronto! Isso que você está tentando fazer eu leio como uma forma de conseguir uma resposto rápida... mas isso não é assim não... tanto não é que em nenhum fórum você conseguiu a resposta da sua dificuldade ainda! você mesmo viu... você postou aqui com uma dúvida bem ampla e poucos minutos depois postou novamente informando que parte do problema já havia sido solucionada... cara... programar é isso mesmo... é difícil e trabalhoso... muitas vezes fico semanas em cima de um problema... mas você tem que estar certo de testar absolutamente todas as possibilidades antes de postar aqui sua dúvida... Da mesma forma você deve inclusive usar o google e a pesquisa do fórum como ferramenta para tentar solucionar sua questão... Essa dúvida que você está agora tem fartamente espalhada pela web! Dá uma pesquisada que eu tenho certeza que você irá achar algo! []'s Rafael Spilki

Por isso que eu havia desabilitado todos eles... terás que ir testando um por um até achar o erro... o importante é acima de tudo conseguir imprimir em tela pelo menos o resultado de uma consulta mais abrangente... depois comece a limitar essa consulta pouco a pouco... identificando pequenos erros... assim ficará mais fácil! Tente desta forma como lhe sugeri... conforme forem surgindo dúvidas poste aqui! É trabalhoso... mas daqui não vejo outra forma melhor para lhe ajudar! []'s Rafael Spilki

Não não... nada a ver... de fato cada banco tem suas peculiaridades... mas pra tudo tem-se um jeito... A primeira coisa a fazer é setar o formato de data regional... ou seja, coloque no início de seu código: session.lcid = 1046 Abaixo disso resgate as datas e as formate... eu to vendo aqui que sua vriavel data é exatamente igual a date... portanto eu faria simplesmente: VarData = date 'ao invés disso: 'VarData = (month(date) & "/" & day(date) & "/" & year(date)) teste e veja o que ocorre... []'s Rafael Spilki