Ir para conteúdo
Fórum Script Brasil
  • 0

Duvida..

planettaweb

Perguntado por planettaweb,

 Share

Pergunta

planettaweb

planettaweb

Postado
Postado

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!

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0
planettaweb

planettaweb

Postado
  • Autor
Postado

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?

Link para o comentário
Compartilhar em outros sites
  • 0
planettaweb

planettaweb

Postado
  • Autor
Postado

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!

Link para o comentário
Compartilhar em outros sites
  • 0
planettaweb

planettaweb

Postado
  • Autor
Postado

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!

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

faz assim:

<%

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") & vbcrlf & Request.Form("rg") & vbcrlf & Request.Form("nascimento") & vbcrlf & Request.Form("valor") & vbcrlf & Request.Form("parcelas")

objCDOMail.From = Request.Form("nome")

objCDOMail.To = strTo

objCDOMail.Subject = strSubject

objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...