Gnomo

Falae, beleza? Então cara eu vi isso numa aplicação de e-mail marketing, tive pesquisando na internet e vi que o nome para isso é "Message Bounce", achei um script neste site http://www.webonweboff.com/tips/asp/email.aspx mas não conseguir fazer rodar, tentei montar o script conforme eles explicam la, mas fica dando erro toda hora, eu não sei muito de asp.net sou programador front-end e uso asp para o back-end, ainda estou aprendendo asp.net, fora isso achei só uns componentes pagos na internet. Valeu!

Fala galera, beleza? Seguinte, to qrendo fazer um script em asp.net c# que envie os e-mails, mas antes verificasse se o e-mail realmente existe no respectivo servidor. Exemplo: Se o script tentar enviar um e-mail para 123@gmail.com apresentaria uma falha. Fiz esse script usando o SmtpException para retornar a mensagem, mas pelo jeito teria que fazer mais alguma coisa pra fazer esta verificação. Não achei nada no google sobre o assunto na plataforma .NET { //The From address (Email ID) string str_from_address = "teste@teste.com.br"; //The Display Name string str_name = "Teste"; //The To address (Email ID) string str_to_address = "123@gmail.com"; MailMessage email = new MailMessage(); email.From = new MailAddress(str_from_address, str_name); email.To.Add(str_to_address); email.Subject = "Teste SMTP"; email.Body = "Teste SMTP Teste SMTP Teste SMTP Teste SMTP Teste SMTP"; email.IsBodyHtml = true; SmtpClient mail_client = new SmtpClient(); mail_client.Credentials = new NetworkCredential(str_from_address, "123456"); mail_client.Port = 25; mail_client.Host = "localhost"; try { mail_client.Send(email); lblMsg1.Text = "Enviado com sucesso!!"; } catch (SmtpException ex) { lblMsg1.Text = ex.StatusCode+" - "+ex.Message; } }

Fala galera! Seguinte, atualmente tenho um site hospedado na hostgator e a pouco tempo contratei um Certificado SSL que eles fornecem, da Comodo. Mas o firefox não está reconhecendo o certificado, somente o internet explorer e o chrome onde testei está funcionando normalmente. O pessoal do suporte disse que o firefox possui uma lista de certificados que é atualizada e que ainda o meu certificado não foi incluído nesta lista. Gostaria de saber se isso é verdadeiro, pois não achei nada na internet sobre isso. Desde já agradeço; GnomO!

Olá galera, Procurei em vários lugares uma função que filtrasse algumas tags html, de uma determinada string antes de gravar no bd, por exemplo: <% String1 = "<b>Texto 1</b>" String2 = "<script>alert('Texto 2')</script>" Response.Write String1 & " - " & String2 %> Saída: <b>Texto 1</b> Espero que tenham entendido minha dúvida. Desde já agradeço Fabrício Oliveira

Então será que tenho que utilizar aqueles caracteres para acento tipo &aacute; e etc..? Por que já tentei editar também o valor dos campos e não deu certo... Valeu!!

Falae galera!! Seguinte.. to com um problemão, já busquei em vários sites e não obtive resposta. Antes eu usava o charset da minha página como ISO-8859-1, mas lendo alguns posts sobre web standards vi que o melhor charset a ser usado é o UTF-8, então resolvi fazer meu novo site em UTF-8, os caracteres com acentos das páginas estão ok, o collation do BD em mysql também está como UTF-8, só que quando puxo algum dado do bd os caracteres com acentos não aparecem, já tentei de tudo, cheguei a uma solução de usar a função utf8_encode(), mais fica chato toda vez que precisar de uma informação do bd ter que usar utf8_encode(). alguém sabe alguma solução? Desde já agradeço. GnomO!

