Baner

(Resolvido) Formulario Não envia

pergunta respondeu ao Baner de Baner em ASP

PROBLEMA RESOLVIDO

(Resolvido) Formulario Não envia

pergunta respondeu ao Baner de Baner em ASP

me explique como colocar pois não entendo nada de nada de asp

(Resolvido) Formulario Não envia

pergunta respondeu ao Baner de Baner em ASP

Posso postar aqui os dois que uso o do formulario e o recebe.asp 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  </p>  <% ' 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á  <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>  "&strNome&"</font></td>" StrMsg2 = StrMsg2 & "<td width='400' align='right' valign='top'><font color='#000000' size='2'><b>Email:</b></b>  "&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>  "&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>  "&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>  "&strCidade&"  /  "&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>  "&strCep&"      " StrMsg2 = StrMsg2 & "<b>Fone:</b>    "&strDdd&"  /  "&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>  </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%:   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:   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:   </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:   </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:   </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 %>  <%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> <%=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ê forneceu ao solicitar o Orçamento.</font> </td> </tr></table> </body> </html>

(Resolvido) Formulario Não envia

uma questão postou Baner ASP

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

Entrar

Total de itens

Registro em

Última visita

Sobre Baner

Contatos

Baner's Achievements

Reputação

(Resolvido) Formulario Não envia

(Resolvido) Formulario Não envia

(Resolvido) Formulario Não envia

(Resolvido) Formulario Não envia

Navegação

Atividades