Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Denis Duarte

Formulario Incorreto

Recommended Posts

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. O problema deve está ocorrendo na parte Sintaxe, mais eu não tenho muito conhecimento.

Fico no Aguardo Obrigado.

<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 = "[email protected]"

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

'----------- 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 = "[email protected]"

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

'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">

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...