E aí galera... Fiz uma função aqui que acho que pode ajudar muita gente. É impressionante a quantidade de sites vulneráveis a SQL Injection que achamos por aí, e não é dificil de se fazer basta ler um tutorial que você encontra por ai (até mesmo no google) e você pode ter o controle do bd fácil fácil, como deletar registros inteiros de tabelas ou até mesmo inserir muitos registros e várias outras coisas se você tiver uma boa noção de SQL. Para mais informações acesse: http://www.casadoswebmasters.com.br/index....25&colid=25 Segue a função: Essa função eu peguei do http://blogasp.wordpress.com/ e adaptei. Function BlockSQLInjection(Texto) Texto = lcase(Texto) lixo = array ("select", "drop", ";", "--", "insert", "delete", "xp_", "=", " or ", "-shutdown", "update", " and ", "'", "&") for intI = 0 to uBound(lixo) 'Aqui o código faz a verificação se existe algum dos valores acima setados acima. If instr(1,Texto,lixo(intI),1)>0 Then 'Aqui o código grava no bd um registro do tipo de ataque sql injection que o cara tentou fazer, ex: delete, update, etc... E grava o ip dele. 'Você pode fazer qualquer ação aqui até redirecionamento para alguma página. A UOL a tempos atrás quando alguém tentava fazer um ataque 'por SQL Injection ela redirecionava o "hacker" para a página do fbi. conn.Execute("INSERT INTO Tabela (Tipo, IP) VALUES ('SQL Injection - "&lixo(intI)&"', '"&Request.ServerVariables("REMOTE_ADDR")&"')") End If Texto = replace(Texto, lixo(intI) , "") next BlockSQLInjection = Texto End Function Lembrando que, isso é só uma precaução, você não estará 100% livre de ataques por SQL injection, se o "hacker" for muito bom. Se alguém quiser acrescentar alguma coisa ou fazer críticas, fique a vontade.. Valeu!

fala galera! Seguinte tenho um sistema de cadastros que envia um e-mail para o usuario de confirmação. Só que o yahoo não esta recebendo as mensagens já testei com dois e-mails e nada.. alguém tem alguma solucao? desde já agradeço

