Jump to content
Fórum Script Brasil

baladaclick

Membros
  • Posts

    173
  • Joined

  • Last visited

About baladaclick

  • Birthday 05/10/1985

Contatos

Perfil

  • Gender
    Male
  • Location
    Bauru - SP

baladaclick's Achievements

0

Reputation

  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 protected]" 'O endereço de e-mail deve ser uma conta válida do seu próprio domínio. sResponder = "[email protected]" 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
×
×
  • Create New...