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

(Resolvido) Formulario Não envia

Baner

Perguntado por Baner,

 Share

Pergunta

Baner

Baner

Postado
Postado

Boa noite sou nova neste forum e estou tendo um problema em um formularios . vou tentar exxplicar o que esta acontecendo o formulario e prenchido normal e anexado o aqruivo escolhido. ate ai tudo bem so que o anexo vai para pasta do meu servidor normal ai vem o problema ele envia o formulario para o meu email mas não vem com os dados exmlo no nome vem escrito visitante, sera que alguém poderia me ajudar pois pra mim esta sendo dificil identificar onde esta o erro mas para quem conhece asp deve ser muito facil

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Baner

Baner

Postado
  • Autor
Postado (editado)
dificil se não tiver um codigo de base para saber o defeito em ...

Posso postar aqui os dois que uso o do formulario e o recebe.asp

dificil se não tiver um codigo de base para saber o defeito em ...

Posso postar aqui os dois que uso o do formulario e o recebe.asp

se eu tiro o resquest e coloco Upload os dados vem para o email mas não slava o anexo na pasta do servidor

este e o codigo do recebe.asp

<!-- #include file="topo.asp" -->

<!-- #include file="hitcount.inc" --></p>

<!-- # include "Upload.Save("D:\websites\servidor\httpdocs\arquivos\" -->

<%

' Coloque um número grande para o tempo de finalização do script, pois o upload pode demorar alguns minutos. Se o servidor estiver com o tempo baixo, pode haver erro no upload

Server.scripttimeout = 10000

' Caso houver algum erro o código vai prosseguir até o final. Isso evita que seja mostrada aquela página de erro padrão do Internet Explorer

On Error Resume Next

' Aqui criamos uma instância do objeto do ASP Smart Upload

Set Upload = Server.CreateObject("ASPSmartUpload.SmartUpload")

' Aqui criamos uma lista dos formatos de arquivos que poderão ser enviados

Upload.AllowedFilesList = "gif,jpg,bmp,cdr,pdf,doc,tiff,rar,zip"

' Aqui configuramos o tamanho máximo de cada arquivo enviado em bytes

Upload.MaxFileSize = 1000000

' Aqui configuramos o tamanho total para os arquivos enviados. Todos os arquivos juntos não podem passar deste tamanho

Upload.TotalMaxFileSize = 4000000

' Aqui é efetuado o envio dos arquivos

Upload.Upload

' Selecionamos cada arquivo que foi submetido do formulário

For each File in Upload.Files

' Aqui checamos se o tamanho dele é maior que 0 byte. Isso é necessário pois se a pessoa submeter o formulário com o endereço do arquivo errado, será criado um

If File.Size > 0 Then

