Ir para conteúdo
Fórum Script Brasil

planettaweb

Membros
  • Total de itens

    15
  • Registro em

  • Última visita

Tudo que planettaweb postou

  1. planettaweb

    Duvida..

    Caso houver alguém que tenha dúvidas em Flash, posso colaborar! Estarei a disposição! Mais uma vez, agradeço a todos pela compreensão!
  2. planettaweb

    Duvida..

    Sua junção deu certo, só que tem um problema de estética. Da uma olhada no código. Eu mudei algumas coisas para que pudesse ser enviado o e-mail. Como ""& de alguns campos <% Dim strTo, strSubject, strBody Dim objCDOMail strTo = "planettaweb@yahoo.com.br" strSubject = Request.Form("nome") Set objCDOMail = Server.CreateObject("CDONTS.NewMail") strBody = ""& Request.Form("cpf") &""& Request.Form("rg") &""& Request.Form("nascimento") &""& Request.Form("valor") &"" & Request.Form("parcelas")&"" objCDOMail.From = Request.Form("nome") objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing %> o problema é que o email chega com as informações todas na mesma linha e sem espaço. Alguém sabe como faço para que os campos pulem de linha após o seu término? Sem esquecer, Joeh muito obrigado pela força, de coração!
  3. planettaweb

    Formulario Asp

    Pelo amor de Deus, me responda uma dúvida cruel. Eu consegui fazer com que o cdonts envia o e-mail, pequeno detalhe é que ele envia o corpo do formulário "body" com apenas um campo do mesmo, teria alguma forma de fazer com ele entenda que o corpo da mensagem é igual a todos os campos do formulário? Ex: Dim strTo, strSubject, strBody Dim objCDOMail strTo = "planettaweb@yahoo.com.br" strSubject = Request.Form("nome") strBody = Request.Form("cpf") strBody = Request.Form("rg") strBody = Request.Form("nascimento") strBody = Request.Form("valor") strBody = Request.Form("parcelas") ou então: Dim strTo, strSubject, strBody, fields, f1, f2, f3, f4, f5 Dim objCDOMail fields = f1 & f2 & f3 & f4 & f5 strBody = fields f1 = Request.Form ("parcelas") f2 = Request.Form ("cpf") f3 = Request.Form ("rg") f4 = Request.Form ("nascimento") f5 = Request.Form ("valor") Por favor, me ajudem com este formulário
  4. planettaweb

    Duvida..

    Alguém pode me ajudar? Eu só queria saber como faço para atribuir vários campos em uma variável usando cdonts! Obrigado pela cooperação.
  5. Se for para testes, tem www.hostgold.com.br, você faz o cadastro (bem simples não pede nem cpf, rg...) e você tem 40 dias para testar, caso não queira pagar a hospedagem é só não pagar o boleto. Estou fazendo testes nas páginas através dela, caso expira a data, faço um novo cadastro...
  6. Peço desculpas Andréia, vou evitar de criar tópicos.
  7. planettaweb

    E-mail Pelo Site

    Legal esse script, mas me fale uma coisa, sou leigo em php, estes arquivos precisam de um arquivo .ini para funcionar? Ou se eu tiver um servidor php ele irá enviar o form sem este arquivo?
  8. planettaweb

    Duvida..

    asp, php, mdb! suporta essas linguagens. Como não estou conseguindo direto no Dreamwaver estou tentando uma interação com o Flash. Criei um form com as seguintes variáveis: nome, cpf, rg, nascimento, valor e parcelas. Na programação flash do botão enviar coloquei o seguinte código: on (release) { if (nome, cpf, rg, nascimento, valor, parcelas ne "") { loadVariablesNum("meuformulario.asp", 0, "POST"); gotoAndPlay(2); Ou seja, quando clico no botão enviar ele vai executar a rotina do meyformulario.asp. Funciona direitinho, mas quando chega no código de asp ele envia somente o nome e o cpf! Dê uma olhada neste código: <% 'Planetta Web %> <% Dim strTo, strSubject, strBody Dim objCDOMail strTo = "planettaweb@yahoo.com.br" strSubject = Request.Form("nome") strBody = Request.Form("cpf") strBody = Request.Form("rg") strBody = Request.Form("nascimento") strBody = Request.Form("valor") strBody = Request.Form("parcelas") Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "nome" objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing %> o que eu teria que fazer para ele entender que o corpo "strBody" são todos os campos menos o nome? Obrigado pela atenção!
  9. planettaweb

    Duvida..

    Joeh, pode me chamar de burro! A funcionalidade está ok! Mas tenho algumas dúvidas, para onde vai este arquivo txt? Eu gostaria que ele fosse para o meu e-mail ou em forma de arquivo para o servidor, isto é possível?
  10. planettaweb

    Duvida..

    Caro amigo Joeh, olha, eu até entendo o script, mas n sei direito onde aplicá-lo. O que eu fiz foi o seguinte: arquivo html: <html><head> <TITLE>teste de envio de txt</TITLE> </head><body bgcolor="#FFFFFF"> <p align="center"><b>Formulário de Cadastro</b></p> <form method="POST" action="txtread.asp"> <p align="left"> <b>Nome: </b> <input type="text" name="nome" size="50"><b </b></p> <p align="left"> <b>Endereço:<input type="text" name="endereço" size="49"></b></p> <p align="left"><b>CPF: </b> <input type="text" name="CPF" size="20"> <b> RG: <input type="text" name="RG" size="20"></b></p> <p align="left"><b>SEXO Masculino<input type="radio" value="V1" checked name="masculino"> Feminino<input type="radio" name="feminino" value="V2"></b></p> <p align="left"><b>Nascimento: <input type="text" name="nascimento" size="20"></b></p> <p align="left"><b>Comentários:<textarea rows="6" name="comentários" cols="59"></textarea></b></p> <p align="left"><p> <p align="center"><input type="submit" value="Enviar" name="botao"><input type="reset" value="Limpar" name="Limpar"></p> </form> </body></html> arquivo .asp <% if request("botao") = "enviar" then Set fs = CreateObject("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(whichfile, 1, False) counter=0 do while not thisfile.AtEndOfStream counter=counter+1 thisline=thisfile.readline response.write server.htmlencode(thisline) & "<br>" loop thisfile.Close set fs=nothing %> E não acontece nada, ou seja, ele não envia o e-mail. O que pode estar acontecendo?
  11. Acho que isso resolveria meu problema. Criar um e-mail no servidor enviando as informações contidas no formulário do cliente. Ou seja, tenho um formulário onde a pessoa digita várias informações sobre ela e quando clica no botão enviar é criado um e-mail no servidor com as informações do formulário, isso é possível? Tenho que instalar o CDONTS pra isso? Alguém poderia me ajudar? Lembrando que sou leigo nisso. Agradeço a atenção!
  12. planettaweb

    Duvida..

    Consegui entender a programação, mas um pequeno detalhe, como sou leigo em ASP, n sei como iniciar essa programação no meu documento html atrvés do DreamWaver, ou seja, gostaria de saber apenas o que deveria de acrescentar no botão enviar do meu documento que contém um formulário, para que ele criasse um arquivo texto qualquer no servidor. Onde eu devo colocar? Tenho que criar um outro arquivo .asp, ou só o html faria isso? Aqui vai o código da minha página: <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Cadastro</title> </head> <body> <p align="center"><b>Formulário de Cadastro</b></p> <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" u-file="fpweb:///_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" --><p align="left"> <b>Nome:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b> <input type="text" name="nome" size="50"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b></p> <p align="left"> <b>Endereço:<input type="text" name="endereço" size="49"></b></p> <p align="left"><b>CPF:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b> <input type="text" name="CPF" size="20">&nbsp;&nbsp;&nbsp;&nbsp; <b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; RG: <input type="text" name="RG" size="20"></b></p> <p align="left"><b>SEXO:&nbsp;&nbsp; Masculino<input type="radio" value="V1" checked name="masculino">&nbsp;&nbsp; Feminino<input type="radio" name="feminino" value="V2"></b></p> <p align="left"><b>Nascimento: <input type="text" name="nascimento" size="20"></b></p> <p align="left"><b>Comentários:<textarea rows="6" name="comentários" cols="59"></textarea></b></p> <p align="left">&nbsp;</p> <p align="center"><input type="submit" value="Enviar" name="Enviar"><input type="reset" value="Limpar" name="Limpar"></p> </form> <p align="center">&nbsp;</p> </body> </html> Agradeço a atenção dispensada!
  13. Teria como, pelo meu formulário criado no DreamWaver, colocar um código no botão Enviar para que ele criasse um arquivo texto ou do qualquer outro direto no servidor com as informções contidas no formulário?
  14. planettaweb

    Erro Em Inclusão De Dados

    Nossa Senhora, estou com o mesmo problema que você! Estou procurando as html e asp para que eu consiga rodar meu sistema tbém! Alguém, por favor, nos dêem um aLuz!!!
  15. Alguém poderia me ajudar com o sistema de login? Criei os arquivos conforme o informado aqui no tutorial: Index.html - código <html><body> <form action="login.asp"> <h3>Login:</h3><input type="text" name="login" size="20"><br> <h3>Senha:</h3><input type="password" name="senha" size="20"><br> <input type="submit" value="Entrar"> </form></body></html> Login.asp - código <%@Language=VBScript%> <%response.buffer="true"%> <% 'Recupero o texto que foi escrito no formulário vlogin=request.form("login") vsenha=request.form("senha") 'Faça conexão com o banco de dados db=Server.MapPath("bd.mdb") Set con = Server.CreateObject( "adodb.Connection" ) con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db & ";" set rs=con.execute("select * from tabela_do_banco where login='"&vlogin&"' and senha='"&vsenha&"'") 'Se não for encontrado nenhum registro aparecerá uma mensagem de erro. 'Caso contrário o visitanmte receberá um nome de sessão para poder navegar nas demais paginas protegidas e será redirecionado para a página protegida if rs.EOF then response.write"Senha ou Login inválido! Volte e tente novamente." else session("logado")="sim" response.redirect"pagina_protegida.asp" end if %> bd.mdb - arquivo com código(autonumber), Login(text), Senha(text). pagina_protegida.asp - código <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Bem vindo</title> </head> <body> <p>Bem vindo!!!</p> </body> </html> pagina_protegida.htm - código <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Bem vindo</title> </head> <body> <p>Bem vindo!!!</p> </body> </html> Mesmo assim, quando digito o nome do usuário e a senha ele fala que a página não pode ser exibida, sendo que no banco de dados, adicionei o registro que ele deveria de reconhecer e todos os qrquivos estão com mesmo nome e na mesma pasta. Alguém poderia me explicar o que está acontecendo?
×
×
  • Criar Novo...