raphpac

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

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 - somasaida as totalcaixa from tabela group by cod_pag Agradeço a que puder ajudar, abs, Raphael

fiz de outra forma e funcionou :)

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:

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

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 ?

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.. Alguma sugestação ? :rolleyes: Obrigado

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 <> "" and item <> "null" then sql = sql&" "&item&" " end if Next response.Write("Select * from cadastros where "&sql&" ") Muito obrigado

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 If InStr(6,registro,"comparacao") <> 0 then comparacao = request.Form(registro)&" " end if If InStr(6,registro,"textocomp") <> 0 then textocomp = request.Form(registro)&" " end if If InStr(6,registro,"operador") <> 0 then operador = request.Form(registro)&" " end if end if sql = campo&comparacao&textocomp&operador ' IMPRIME o ultimo registro de campo & comparacao & textocomp & operador 'sql = sql&campo&comparacao&textocomp&operador 'IMPRIME TUDO ERRADO, DESORDENADO E COM VARIAS REPETIÇÕES DO MESMO CAMPO next response.Write("Select * from cadastros where "&sql&" ") %> <select name="selectcampo1" id="selectcampo1"> <option value="null">Nenhum</option> <option value="nome">Nome</option> <option value="vinculo">Vinculo</option> <option value="endereco">Endereço</option> <option value="bairro">Bairro</option> <option value="cidade">Cidade</option> <option value="estado">Estado</option> <option value="cep">CEP</option> <option value="tel1">Telefone</option> <option value="tel2">Telefone2</option> <option value="cel">Celular</option> <option value="fax">FAX</option> <option value="obs1">Obs1</option> <option value="obs2">Obs2</option> <option value="razao">Razão Social</option> <option value="contato">Contato</option> <option value="site">Site</option> <option value="email">Email</option> <option value="email2">Email2</option> <option value="datanasc">Data de Nasc</option> <option value="cnpj">CNPJ</option> <option value="ie">IE</option> <option value="cpf">CPF</option> </select> <select name="selectcomparacao1" id="selectcomparacao1"> <option value="null" selected="selected"></option> <option value="=">Igual</option> <option value="<>">Diferente</option> <option value=">">Maior que</option> <option value="<">Menor que</option> <option value=">=">Maior que ou Igual</option> <option value="<=">Menor que ou Igual</option> </select> <input type="text" name="selecttextocomp1" id="selecttextocomp1" /> <select name="selectoperador1" id="selectoperador1"> <option value="null"></option> <option value="and">AND</option> <option value="or">OR</option> <option value="not">NOT</option> </select> <select name="selectcampo2" id="selectcampo2"> <option value="null">Nenhum</option> <option value="nome">Nome</option> <option value="vinculo">Vinculo</option> <option value="endereco">Endereço</option> <option value="bairro">Bairro</option> <option value="cidade">Cidade</option> <option value="estado">Estado</option> <option value="cep">CEP</option> <option value="tel1">Telefone</option> <option value="tel2">Telefone2</option> <option value="cel">Celular</option> <option value="fax">FAX</option> <option value="obs1">Obs1</option> <option value="obs2">Obs2</option> <option value="razao">Razão Social</option> <option value="contato">Contato</option> <option value="site">Site</option> <option value="email">Email</option> <option value="email2">Email2</option> <option value="datanasc">Data de Nasc</option> <option value="cnpj">CNPJ</option> <option value="ie">IE</option> <option value="cpf">CPF</option> </select> <select name="selectcomparacao2" id="selectcomparacao2"> <option value="null" selected="selected"></option> <option value="=">Igual</option> <option value="<>">Diferente</option> <option value=">">Maior que</option> <option value="<">Menor que</option> <option value=">=">Maior que ou Igual</option> <option value="<=">Menor que ou Igual</option> </select> <input type="text" name="selecttextocomp2" id="selecttextocomp2" /> <select name="selectoperador2" id="selectoperador2"> <option value="null"></option> <option value="and">AND</option> <option value="or">OR</option> <option value="not">NOT</option> </select> <select name="selectcampo3" id="selectcampo3"> <option value="null">Nenhum</option> <option value="nome">Nome</option> <option value="vinculo">Vinculo</option> <option value="endereco">Endereço</option> <option value="bairro">Bairro</option> <option value="cidade">Cidade</option> <option value="estado">Estado</option> <option value="cep">CEP</option> <option value="tel1">Telefone</option> <option value="tel2">Telefone2</option> <option value="cel">Celular</option> <option value="fax">FAX</option> <option value="obs1">Obs1</option> <option value="obs2">Obs2</option> <option value="razao">Razão Social</option> <option value="contato">Contato</option> <option value="site">Site</option> <option value="email">Email</option> <option value="email2">Email2</option> <option value="datanasc">Data de Nasc</option> <option value="cnpj">CNPJ</option> <option value="ie">IE</option> <option value="cpf">CPF</option> </select> <select name="selectcomparacao3" id="selectcomparacao3"> <option value="null" selected="selected"></option> <option value="=">Igual</option> <option value="<>">Diferente</option> <option value=">">Maior que</option> <option value="<">Menor que</option> <option value=">=">Maior que ou Igual</option> <option value="<=">Menor que ou Igual</option> </select> <input type="text" name="selecttextocomp3" id="selecttextocomp3" /> Obrigado Raphael