Upload.Save("D:\websites\servidor\httpdocs\arquivos\")

nomearquivo = (File.FileName)

' Caso for um arquivo inválido, ou seja, o tamanho dele for igual a zero então aparecerá a mensagem e em seguida terminamos a condição.

End if

' Caso mais de um arquivo tenha sido enviado, enviamos o sistema para o próximo.

Next

%>

<%

nomearquivos = Upload.Form("nomearquivo")

strArquivo = Upload.Form("arquivo")

strQuantidade = Upload.Form("quantidade")

strProduto = Upload.Form("produto")

strTamanho = Upload.Form("tamanho")

strTipoPapel = Upload.Form("tipopapel")

strGramatura = Upload.Form("gramatura")

strCoresfrente = Upload.Form("coresfrente")

strCoresverso = Upload.Form("coresverso")

strAcabamento = Upload.Form("acabamento")

strEscolher = Upload.Form("escolher")

strNome = Upload.Form("nome")

strEndereco = Upload.Form("endereco")

strBairro = Upload.Form("bairro")

strCidade = Upload.Form("cidade")

strEstado = Upload.Form("estado")

strCep = Upload.Form("cep")

strDdd = Upload.Form("ddd")

strFone = Upload.Form("fone")

strEmail = Upload.Form("email")

strConheceu = Upload.Form("conheceu")

strMensagem = Upload.Form("mensagem")

strAssunto = Upload.Form("assunto")

strContador = Request.Form("contador")

If strAssunto = "" then

strAssunto = "Anexo de Arquivos"

end if

StrMsg2 = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"

StrMsg2 = StrMsg2 & "<HTML><HEAD>"

StrMsg2 = StrMsg2 & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"

StrMsg2 = StrMsg2 & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"

StrMsg2 = StrMsg2 & "<BODY>"

StrMsg2 = StrMsg2 & " <table border=0 cellspacing=0 width=830 cellpadding=0><tr><td height=5></td></tr><tr><td height=5></td></tr></table>"

StrMsg2 = StrMsg2 & " <DIV><FONT face="&fonte&" style='FONT-SIZE: 11px'>Olá &nbsp;<b>"&strNome&"</b><br> segue abaixo a solicitação do seu orçamento!<br><br><br>"

StrMsg2 = StrMsg2 & " <table border=0 cellspacing=0 width=830 cellpadding=0><tr><td height=5></td></tr><tr><td height=1 bgcolor="&cor3&"></td></tr><tr><td height=5></td></tr></table>"

StrMsg2 = StrMsg2 & " </FONT></DIV>"

StrMsg2 = StrMsg2 & " <DIV><FONT face="&fonte&" style='FONT-SIZE: 11px'><br><br>"

StrMsg2 = StrMsg2 & "<table width='830' border=1 cellspacing=0 cellpadding=2 bordercolor='999966'>"

StrMsg2 = StrMsg2 & "<table width='830' border=2 cellspacing=0 cellpadding=2 bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='ffffff'>"

StrMsg2 = StrMsg2 & "<td width='400' align='left' valign='top'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'><b>Nome:</b>&nbsp;&nbsp;"&strNome&"</font></td>"

StrMsg2 = StrMsg2 & "<td width='400' align='right' valign='top'><font color='#000000' size='2'><b>Email:</b></b>&nbsp;&nbsp;"&strEmail&""

StrMsg2 = StrMsg2 & "</font></td></tr><tr width='830' bgcolor='ffffff' bordercolor='ffffff'>"

StrMsg2 = StrMsg2 & "<td width='400' align='left' valign='top'> <font color='#000000' size='2'> <b>Endereço:</b>&nbsp;&nbsp;"&strEndereco&"</font></td>"

StrMsg2 = StrMsg2 & "</tr>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='ffffff'><td width='400' align='left' valign='top'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'><b>Bairro:</b>&nbsp;&nbsp;"&strBairro&"</font></td></tr>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='ffffff'><td width='400' align='left' valign='top'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'><b>Cidade:</b>&nbsp;&nbsp;"&strCidade&"&nbsp;&nbsp;/&nbsp;&nbsp;"&strEstado&"</font></td></tr>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='ffffff'><td width='830' align='left' valign='top'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'><b>Cep:</b>&nbsp;&nbsp;"&strCep&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"

StrMsg2 = StrMsg2 & "<b>Fone:</b>&nbsp;&nbsp;&nbsp;&nbsp;"&strDdd&"&nbsp;&nbsp;/&nbsp;&nbsp;"&strFone&"</b></font></td></tr>"

StrMsg2 = StrMsg2 & "</table>"

if Request.Form("mensagem")<>"" then

StrMsg2 = StrMsg2 & "<table width='830' border=2 cellspacing=0 cellpadding=2 bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='ffffff'>"

StrMsg2 = StrMsg2 & "<td width='830' align='left' valign='top'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'>"

StrMsg2 = StrMsg2 & "<b>Mensagem:</b><br>"

StrMsg2 = StrMsg2 & ""&strMensagem&"</font>"

StrMsg2 = StrMsg2 & "</td>"

StrMsg2 = StrMsg2 & "</tr>"

StrMsg2 = StrMsg2 & "</table>"

end if

if Request.Form("arquivo")<>"" then

StrMsg2 = StrMsg2 & "<table width='830' border=2 cellspacing=0 cellpadding=2 bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='ffffff'>"

StrMsg2 = StrMsg2 & "<td width='830' align='left' valign='top'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'>"

StrMsg2 = StrMsg2 & "<b>Anexo:</b><br>"

StrMsg2 = StrMsg2 & ""&strArquivo&"</font>"

StrMsg2 = StrMsg2 & "</td>"

StrMsg2 = StrMsg2 & "</tr>"

StrMsg2 = StrMsg2 & "</table>"

end if

StrMsg2 = StrMsg2 & "<table width='830' border=1 cellspacing=0 cellpadding=2 bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='999966' bordercolor='ffffff'>"

StrMsg2 = StrMsg2 & "<td width='830' height='10' align='center' valign='top' bgcolor='#999999'> "

StrMsg2 = StrMsg2 & "<font color='#ffffff' size='3'> <b> Orçamento</font></td></tr></table>"

StrMsg2 = StrMsg2 & "<font color='#000000'><table width='830' border=1 cellspacing=0 cellpadding=2 bordercolor='999966'></font>"

StrMsg2 = StrMsg2 & "<tr bgcolor='999966' bordercolor='ffffff'><td width='30' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#000000'><font color='#ffffff'> <b> Quant. </font></td>"

StrMsg2 = StrMsg2 & "<td width='100' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color=#FFFFFF>&nbsp; </font><font color=#ffffff><b> Produto</font></td>"

StrMsg2 = StrMsg2 & "<td width='100' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b> Tamanho.</td>"

StrMsg2 = StrMsg2 & "<td width='100' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b> T. Papel</td>"

StrMsg2 = StrMsg2 & "<td width='100' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b>Gramatura</td>"

StrMsg2 = StrMsg2 & "<td width='100' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b> Cores Frente</td>"

StrMsg2 = StrMsg2 & "<td width='120' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b> Cores Verso</td>"

StrMsg2 = StrMsg2 & "<td width='30' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b> Acabamento</td>"

StrMsg2 = StrMsg2 & "<td width='30' height='10' align='center' valign='top' bgcolor='#999999'>"

StrMsg2 = StrMsg2 & "<font color='#ffffff'><b> Valor Unit.</td>"

StrMsg2 = StrMsg2 & "<tr><td height='300' width='30' align='center' valign='top'>"&strQuantidade&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'>"&strProduto&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'>"&strTamanho&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'>"&strTipopapel&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'>"&strGramatura&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'>"&strCoresfrente&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='80' align='center' valign='top'>"&strCoresverso&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'>"&strAcabamento&"</td>"

StrMsg2 = StrMsg2 & "<td height='300' width='100' align='center' valign='top'><input type='text' value='R$0,00' size='3'>"&strValor&"</td></tr>"

StrMsg2 = StrMsg2 &"</Table>"

StrMsg2 = StrMsg2 & "<table width='830' border=1 cellspacing=0 cellpadding=2 bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='999966'>"

StrMsg2 = StrMsg2 & "<td width='830' height='10' align='right' valign='top' bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='2'> <b>BV 10%:&nbsp;&nbsp; R$ </b></font></td>"

StrMsg2 = StrMsg2 & "</tr>"

StrMsg2 = StrMsg2 & "</table>"

StrMsg2 = StrMsg2 & "<table width='830' border=1 cellspacing=0 cellpadding=2 bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<tr width='830' bgcolor='ffffff' bordercolor='999966'>"

StrMsg2 = StrMsg2 & "<td width='830' height='10' align='right' valign='top' bordercolor='#000099'>"

StrMsg2 = StrMsg2 & "<font color='#000000' size='3'> <b>Valor Total:&nbsp;&nbsp; R$ </b></font></td>"

StrMsg2 = StrMsg2 &"</Table>"

StrMsg2 = StrMsg2 & "</tr>"

StrMsg2 = StrMsg2 & "</table>"

StrMsg2 = StrMsg2 & "<table><hr size=1 color="&cor3&" width=830></table>"

StrMsg2 = StrMsg2 & "<table width='830' bordercolor='#000099' border='1'>"

StrMsg2 = StrMsg2 & "<tr width='830' ><td height='40' width='830' align='left' valign='top'> <font color='#000000' size='2'>"

StrMsg2 = StrMsg2 & "<b>Formas de Entrega:&nbsp;&nbsp; </b>SEDEX, SEDEX 10, SEDEX HOJE e PAC Deveram ser calculados pelo site dos Correios, MotoBoy em São Paulo - Capital.<br><br>"

StrMsg2 = StrMsg2 & "<b>Prazo para confecção e entrega do produto:&nbsp;&nbsp; </b><br>"

StrMsg2 = StrMsg2 & "</table>"

StrMsg2 = StrMsg2 & "<table><hr size=1 color="&cor3&" width=830></table>"

StrMsg2 = StrMsg2 & "<table width='830' bordercolor='#000099' border='1'>"

StrMsg2 = StrMsg2 & "<tr width='830' ><td height='20' width='830' align='left' valign='top'> <font color='#000000' size='2'>"

StrMsg2 = StrMsg2 & "<b>Formas de Pagamento:&nbsp;&nbsp; </b>Deposito em Conta, PagSeguro Uol<br><br>"

StrMsg2 = StrMsg2 & "</table>"

StrMsg2 = StrMsg2 & "<table><hr size=1 color="&cor3&" width=830></table>"

StrMsg2 = StrMsg2 & "<table width='830' bordercolor='#000099' border='1' >"

StrMsg2 = StrMsg2 & "<tr width='830' >"

StrMsg2 = StrMsg2 & "<td height='40' width='830' align='left' valign='top'> <font color='#000000' size='2'>"

StrMsg2 = StrMsg2 & "www.<br>"

StrMsg2 = StrMsg2 & "Outras informações pelo Tel.:<br>"

StrMsg2 = StrMsg2 & "Email: <br></font></td></tr>"

StrMsg2 = StrMsg2 & "</table>"

StrMsg2 = StrMsg2 & "</body>"

StrMsg2 = StrMsg2 & "</html>"

'Corpo do e-mail

strMensagem = StrMsg2

%>

<!--#include file="email.asp"-->

<%EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), strEmail, "", emailloja, "Solicitação de Orçamento Nº "&strContador&"",strMensagem%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body>

