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

Formulario Incorreto

Denis Duarte

Perguntado por Denis Duarte,

 Share

Pergunta

Denis Duarte

Denis Duarte

Postado
Postado

Galera to com um problemina nesse formulario, eu não entendo muita linguagem ASP também e tals.

O problema é que o formulario ta digitado certo, mais informações que chegam no email, elas chegam todas bagunçadas,

Acho que deve ser algum codigo que deixei de acrescentar sei la, sei que só estou alterando o formulario.

Me ajudem

<TD align=left width=356 height=101>

<FORM name=formulario onsubmit="return submit_page(this)"

action=orcambigstyle.asp method=post ;>

<TABLE cellSpacing=1 cellPadding=1 width=352 align=left border=0>

<TBODY>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Tipo do Evento </FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><SELECT class=ftgeral name=evento> <OPTION

selected>Confraternização</OPTION> <OPTION>Casamento</OPTION>

<OPTION>Debutantes</OPTION> <OPTION>Bodas de Prata</OPTION>

<OPTION>Bodas de Ouro</OPTION> <OPTION>Aniversário</OPTION>

<OPTION>Evento de negocios</OPTION> <OPTION>Convenção</OPTION>

<OPTION>Outros</OPTION></SELECT> </DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Número de Convidados </FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral id=nconvidados size=10

name=nconvidados> </DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Cardápio </FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><SELECT class=ftgeral name=cardapio> <OPTION

selected>Crepes 01</OPTION> <OPTION>Crepes 02</OPTION>

<OPTION>Massas 01</OPTION> <OPTION>Massas 02</OPTION>

<OPTION>Feijoada</OPTION> <OPTION>Botequim</OPTION>

<OPTION>Pizza</OPTION> <OPTION>Churrasco</OPTION>

<OPTION>Coquetel</OPTION> <OPTION>Bolos</OPTION></SELECT>

</DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Local do Evento </FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><SELECT class=ftgeral id=locevento name=locevento>

<OPTION selected>Residencia</OPTION> <OPTION>Empresa</OPTION>

<OPTION>Cháraca ou sítio</OPTION> <OPTION>Salão</OPTION></SELECT>

</DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Data do Evento</FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral name=dataevento> <FONT

class=ftgeral face="Arial, Helvetica, sans-serif"

size=2>dd/mm/aaaa</FONT></DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Nome</FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral size=45 name=nome> </DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Telefone</FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral size=5 name=prefixo> - <INPUT

class=ftgeral size=18 name=telefone> </DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Celular</FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral size=5 name=prefixo> - <INPUT

class=ftgeral size=18 name=telefone> </DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Operadora </FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><SELECT class=ftgeral id=operador name=operador>

<OPTION selected>Oi</OPTION> <OPTION>Claro</OPTION>

<OPTION>Tim</OPTION><OPTION>Vivo</OPTION>

<OPTION>Nextel</OPTION></SELECT> </DIV></TD></TR>

<TR>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>Tel. Comercial</FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral size=5 name=prefixo> - <INPUT

class=ftgeral size=18 name=telefone> </DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral width=94>

<DIV align=left><FONT face="Arial, Helvetica, sans-serif"

size=2>E-mail</FONT></DIV></TD>

<TD colSpan=3>

<DIV align=left><INPUT class=ftgeral size=45 name=email>

</DIV></TD></TR>

<TR vAlign=center align=middle>

<TD class=ftgeral vAlign=top align=left width=94><FONT

face="Arial, Helvetica, sans-serif" size=2>Dúvidas: </FONT>

<DIV align=left></DIV></TD>

<TD align=left colSpan=3><TEXTAREA class=ftgeral name=duvidas rows=5 wrap=VIRTUAL cols=45></TEXTAREA>

</TD></TR>

<TR vAlign=center align=middle>

<TD vAlign=top> </TD>

<TD vAlign=top width=95>

<DIV align=right><INPUT class=ftgeral type=submit value=Enviar name=enviar>

</DIV></TD>

<TD vAlign=top width=37> </TD>

<TD vAlign=top width=113><INPUT class=ftgeral type=reset value=Redefinir name=redefinir></TD>

<%

'Set the response buffer to true so we execute all code before sending to the clients browser

Response.Buffer = True

'Dimension variables