hmm, qual seria o comando em asp para dar o refresh sem tempo?

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.

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 :(

infelizmente o mesmo erro persiste :(

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 Set objER = New RegExp objER.IgnoreCase= True objER.Global = True Excecoes = "^(da|das|de|do|dos|e)$" objER.Pattern = Excecoes Nome = Lcase(Replace(Nome, " ", " ")) arrNome = Split(Nome, " ") Retorno = "" For Cont = 0 To Ubound(arrNome) arrNome(Cont) = Trim(arrNome(Cont)) If Not objER.Test(arrNome(Cont)) Then If Not arrNome(Cont) = "" Then arrNome(Cont) = Ucase(Left(arrNome(Cont), 1)) & Right(arrNome(Cont), Len(arrNome(Cont))-1) End If End If Retorno = Retorno & " " & arrNome(Cont) Next Set objER = Nothing FormataNome = Retorno End Function Function FormataData(Data) If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) End Function %> <link href="css/estiloadm.css" rel="stylesheet" type="text/css" /> <div id="conteudo"> <div class="titulo_pag">Excluir nomes</div> <% Set dados = Lojadb.execute("Select * from agenda Where codigo like '"&request.QueryString("lid")&"'") %> <div id="dados"> <div><span class="negrito">Local:</span> <%=dados("local2")%></div> <div><span class="negrito">Evento: </span><%=dados("evento")%></div> <div><span class="negrito">Data:</span> <%=FormataData(dados("data"))%></div> </div> <% Set rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") %> <table width="400" border="0" align="center" class="texto"> <% while not rs.EOF If cont=0 Then %> <tr> <% End If%> <td> <% Response.Write FormataNome(rs("nomevip"))%> <div> <a href="?id=elistavip2&X=<%=rs("Código")%>">Excluir</a> </div> <% Response.Write "</td>" cont=cont+1 If cont=2 Then ' Definimos a Quantidade de colunas Response.Write "</tr>" cont=0 End If rs.MoveNext Wend rs.Close set rs = Nothing %> </table> </div> Agradeço qualquer ajuda

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 " ", "xxx@xx.com.br" 'dados substituidos por xx 'Mailer.ContentType = "text/html" ' formatação html Mailer.Subject = "Cadastro através do site" Mailer.BodyText = "vamos funcionar " 'string_txt If Mailer.SendMail Then Response.Redirect "http://www.xxx.com.br" 'dados substituidos por xx Else Response.Write "Erro " & Mailer.Response End If Set Mailer = nothing end if Cdo.nts Funcionando, inseri os dados no BD e manda por email . Dim var_nome, var_mail, var_to, EnviarMail var_nome = Request.form("nome") var_mail = Request.form("emailp") var_to = "xx@nxx.com.br" sql = "INSERT INTO newsletter(emailp,nome)" & _ "VALUES('" & request.form("emailp") & "','" & request.form("nome") & "')" lojaDB.execute(sql) Set EnviarMail = Server.CreateObject("CDONTS.NewMail") EnviarMail.To = var_to EnviarMail.From = var_mail EnviarMail.Subject = "Meu Site - Contatos" EnviarMail.Body = mensagem EnviarMail.Importance = 1 EnviarMail.BodyFormat = 0 EnviarMail.MailFormat = 0 If EnviarMail.Send Then 'Response.Write "Mensagem enviada com sucesso" Else 'Response.Write "Erro" '& EnviarMail.Response End If %> O meu problema já foi resolvido, pode fechar o tópico. Agradeço a atenção Em breve espero poder estar ajudando. Raphael