Na verdade eu fiz uma funcão que imprime uma lista com currículos relacionados Function RelacionaCurriculos(Codigo) Set rstOriginal = Server.CreateObject("ADODB.RecordSet") Set rstRelaciona = Server.CreateObject("ADODB.RecordSet") ' Pega valores do currículo original rstOriginal.Open "SELECT Titulo, PosGraduacao, PosOutro, PosOutroTexto, Graduacao, NivelMedio, Tags FROM BE_Profissionais WHERE Codigo="& Codigo, conn If rstOriginal.EOF Then Exit Function Else TituloOriginal = rstOriginal("Titulo") If rstOriginal("PosOutro") = 1 Then PosOutro = rstOriginal("PosOutroTexto") PosOriginal = 0 Else PosOriginal = rstOriginal("PosGraduacao") PosOutro = 0 End If GraduacaoOriginal = rstOriginal("Graduacao") NivelMedioOriginal = rstOriginal("NivelMedio") TagsOriginal = rstOriginal("Tags") End If rstOriginal.Close() ' Tags If TagsOriginal <> "" Then Dim aryCampos(0) aryCampos(0) = "BE_Profissionais.Tags" TagsOriginal = Replace(TagsOriginal,",",chr(13)) aryBuscaResultado = SQLProcura(TagsOriginal, aryCampos) strSQLWhere = strSQLWhere & aryBuscaResultado(0) & " And " strOrdenaBusca = strOrdenaBusca & aryBuscaResultado(1) End If If TituloOriginal <> "" Then Dim aryCampos2(0) aryCampos2(0) = "BE_Profissionais.Titulo" aryBuscaResultado2 = SQLProcura(TituloOriginal, aryCampos2) strSQLWhere = strSQLWhere & aryBuscaResultado2(0) strOrdenaBusca = strOrdenaBusca & aryBuscaResultado2(1) End If ' Compara valores If PosOutro = 0 Then strSQLWhere = strSQLWhere & " And BE_Profissionais.PosOutroTexto = NULL " End If strSQLRelaciona = "SELECT BE_Profissionais.*, BE_Profissionais.Codigo AS CurriculoCod, Usuarios.Nome, BE_AvatarUsuarios.AvatarMinURL FROM Usuarios INNER JOIN BE_Profissionais ON Usuarios.Codigo = BE_Profissionais.Usuario INNER JOIN BE_AvatarUsuarios ON BE_Profissionais.Codigo = BE_AvatarUsuarios.Curriculo WHERE BE_Profissionais.Graduacao = "&GraduacaoOriginal&" Or BE_Profissionais.PosGraduacao = "&PosOriginal&" And BE_Profissionais.Codigo <> "&Codigo&" Or " & strSQLWhere ' Response.Write strSQLRelaciona rstRelaciona.PageSize = 6 rstRelaciona.CacheSize = 6 rstRelaciona.Open strSQLRelaciona, conn Response.Write(" <div class=""related"">") & vbNewLine Response.Write(" <h2>Currículos Relacionados</h2>") & vbNewLine While Not rstRelaciona.EOF Response.Write(" <div class=""line"">") & vbNewLine Cont = 0 While Not rstRelaciona.EOF And Cont < 2 Response.Write(" <div class=""pic"">") & vbNewLine Response.Write(" <div class=""ufoto""><a href="""&CAMINHO_RAIZ_BEMP&"/Curriculo.asp?cid="&rstRelaciona("Id")&"""><img src="""&rstRelaciona("AvatarMinURL")&""" alt="""&AbreviaNome(rstRelaciona("Nome"))&""" title="""&AbreviaNome(rstRelaciona("Nome"))&""" /></a></div>") & vbNewLine Response.Write(" <div class=""unome""><a href="""&CAMINHO_RAIZ_BEMP&"/Curriculo.asp?cid="&rstRelaciona("Id")&""">"&AbreviaNome(rstRelaciona("Nome"))&"</a></div>") & vbNewLine Response.Write(" </div>") & vbNewLine rstRelaciona.MoveNext() Cont = Cont + 1 Wend If Not rstRelaciona.BOF Then Response.Write(" </div>") & vbNewLine Wend If Cont > 0 And Cont < 2 Then Response.Write(" </div>") Cont = Cont + 1 End If Response.Write(" </div>") rstRelaciona.Close() End Function Isso funciona assim voce entra no curriculo do profissional e nele tem os currículos relacionados pelas tags, pela profissao entre outros... e nessa query strSQLRelaciona = "SELECT BE_Profissionais.*, BE_Profissionais.Codigo AS CurriculoCod, Usuarios.Nome, BE_AvatarUsuarios.AvatarMinURL FROM Usuarios INNER JOIN BE_Profissionais ON Usuarios.Codigo = BE_Profissionais.Usuario INNER JOIN BE_AvatarUsuarios ON BE_Profissionais.Codigo = BE_AvatarUsuarios.Curriculo WHERE BE_Profissionais.Graduacao = "&GraduacaoOriginal&" Or BE_Profissionais.PosGraduacao = "&PosOriginal&" And BE_Profissionais.Codigo <> "&Codigo&" Or " & strSQLWhere eu coloquei And BE_Profissionais.Codigo <> "&Codigo&" mais não funciona :\ e essa variável vem da função Function RelacionaCurriculos(Codigo) Obrigado...

Fala galera! Seguinte.. Tenho a tabela notícias com as colunas: ID | Texto | Data para ler as noticias uso uma QueryString tipo Noticias.asp?noticia=15 gostaria de saber como eu faço para na consulta sql imprimir todas as noticias exceto a noticia 15... já procurei no google já tentei WHERE ID <> request("noticia") mais não consigo nenhum resultado... Obrigado...

Isso é configuração do host, iis, apache ets... Voce pode dar permissoes de usuarios anonimos a uma determinada pasta e negar permissoes desses usuarios em outras pastas. Eu não sei como faz essas permissoes não... é so pedir ao host de hospedagem para fazer isso pra você Valeu!!

falae! tem uma chave sobrando ae.. é so tirar ela.. valeu!!!

falae Lenne!!! ve se isso te ajuda: Leia os comentários que estao explicando o script, pra você entender como funciona... <html> <head> <title>Teste</title> <script type="text/javascript"> window.onload = function() { var data = new Date(); var h = data.getHours(); var img = document.getElementById('imagem'); if(h>0 || h<18) { //Se a hora for maior que 0 ou menor que 18 mostra imagem dia claro img.src='claro.jpg; } else if(h>=18 || h<19) { //Se a hora for maior ou = a 18 ou menor que 18 mostra imagem dia escurecendo img.src='escurecendo.jpg'; } else if(h>=20 || h<23) { //Se a hora for maior ou = a 20 ou menor que 23 mostra imagem dia escuro img.src='escuro.jpg'; } } </script> </head> <body> <img border="0" src="" id="imagem" /> </body> </html> Valeu!!!

Você tem q setar um valor pra option selecione tenta assim: if (cmbTipo.value==""){ alert("Selecione o Tipo!") cmbTipo.focus() return false } <select name="cmbTipo" size="1" id="cmbTipo"> <option value="">SELECIONE</option> <option value="01">HONORÁRIOS</option> <option value="02">ALUGUEL</option> <option value="03">CLIENTES</option> <option value="04">FORNECEDORES</option> <option value="05">CONDOMINIO</option> <option value="06">LUZ</option> <option value="07">AGUA</option> <option value="08">TELEFONE</option> <option value="09">GAS</option> <option value="10">ESCOLAS</option> <option value="11">CHEQUES</option> <option value="12">SEGURO</option> <option value="13">SAUDE</option> <option value="14">OUTROS</option> <option value="15">PRÓ-LABORE</option> </select> valeu!!!

Já Resolvi!!

Mesma coisa.. :( acho que vou desisti de fazer isso! aeuaeaoihehoiaEioAe

Sugiro que você coloque esse campo como texto normal, e use uma mascara para adicionar as virgulas de acordo com o numero. Eu nunca usei campos com unidade monetaria aehoaheoihaoie... Valeu!!

Vou tentar explicar melhor... Tabela 1 Tabela 2 Cada página tem um tipo de permissão (intTipoPermissao). Esse código abaixo é para pegar os valores da coluna Permissao da Tabela 1, que estão entre virgulas, e o Split retira as virgulas criando um array (MeuArray). <% intTipoPermissao = 5 rstGeral.Open "SELECT * FROM AdminPermissoes WHERE Admin=" & lngAdminCodigo, conn If Not rstGeral.EOF Then lngPermissoes = rstGeral("Permissao") End If rstGeral.Close() If Len(lngPermissoes) > 0 Then MeuArray = Split(lngPermissoes, ",",-1,1) TotalPermissoes = Ubound(MeuArray) End If %> Eu quero verificar se o admin tem a permissão 5 (Alterar configs do sistema), e se o admin não tiver a permissao, que é o caso do admin 1, retorna uma mensagem de erro. Eu tentei fazer assim: For i = 0 to TotalPermissoes If MeuArray(TotalPermissoes-i) = intTipoPermissao Then Response.Write "Ok!" Response.End Else Response.Write "Sem acesso!" Response.End End If Next Só que ele não ta comparando um valor de uma variavel com um valor de um array! Desde já agradeço; GnomO!

falae bareta!! e se for assim: intTipoPermissao = 5 rstGeral.Open "SELECT * FROM AdminPermissoes WHERE Admin=" & lngAdminCodigo, conn If Not rstGeral.EOF Then lngPermissoes = rstGeral("Permissao") End If rstGeral.Close() If Len(lngPermissoes) > 0 Then MeuArray = Split(lngPermissoes, ",",-1,1) TotalPerm = Ubound(MeuArray) End If O valor de rstGeral("Permissao") já vem com virgulas. Ex: 1,2,3,4. Ai o Split() cria o array tirando as virgulas. intTipoPermissao é o tipo de permissao da página atual, dai o script vai no bd e ve quais as permissões o admin tem (ex: 1,2,3,4), e faz um array com o Split() retirando as virgulas.. MeuArray = New Array(3); MeuArray(0) = "2" MeuArray(1) = "1" MeuArray(2) = "3" MeuArray(3) = "4" E eu qria q se o admin não tivesse a permissao de numero 5 retornasse uma mensagem de erro. Desde já agradeço, GnomO!

Olá ADL, obrigado por ajudar, mas já tentei essa solucao.. retorna um erro pois não tem o valor 5 no array.. alguém sabe dizer se tem como verificar se existe o valor no array? por exemplo: MeuArray = New Array(3); MeuArray(0) = "2" MeuArray(1) = "1" MeuArray(2) = "3" MeuArray(3) = "4" Será que tem uma funcao que verifica se existe o valor 5 nos arrays? Desde já agradeço.

E ae galera!! Seguinte... Tenho duas tabelas: Tabela1 - AdminPermissoes Colunas: Codigo, Permissoes, Administrador Tabela2 - AdminPermissoesTipos Colunas: Codigo, Tipos Na coluna Permissoes da tabela AdminPermissoes os valores são armazenados da seguinte forma: 1,2,3,4 Fiz um array com split para remover as virgulas, veja: rstGeral.Open "SELECT * FROM AdminPermissoes WHERE Admin=" & lngAdminCodigo, conn If Not rstGeral.EOF Then lngPermissoes = rstGeral("Permissao") End If rstGeral.Close If Len(lngPermissoes) > 0 Then MeuArray = Split(lngPermissoes, ",",-1,1) TotalPerm = Ubound(MeuArray) End If Só que tipo, são 9 permissões no sistema, em cada página vai ter uma variavel lngPermCod mostrando qual o tipo de permissão da mesma, com isso ia fazer o seguinte o admin entra na pagina e a variavel lngPermCod é igual á 5 só que na coluna Permissoes da tabela AdminPermissoes os valores contidos são 1,2,3,4... não tem o 5, desde então ele não tem permissão de acesso ao conteúdo, eu queria que mostrar um alert em javascript dizendo: Você não tem acesso a este conteúdo. Já tentei usando várias formas e não obtive nenhum resultado. alguém tem uma dica? Desde já agradeço; GnomO

Olá galera... no PHP existe a função system() que executa um programa externo e mostra a saída... Gostaria de saber como eu faço isso em asp se existe algum componente ou função que faça isso. Desde já agradeço; GnomO!

Cara eu fiz assim aqui e funcionou: <html> <head> <script language="javascript"> function ponto(value, name, form){ if (value != "") { msg = ''; tamValue = value.length; if (value.indexOf('.')>-1) { msg = ('O valor digitado não está correto.\nVerifique se está no seguinte formato:\n\n=> 100,00 (para cem reais)\n=> 1000,00 (para mil reais)\n=> 10000,00 (para dez mil reais)\n\nObserve que este campo não aceita o caractere \'.\'.\n\n') } if (value.substring(tamValue-3, tamValue-2) != ',') { msg = ('O valor digitado não está correto.\nVerifique se está no seguinte formato:\n\n=> 100,00 (para cem reais)\n=> 1000,00 (para mil reais)\n=> 10000,00 (para dez mil reais)\n\nObserve que este campo não aceita o caractere \'.\'.\n\n') } if (msg != "") { alert(msg) document.form.name.value = ""; document.form.name.focus(); return false; } else { return true; } } } </script> </head> <body> <form name="form1"> <input type="text" name="teste1" id="teste1" onchange="ponto(this.value, teste1, form1);" /><br /> <input type="text" name="teste2" id="teste2" onchange="ponto(this.value, teste2, form1);" /><br /> </form> </body></html> veja se é isso que você esta querendo... vlw...

Porque fazer com checkbox? Eu particularmente nunca usei esse recurso do access, tente fazer assim: troque o tipo de dados da coluna envio para numero troque também o tipo de dados da coluna analise para numero no if faça isso: If rs ("envio") = 1 Then response.write "Enviando!" elseif rs ("analise") = 1 Then response.write "Analise!" else response.write "Pronto!" end if vai ficar quase a mesma coisa.. só que ao invés de sim vai ser 1 e não vai ser 0 assim que eu faço com meus scripts.. Bom é só uma ideia.. Vlw....

Acho que você esqueceu de colocar response.write se liga... <% If rs ("envio") = "sim" Then response.write "Enviando!" else if rs ("analise") = "sim" Then response.write "Analise!" else response.write "Pronto!" end if rs.moveNext loop %> Eu acho que é isso.. não entendi o que você esta qrendo realmente... espero ter ajudado.. vlw..