Jump to content
Fórum Script Brasil

raphpac

Membros
  • Content Count

    24
  • Joined

  • Last visited

Community Reputation

0 Neutro

About raphpac

Perfil

  • Gender
    Male
  • Location
    RJ
  1. Muito obrigado Denis, Funcionou da seguinte forma SELECT cod_pag, SUM(IF(tipo='e', valor, 0)) somaentrada, SUM(IF(tipo='s', valor, 0)) somasaida, SUM(IF(tipo='e', valor, 0)) - SUM(IF(tipo='s', valor, 0)) totalcaixa FROM tabela GROUP BY cod_pag
  2. Boa tarde, estou em dúvida em montar a seguinte query. Mysql: ---tabela---- cod_pag | valor | tipo 01 | 10 | e 01 | 20 | e 01 | 5 | s 04 | 50 | e 01 | 10 | s Gostaria de somar os valores de todos os campos da coluna cod_pag (group by cod_pag) e com tipo='e' e todos os valor com tipo='s' e dps subtrair as somas para pegar a diferença. Tipo assim: select *,(select sum(valor) where tipo='e') as somaentrada,(select sum(valor) where tipo='s') as somasaida, somaentrada -
  3. fiz de outra forma e funcionou :)
  4. Eu testei assim e funcionou ! nome = "Funciona" strBody="Prezado(A)<p>"&nome&"</p>" call mandaremail(rememail,destemail,assunto,strBody) So que o texto que o strBody recebe eu preciso q venha do banco de dados. regs.Fields("campo") = pega o texto que esta no bd, {{nome}} então fiz assim: nome = "Funciona" strBody=replace(regs.Fields("campo"),"{{",chr(34)&"&") strBody=replace(strBody,"}}","&"chr(34)) se eu mando response.write ele imprime "&nome&" na tela, porque ele não substituiii nome por Funciona :wacko:
  5. sim eu sei.. quanto a isso não tenho problema.. Ate já coloquei a variavel recebendo um valor estatico para facilitar o exemplo e os testes nome = "Funciona" O email chega, mas o problema que ele não substitui a variavel pelo valor dela.. Chega como se fosse uma string
  6. 1)HTML 2) "&nome&" , sendo que era para chegar no email assim " funciona " , já que a variavel nome="funciona" Se eu fizesse da seguinte forma funciona, mas eu preciso do texto vindo do bd nome = "Funciona" strBody="Prezado(A)<p>"&nome&"</p>" call mandaremail(rememail,destemail,assunto,strBody) consegui explicar agora ?
  7. Boa noite, Estou com o seguinte probleminha Eu utilizei o Fckeditor para gravar um texto de email no MySql No MySql, o conteúdo do campo(text) ficou assim: Prezado(A)<p>{{nome}}</p> Na página de enviar o email eu faço o seguinte: nome = "Funciona" strBody=replace(regs.Fields("campo"),"{{",chr(34)&"&") strBody=replace(strBody,"}}","&"chr(34)) call mandaremail(rememail,destemail,assunto,strBody) Na sub o body esta como HTML (cdoMessage.HTMLBody = strBody) O email chega assim : Prezado(a) "&nome&" Mesmo eu colocando"&nome&" manualmente no bd
  8. Não consegui aplicar o while, Mas consegui contornar da seguinte forma: Dim campos(10) campos(0)=request.form("selectcampo1") campos(1)=request.form("selectcomparacao1") campos(2)=request.form("selecttextocomp1") campos(3)=request.form("selectoperador1") campos(4)=request.form("selectcampo2") campos(5)=request.form("selectcomparacao2") campos(6)=request.form("selecttextocomp2") campos(7)=request.form("selectoperador2") campos(8)=request.form("selectcampo3") campos(9)=request.form("selectcomparacao3") campos(10)=request.form("selecttextocomp3") For each item in campos if item <&g
  9. Boa dia, Estou desenvolvendo um sistema, nele precisei fazer um codigo para montar um select(sql) pegando os dados selecionados pelo usuário. Sendo que não esta me retornado na ordem desejada. Esse codigo deverá ter mais repetições, abaixo so tem 3 alguém poderia me dar uma luz ? :wacko: <% For each registro in request.form If InStr(1,registro,"select") <> 0 and request.form(registro) <> "null" and request.form(registro) <> "" then If InStr(6,registro,"campo") <> 0 then campo = request.Form(registro)&" " end if
  10. hmm, qual seria o comando em asp para dar o refresh sem tempo?
  11. Eu fiz uma agenda para eventos com lista vip. Cada codigo da "agenda" esta ligado a uma tabela "lista Vip". Quando eu faço essa consulta " rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") " ele mostra todos os nomes da "listavip" ligados ao registro da agenda que escolhi. No painel de Administração eu coloquei para poder excluir os nomes da lista de 1 em 1. So que quando exclui um nome volta essa erro. Ele não esta mostrando a lista novamente com os nomes que sobarao. Obrigado pela ajuda.
  12. sim, mais a função desse script e deletar um nome da lista, apos ser deletado eu queria q ele exibisse a lista novamente. desculpe, mas no momento estou estudando asp por conta propria e ate o momento desconheço a solução para esse erro :(
  13. infelizmente o mesmo erro persiste :(
  14. Olá, Gostaria de entender por acontece da esse erro quando deleto um nome da lista. O nome é deletado perfeitamente, mas a página volta com erro. Erro: ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /extranet/elistavip2.asp, line 0 <!--#include file="conexao.inc.asp"--> <% lojadb.execute("delete from listavip where Código like '"&request.QueryString("X")&"'") Function FormataNome(ByVal Nome) Dim arrNome Dim Retorno Dim Cont Dim objER Dim Excecoes S
  15. O codigo em Cdonts esta funcionando Não estou mais utilizando o SMTPsvg.Mailer Seguem abaixo os codigos SMTPsvg.Mailer "Erro 503 5.5.1 Incorrect command sequence" dim email , nome email = request.Form("e-mail") nome = request.Form("nome") 'response.write "email = " & email & "<br>nome = " & nome & "<br>" 'response.end 'fim debug Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nome Mailer.FromAddress= email Mailer.RemoteHost = "localhost" ' já foi testando Smtps mails Mailer.AddRecipient " ", "[email protected]
×
×
  • Create New...