Ir para conteúdo
Fórum Script Brasil

baladaclick

Membros
  • Total de itens

    173
  • Registro em

  • Última visita

Tudo que baladaclick postou

  1. estranho não é?. porque o codigo ta funcionando direitinho na hora que eu coloco o meu email no "sDestinatario", ele envia diretinho, mas quando coloco a variavel não funciona. este é o form <form ACTION="<%=MM_editAction%>" METHOD="POST" id="form1" name="form1"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="18%"><div align="right" class="style4">Nome</div></td> <td width="1%">&nbsp;</td> <td height="35" colspan="2"><label> <input name="nome_cadastro" type="text" class= "box" id="nome_cadastro" size="25"/> </label></td> </tr> <tr> <td><div align="right" class="style4">Cidade/UF</div></td> <td>&nbsp;</td> <td height="35" colspan="2"><input name="cidade_cadastro" type="text" class= "box" id="cidade_cadastro" size="25"/></td> </tr> <tr> <td><div align="right" class="style4">E-mail</div></td> <td>&nbsp;</td> <td height="35" colspan="2"><input name="email_cadastro" type="text" class= "box" id="email_cadastro" size="25"/></td> </tr> <tr> <td><div align="right" class="style4">Telefone</div></td> <td>&nbsp;</td> <td height="35" colspan="2"><input name="telefone_cadastro" type="text" class= "box" id="telefone_cadastro" size="25" onkeypress="return txtBoxFormat(document.form1, 'telefone_cadastro', '(99) 9999-9999', event);" maxlength="14"/></td> </tr> <tr> <td><div align="right" class="style4">CPF</div></td> <td>&nbsp;</td> <td height="35" colspan="2"><span id="sprytextfield1"> <input name="cpf_cadastro" type="text" class= "box" id="cpf_cadastro" size="25" onkeypress="return txtBoxFormat(document.form1, 'cpf_cadastro', '999.999.999-99', event);" maxlength="14"/> <span class="textfieldRequiredMsg style4">digite o seu CPF</span></span></td> </tr> <tr> <td><div align="right" class="style4">RG</div></td> <td>&nbsp;</td> <td height="35" colspan="2"><input name="rg_cadastro" type="text" class= "box" id="rg_cadastro" size="25" onkeypress="return txtBoxFormat(document.form1, 'rg_cadastro', '99.999.999-2', event);" maxlength="12" /></td> </tr> <tr> <td><div align="right" class="style4">Senha</div></td> <td>&nbsp;</td> <td height="35" colspan="2"><input name="senha_cadastro" type="password" class= "box" id="senha_cadastro"/></td> </tr> <tr> <td height="67"><label></label></td> <td height="67">&nbsp;</td> <td height="67" colspan="2"><span id="sprycheckbox1"> <label onclick="MM_openBrWindow('regulamento.asp','Regulamento','scrollbars=yes,width=600,height=500')"> <span class="style4"> <input name="regulamento" type="checkbox" id="regulamento" value="concordo" /> Ao clicar na caixa ao lado, você aceita o <a href="#" onclick="return false">Regulamentos do programa</a></span></label> <br /> <span class="checkboxRequiredMsg style6">Necessário concordar com o regulamento.</span></span></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td width="50%" height="35"><div align="center"> <label> <input type="submit" name="bt_enviar" id="bt_enviar" value="Enviar cadastro" class="botao"/> </label> </div></td> <td width="31%"><input type="hidden" name="MM_insert" value="form1" /></td> </tr> </table> </form> este é o codigo que grava no banco de dados o cadastro <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' *** Redirect if username exists MM_flag = "MM_insert" If (CStr(Request(MM_flag)) <> "") Then Dim MM_rsKey Dim MM_rsKey_cmd MM_dupKeyRedirect = "cpf_existente.asp" MM_dupKeyUsernameValue = CStr(Request.Form("cpf_cadastro")) Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command") MM_rsKey_cmd.ActiveConnection = MM_conn_STRING MM_rsKey_cmd.CommandText = "SELECT cpf_cadastro FROM tb_cadastro WHERE cpf_cadastro = ?" MM_rsKey_cmd.Prepared = true MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 255, MM_dupKeyUsernameValue) ' adVarChar Set MM_rsKey = MM_rsKey_cmd.Execute If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_conn_STRING MM_editCmd.CommandText = "INSERT INTO tb_cadastro (nome_cadastro, cidade_cadastro, email_cadastro, telefone_cadastro, cpf_cadastro, rg_cadastro, senha_cadastro, regulamento_cadastro) VALUES (?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("nome_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("cidade_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("email_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("telefone_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("cpf_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("rg_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("senha_cadastro")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("regulamento")) ' adVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "envia_cadastro.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> estes dois codigos estão no mesmo arquivo q se chama cadastro.asp
  2. beleza. já vou fazer coloquei do jeito q você disse ' ### ENVIA O E-MAIL ### 'objCDOSYSMail.Send response.write(objCDOSYSMail.To) ' ### DESTRÓI OS OBJETOS ### Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %> a tela ficou em branco e não apresentou resultado nenhum o campo do cadastro esta como email_cadastro. não esta em branco e nem errado
  3. já tentei tb, da a mesma mensagem de erro
  4. sim já sei q estou recuperando o dados, é isso mesmo q você disse, mas sabe essa parte do codigo '## Configuração do cabeçalho da mensagem sDestinatario = "aqui quero o email do usuario que acabou de se cadastrar" eu coloco a variavel email entre as aspas não da certo da um erro deste tipo CDO.Message.1 error '8004020c' At least one recipient is required, but none were found. /dualsense/envia_cadastro.asp, line 60 e a linha 60 é esta ' ### ENVIA O E-MAIL ### objCDOSYSMail.Send
  5. Galera seguinte. este código esta funcionando perfeitinho. só quer uma dica. eu quero fazer o sistema enviar um email de confirmação de cadastro p usuario que acabou de se cadastrar. mas não sei como pegar o email que ele digitou e colocar no codigo de destinatário. quem puder ajudar, valeu <% Dim email nome = request.Form("nome_cadastro") email = request.Form("email_cadastro") telefone = request.Form("telefone_cadastro") cpf = request.form("cpf_cadastro") rg = request.form("rg_cadastro") '## Configuração do cabeçalho da mensagem sDestinatario = [b]"aqui quero o email do usuario que acabou de se cadastrar"[/b] sRemetente = "email@teste.com.br" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio. sResponder = "email@teste.com.br" sAssunto = "Mensagem automática - DualSense" sMensagem = "Esta é uma mensagem de confirmação de seu cadastro na promoção Caça ao DualSense, logo abaixo contém os dados pessoais que foram enviados" & vbCrLf & vbCrLf & "Nome: " & request.Form("nome_cadastro") & vbCrLf & "E-mail: " & request.Form("email_cadastro") & vbCrLf & "Fone: " & request.Form("telefone_cadastro") & vbCrLf & "Pergunta: " & request.form("pergunta_cadastro")& vbCrLf & vbCrLf & "Não responda esta mensagem" ' Cria o objeto CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'Cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'Porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 'Porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'Atualiza a configuração do CDOSYS para envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM #### 'Configura o remetente(FROM) objCDOSYSMail.From = sRemetente 'Configura o destinatário(TO) objCDOSYSMail.To = sDestinatario 'Configura o Reply-To(Responder Para) objCDOSYSMail.ReplyTo = sResponder 'Configura o assunto(SUBJECT) objCDOSYSMail.Subject = sAssunto 'Configura o conteúdo da mensagem 'Para enviar mensagens no formato HTML, altere o TextBody para HtmlBody objCDOSYSMail.TextBody = sMensagem ' ### ENVIA O E-MAIL ### objCDOSYSMail.Send ' ### DESTRÓI OS OBJETOS ### Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.Redirect("area_usuario.asp") %>
  6. Galera, seguinte tenho uma tabela e uns campos estão como TEXT, na hora que faço a inclusão de dados atraves do meu sisteminha e depois vou ate o mysql conferir, os campos que esta como TEXT não aparece o dado correto aparece "BLOB 12 Bytes" o que seria isso? como resolvo? Abraço!
  7. Estou tendo um pequeno probleminha. meu sisteminha não envia o arquivo q eu seleciono. ele até cria a pasta para mandar este arquivo , só que não envia. meu code <?php $result = array(); if (isset($_FILES['photoupload']) ) { $file = $_FILES['photoupload']['tmp_name']; $error = false; $size = false; $pasta = 'arquivos/'; if (!is_uploaded_file($file) || ($_FILES['photoupload']['size'] > 2 * 1024 * 1024) ) { $error = 'Por favor, envie arquivos de até 2MB!'; } if (!$error && !($size = @getimagesize($file) ) ) { $error = 'Por favor envie somente arquivos de imagem.'; } if (!$error && !in_array($size[2], array(1, 2, 3, 7, 8) ) ) { $error = 'Por favor envie um arquivo no formato JPEG.'; } if (!$error && ($size[0] < 25) || ($size[1] < 25)) { $error = 'Por favor envie uma imagem maior que 25px.'; } $addr = gethostbyaddr($_SERVER['REMOTE_ADDR']); $log = fopen('script.log', 'a'); fputs($log, ($error ? 'FAILED' : 'SUCCESS') . ' - ' . preg_replace('/^[^.]+/', '***', $addr) . ": {$_FILES['photoupload']['name']} - {$_FILES['photoupload']['size']} byte\n" ); fclose($log); if ($error) { $result['result'] = 'failed'; $result['error'] = $error; } else { $result['result'] = 'success'; $result['size'] = "Envio concluído"; } if(!file_exists($pasta)){ mkdir($pasta); } $arquivo = $pasta . $file['name']; // Faz o upload da imagem move_uploaded_file($file['tmp_name'],$arquivo); } else { $result['result'] = 'error'; $result['error'] = 'Arquivo não encontrado ou falha interna!'; } if (!headers_sent() ) { header('Content-type: application/json'); } echo json_encode($result); ?> quem puder ajudar, agradeço! abraço!!!
  8. certo denis, excelente explicação. vou tentar aqui e já volto p dizer se deu certo. outra coisa. poderia me apresentar algum link ou material sobre esses comando q você postou ai? FK / Foreign Key. tal. estou começando agora mexer com mysql. Obrigado denis
  9. Galera como resolvo esse problema q ta dando no mysql. quero fazer relacionamento das minhas tabelas e não consigo por conta disso. eu sei que as tabelas tem q estar no engine innodb, todas estão, mas não consigo mesmo assim. aqui está a estrutura do meu banco tb_clientes 0 InnoDB latin1_bin 16.0 KB - tb_consultores 0 InnoDB latin1_bin 16.0 KB - tb_forma_pagamento 0 InnoDB latin1_bin 16.0 KB - tb_indices 0 InnoDB latin1_bin 16.0 KB - tb_modalidades 0 InnoDB latin1_bin 16.0 KB - tb_plataformas 0 InnoDB latin1_bin 16.0 KB - tb_produto 0 InnoDB latin1_bin 16.0 KB - tb_situacao 0 InnoDB latin1_bin 16.0 KB - tb_usuarios 0 InnoDB latin1_bin 16.0 KB - tb_vendas 0 InnoDB latin1_bin 16.0 KB - 10 tabela(s) Soma 0 MyISAM latin1_bin 160.0 KB 0 Bytes alguém pode me ajudar? abraço!
  10. Galera como resolvo esse problema q ta dando no mysql. quero fazer relacionamento das minhas tabelas e não consigo por conta disso. eu sei que as tabelas tem q estar no engine innodb, todas estão, mas não consigo mesmo assim. aqui está a estrutura do meu banco tb_clientes 0 InnoDB latin1_bin 16.0 KB - tb_consultores 0 InnoDB latin1_bin 16.0 KB - tb_forma_pagamento 0 InnoDB latin1_bin 16.0 KB - tb_indices 0 InnoDB latin1_bin 16.0 KB - tb_modalidades 0 InnoDB latin1_bin 16.0 KB - tb_plataformas 0 InnoDB latin1_bin 16.0 KB - tb_produto 0 InnoDB latin1_bin 16.0 KB - tb_situacao 0 InnoDB latin1_bin 16.0 KB - tb_usuarios 0 InnoDB latin1_bin 16.0 KB - tb_vendas 0 InnoDB latin1_bin 16.0 KB - 10 tabela(s) Soma 0 MyISAM latin1_bin 160.0 KB 0 Bytes alguém pode me ajudar? abraço!
  11. Comece pelo basico, crie um banco. no php coloca um filtro do tipo, PUBLICAR / NÂO PUBLICAR. no momento do o comentario, deixa como padrão "não publicar" depois você ve e muda a dropdown para publicar. é uma idéia
  12. Boa tarde moçada. seguinte eu fiz um simples sistema de O.S e quero que no momento em que a O.S é concluída ele me apresente 2 campos de texto na hora. por exemplo. na list box eu tenho CONCLUÍDO que é de ID 5, ao clicar nela me aparece 2 campos de texto. como poderia fazer isso? valeu moçada. abraço
  13. Boa tarde moçada, venho com algumas dúvidas quem puder ajudar, fico agradecido. seguinte, eu tenho uma pagina de pedido de produtos, esses produtos estão todos cadastrados em um banco onde o meu listbox puxa eles tal. Bom, minha dúvida é, se o meu vendedor passar o pedido com mais de 1 produto, como ficaria eu teria que fazer a minha pagiona? com vários listbox e varios campos de quantidade? estou um pouco confuso. valeu moçada
  14. valeu bruno deu certo o que você me recomendou, Tá na mão com 2 casas decimais. <%=FormatCurrency((GD), 2, -2, -2, -2)%>
  15. Galera bom dia, estou com um pequeno problema nas minhas contas seguinte, eu tenho um valor de parcela e quero dividir pelo fator mas ele da um valor diferente do real por exemplo 170,41(parcela) - 9,00(cob) / 0,0914 (fator) = 1.765,97 - correto no asp ele dá 170,41(parcela) - 9,00(cob) / 0,0914 (fator) = 1,9417286652079 - incorreto alguém poderia me ajudar? vou postar meu code Dim Fator fator = "0,0914" Dim Parcela parcela = "170,41" Dim Cob Cob = "9,00" Dim GD GD = parcela - Cob / (Fator) valeu
  16. Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] ), ] ou item faltando na expressão de consulta 'isnull(SELECT SUM(qtde) from tb_movimento where tipo_mov = 'e' and tb_movimento.id_produto = tb_produto.id_produto and tb_movimento.id_regional = 4 as E, isnull(SELECT SUM(qtde) from tb_movimento where tipo_mov = 's' and tb_movimento.id_produto = tb_produto.'. /estoque/contagem_estoque.asp, line 13 a linha 13 é essa do meu select count_estoque_cmd.Prepared = true Set count_estoque = count_estoque_cmd.Execute count_estoque_numRows = 0 A instrução completa Set count_estoque_cmd = Server.CreateObject ("ADODB.Command") count_estoque_cmd.ActiveConnection = MM_Conn_STRING count_estoque_cmd.CommandText = "SELECT DISTINCT valor, nome, isnull(SELECT SUM(qtde) from tb_movimento where tipo_mov = 'e' and tb_movimento.id_produto = tb_produto.id_produto and tb_movimento.id_regional = "& session("id_regional") &" as E, isnull(SELECT SUM(qtde) from tb_movimento where tipo_mov = 's' and tb_movimento.id_produto = tb_produto.id_produto and tb_movimento.id_regional = "& session("id_regional") &" as S, (E-S) as total_produto, (total_produto*valor) as valor_parcial from tb_movimento, tb_produto" count_estoque_cmd.Prepared = true Set count_estoque = count_estoque_cmd.Execute count_estoque_numRows = 0 Andrea eu fucei aqui e deu certo eu coloquei o "&Session("id_regional")&" no final da instrução total e deu certo. obrigado!!!
  17. desculpa andrea, eu escrevi td e esqueci do erro o erro que ta dando é na linha da Session, verifique se está faltando algum operador. já tentei varias coisas e não consegui! esse erro na linha 10 é aonde está a Session ai no select o erro que dá é esse: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0401) Fim da instrução esperado /estoque/contagem_estoque.asp, line 10, column 232
  18. Galera aqui ta me dando um problema nesta instrução "SELECT DISTINCT valor, nome, isnull(SELECT SUM(qtde) from tb_movimento where tipo_mov = 'e' and tb_movimento.id_produto = tb_produto.id_produto and tb_movimento.id_regional = "&Session("id_regional")") as E, isnull(SELECT SUM(qtde) FROM tb_movimento WHERE tipo_mov = 's' and tb_movimento.id_produto = tb_produto.id_produto and tb_movimento.id_regional = "&Session("id_regional")") as s, (E-S) as total_produto, (total_produto*valor) as valor_parcial from tb_movimento, tb_produto" o erro que ta dando é na linha da Session, verifique se está faltando algum operador. já tentei varias coisas e não consegui! valeu moçada
  19. baladaclick

    Resultado Null

    Galera mais uma duvida. no meu sisteminha de estoque eu faço ProdutosEntrada - ProdutosSaída = resultadoAtualEstoque, alguns valores aparecem Null, e na exibição, fica em branco. como eu poderia fazer com que ele entendesse que valor Null é = "0"? valeu moçada
  20. Cara você salvou meu mês!!!!!!!!!!!!!!!! Muito obrigado mesmo!!!!!! valeu cara!!!!
  21. Bom dia moçada!!! preciso de ajuda novamente, seguinte... estou tentando fazer um estoque simples. eu tenho na minha tabela os campo "quantidade", "tipo_mov"(refere-se a E e S - Entrada e Saída) e "id_produto" eu tenho em um RecordSet o seguinte codigo SELECT distinct nome, SUM(qtde) as soma FROM tb_movimento, tb_produto WHERE tb_movimento.id_produto = tb_produto.id_produto and tipo_mov = 'e' group by nome este rs é a soma dos produtos com o tipo de movimento = e (entrada). até ai tudo bem, funciona belezinha agora neste mesmo RS eu quero fazer esta soma de produtos com o tipo de movimento = e subtrair a soma de produtos com o tipo de movimento = s (saída) por exemplo: EstoqueAtual = QtdeEntrada - QtdeSaida eu tentei criar 2 recordsets, uma para tipo de movimentos = "e" e outro "s". dá certo mas depois na paginação eu não sei qual recordset colocar. enfim, quero fazer a subtração de entrada - saida lembrando que o tipo_mov fica numa tabela só que é a tb_movimentos. quem puder me ajudar fico grato.... abraço valewwww
  22. Mesmo assim, continua dando um valor parcial para todos. mas eu tentei uma expressão aqui e deu certo <%=list_estoque("qtde")*list_estoque("valor")%> e deu certo valeu brow
  23. Galera boa tarde, eswtou com um problema na multiplicação de valores. seguinte... Tenho os campos produto, qtde e valor. quero multiplicar o a qtde pelo valor de um determinado produto. bom a multiplicação dá certo mas ele me mostra o resultado multiplicado de todos os meus produtos. por exemplo. produto 1 - qtde: 10 - Valor unitário: 100,00 Valor parcial: 16.400 - quero mostrar o valor deste produto * qtde Produto 2 - qtde: 5 - Valor unitário: 500,00 Valor parcial: 16.400 - quero mostrar o valor deste produto * qtde produto 3 - qtde: 30 - Valor unitário: 430,00 Valor parcial: 16.400 - quero mostrar o valor deste produto * qtde Valor total: 16.400,00 - este está correto pois soma tudo estou com esse problema, será que deu para entender? vou postar meu code SELECT SUM(qtde*valor) FROM tb_movimento, tb_produto WHERE tb_movimento.id_produto = tb_produto.id_produto valeu moçada. Abraço!!!! Um bjao p andrea
×
×
  • Criar Novo...