Dim strBody 'Holds the body of the e-mail

Dim objCDOMail 'Holds the mail server object

Dim strMyEmailAddress 'Holds your e-mail address

Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send to more tahn on e-mail address

Dim strReturnEmailAddress 'Holds the return e-mail address of the user

'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = "orcamento@bigstyle.com.br"

'-----------------------------------------------------------------------------------------------------

'----------- Place Carbon Copy e-mail address's in the following sting, supporated by ; --------------

'Use this string only if you want to send the copy's of the e-mail to more than one person

strCCEmailAddress = "bigstyle@bigstyle.com.br"

'-----------------------------------------------------------------------------------------------------

'Read in the users e-mail address

strReturnEmailAddress = Request.Form("email")

'Initialse strBody string with the body of the e-mail

strBody = "SOLICITAÇÃO DE ORÇAMENTO" & vbCrLf

strBody = strBody & "Orçamento enviado através do site Buffet Big Style:" & vbCrLf

strBody = strBody & "----------------------------------------------------" & vbCrLf & vbCrLf

strBody = strBody & "Nome...: " & Request.Form("nome")& vbCrLf

strBody = strBody & "Email...: " & Request.Form("email") & vbCrLf

strBody = strBody & "Prefixo:... " & Request.Form("prefixo") & vbCrLf

strBody = strBody & "Telefone...: " & Request.Form("telefone") & vbCrLf

strBody = strBody & "Numero:... " & Request.Form("cidade") & vbCrLf

strBody = strBody & "Tipo de Evento:... " & Request.Form("evento") & vbCrLf

strBody = strBody & "Data do Evento:... " & Request.Form("dataevento") & vbCrLf

strBody = strBody & "Numero de Convidados:... " & Request.Form("nconvidados") & vbCrLf

strBody = strBody & "Tipo de Cardapio: " & Request.Form("cardapio") & vbCrLf

strBody = strBody & "Local do Evento: " & Request.Form("locevento") & vbCrLf

strBody = strBody & "Duvidas: " & Request.Form("duvidas") & vbCrLf & vbCrLf

strBody = strBody & "Operadora: " & Request.Form("operador") & vbCrLf & vbCrLf

strBody = strBody & "----------------------------------------------------" & vbCrLf

'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected

If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own

strReturnEmailAddress = strMyEmailAddress

End If

'Create the e-mail server object

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'Send the e-mail

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)

objCDOMail.From = Request.Form("email") & " <" & strReturnEmailAddress & ">"

'Who the e-mail is sent to

objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to

objCDOMail.Cc = strCCEmailAddress

'The subject of the e-mail

objCDOMail.Subject = "Orçamento para festa"

'The main body of the e-amil

objCDOMail.Body = strBody

'The format the e-mail is sent in

objCDOMail.MailFormat = CdoMailFormatMIME 'If you want it to be in MIME(HTML) format use CdoMailFormatMIME

'Importance of the e-mail (0=Low, 1=Normal, 2=High)

objCDOMail.Importance = 1

'Send the e-mail

objCDOMail.Send

'Close the server object

Set objCDOMail = Nothing

%><meta http-equiv="refresh" content="0; URL=http://www.bigstyle.com.br/agrad.htm">

Fico no aguardo, Obrigado.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Cara, então...

Seu formulário no quesito HTML está muito desorganizado, com uso errado da sintaxe. Além disso você repete o nome e id em vários campos, como o caso dos campos "prefixo" e "telefone".

você deveria nomear com prefixo, prefixo1, prefixo2 e assim por diante, pois não podem haver duplicações nisso... aliás... até pode, mas para duplicar você terá que aprender a trabalhar com arrays pois os dados virão separados por "," (virgulas), ou seja, não é muito jogo...

Mas assim, esse fórum é de ASP e acho que o primeiro problema a ser enfrentado é HTML.

Algumas perguntas que você deve utilizar em seus estudos:

1)Como deve ser uma estrutura de tabela, onde ela começa e onde ela termina?

2)quais são as tags que podem compor uma tabela e pra que exatamente elas servem?

Respondendo essas perguntas você verá que uma estrutura básica de tabela não se parecerá com a sua, entende?

Da uma estudada nisso e modifique os nomes de suas variáveis que certamente passará a funcionar...

[]'s

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...