<table width="830">

<tr>

<td align="left" valign="top"> <div align="center">

<table border="0" cellspacing="4" cellpadding="4" width="830">

<tr>

<td height="247"> <blockquote><a href=default.asp style=text-decoration:none; onMouseOver="window.status='<%=strLg4%>';return true;"><b><%=strLg4%></b></a>

» Orçamento enviado<br>

<img src="sucesso.gif" width="509" height="134">

<div align="center"><font face="<%=fonte%>" style="font-size:13px"></font></div>

</p>

</blockquote>

<font color=red size=1>

<p align="center"><font color="000000">Obrigado <b>&nbsp;<%=strNome%></b>,

seu orçamento foi enviado com sucesso,<br>

em breve lhe responderemos para o email</b><br>

</font> <font color=blue><%=strEmail%> </font> <br>

Que voc&ecirc; forneceu ao solicitar o Or&ccedil;amento.</font> </td>

</tr></table>

</body>

</html>

<!-- #include file="baixo.asp" -->

Editado por Baner
Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado

verifique se os campos do formularios são os mesmos que estão tentando ser recuperados.

detalhe importante, se você não intende nada da linguagem use o google e leia a respeito, alem de observar bem seu código, vir aqui no fórum pode ate te ajudar mais você continuará a não entender nada...

Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

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