Jump to content

Tosta

Members
  • Content count

    10
  • Joined

  • Last visited

Community Reputation

0 Comum

About Tosta

  1. Tosta

    Notificação

    Olá a todos! Tenho uma aplicação de envio de mensagens internas em ASP Clássico, funciona tudo bem, gravando a mensagem no banco de dados e mostrando ao outro usuário. Quero acrescentar aquele "sino" de notificação, como o daqui existente no forum. A ideia é o usuário A mandar uma mensagem para o usuário B, sendo que ao usuário B logar ou estar logado no sistema o ícone do sino mostre que ele tem 1 ou mais mensagens novas. Alguém pode me dar uma ideia de como posso fazer em ASP ou outro meio? anexo imagem de como quero.
  2. Tosta

    Envio de Email

    Consegui de outra forma: <%@ LANGUAGE="VBSCRIPT" %> <% dim html, nome, assunto, telefone, mensagem nome = Trim(Request.Form("nome")) email = Trim(Request.Form("email")) assunto = Trim(Request.Form("assunto")) telefone = Trim(Request.Form("telefone")) mensagem = Trim(Request.Form("mensagem")) response.Write(nome) set mail = server.createobject("cdonts.newmail") mail.from = "Pedido de orçamento do Divulga Sete <email@meuemail.com.br>" 'mail.From = Request.Form("email") Mail.To = " "&email&" " 'Mail.Bcc = "email@email.com.br" Mail.Subject = "Formulário de Contato On-line" html = "Formulário de contato via Web" + "<br />" + "<br />" html = html + "<strong>Nome: </strong>" + nome + "<br />" html = html + "<strong>Telefone: </strong>" + Request.Form("telefone") + "<br />" html = html + "<strong>E-mail: </strong>" + Request.Form("email") + "<br />" html = html + "<strong>Comentario: </strong>" + Request.Form("mensagem") + "<br />" response.Write(nome) Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.Body = html Mail.Send Set Mail = Nothing response.redirect "obrigado.html" %> <body> </body> </html> O único problema é que quando tento o envio para o Yahoo ele não recebe, outros emails todos receberam normal. O que posso fazer para o yahoo receber?
  3. Tosta

    Envio de Email

    Tentei ver este seu código enviado, porém não consegui vincular o formulário que desejo com este envio. No formulário quero colocar Nome, Email, Telefone e Mensagem Dai ele vai mandar o email para a empresa com estas informações. Mas não consegui fazer.
  4. Tosta

    Envio de Email

    Boa tarde, Tenho um formulário no meu site para enviar um orçamento para um cliente. O meu servidor de domínio só me deixa fazer o envio para uma conta minha, o que preciso é fazer o envio para um cliente, send que tenho o email dele armazenado em um BD, então quero pegar este email e ao redigir o orçamento ele seja encaminhado para o cliente específico. Quero entrar na página do cliente, preencher alguns dados e ao enviar o email que ele seje direcionado ao email deste cliente. Como posso fazer?
  5. Tosta

    select distinct

    Gostaria de saber se e possível fazer o seguinte: Tenho a seguinte tabela abaixo e faço um SELECT DISTINCT para apresentar a empresa que foi pesquisada ou por título, palavra chave e/ou descrição, porém se houver dois registros com categorias diferentes ele apresenta os dois e na verdade preciso que ele mostre apenas o da categoria 1, eliminando a 6 da listagem. Exemplo Tabela: Title | Palavrachave | Description | Categoria | ______________________________________________________ | Empresa 1 | Idiomas | escola de idiomas | 1 | Empresa 2 | informatica | tecnologia | 1 | Empresa 3 | Idiomas | escola de idiomas | 6 | Empresa 4 | teste | teste | 1 | ______________________________________________________ Meu Select: SELECT DISTINCT tblWebsites.* FROM tblWebsites WHERE (Title LIKE '%idiomas%') OR (Palavrachave LIKE '%idiomas%') OR (Description LIKE '%idiomas%') ORDER By Rating DESC, No_of_ratings DESC, Hits DESC;
  6. Tosta

    Verificar último registro

    Fiz uma outra forma aqui, grato.
  7. Estou com um projeto que tem vários códigos em uma tabela. Ex.: ID | COD 1 | 1000 2 | 1000 3 | 1000 4 | 1000 5 | 1000 Fiz um método para gravar o COD e ir ao próximo registro em branco e se o próximo estiver realmente em branco irá aparecer um botão CADASTRAR, mas caso já tenha todos sido preenchidos quero que apareça um botão ESGOTADO. Consegui chegar ao último registro, mas não consigo comparar se ele é o último registro para aparecer o botão esgotado. Meu select para listagem dos dados é: strSQL1 = "SELECT TOP 1 * FROM tblCUPONS WHERE IDSITES = "& intSiteIDNo &" ORDER BY COD DESC" Alguém pode me dar uma luz para este caso?
  8. Tosta

    Comparação data

    Galera me ajudem... Tenho uma data armazenada no DB Access (lá ele está com formato de data/hora, mas para gravar só a data), quero pegar esta data e comparar se é ou não igual a data atual. Fiz assim: rscupom("DATA") = ""&date()&"" Porém não dá certo, mas se eu fizer assim (comparando a data como texto) ele aceita rscupom("DATA") = "21/01/2016" Mas preciso comparar sem ser texto, como posso fazer?
  9. Tosta

    Listar 1 registro

    Galera consegui resolver aqui. Se servir para alguém a solução foi fazer o seguinte no select: strSQL = "SELECT TOP 1 * From tblCUPONSCONSULTA WHERE USER_ID IS NULL and IDSITES = " & intSiteIDNo & " " Acrescentei USER_ID IS NULL e resolveu
  10. Tosta

    Listar 1 registro

    Olá a todos, Bem eu tenho uma tabela com cód. da empresa, códigos de cupom e cód. do usuário. Ex: Empresa | Cupom | Usuário 1000 | AAA | Pedro 1000 | BBB | 1234 | XXX | Paulo 1000 | CCC | Quero listar o 1º cód. de cupom que não tem um usuário informado e se for acrescentado 1 usuário nele ele passa a listar o próximo cód. que estiver vazio até acabar. Já consegui fazer listar os registros vazios porém todos e não consigo apenas o 1º. Está aparecendo BBB CCC Fiz da seguinte forma: Set rsGetsites = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * From tblCUPONSCONSULTA WHERE IDSITES = " & intSiteIDNo & ";" rsGetsites.CursorType = 2 rsGetsites.LockType = 3 rsGetsites.Open strSQL, strCon set rsGetsites = adoCon.Execute(strSQL) <% Do while not rsGetsites.eof If isNull(rsGetsites("USER_ID")) then Response.Write vbCrLf & "<b>" & rsGetsites("COD") &"</b><BR>" End IF rsGetsites.MoveNext loop %> Ele lista todos os cupons quando usuário está vazio, porém como disse preciso que liste apenas o 1º cupom e se este for utilizado ai passa para o segundo cupom e assim por diante. Deveria sair BBB apenas.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.