[Resolvido] Arquivo sem funcionar
Olá Pessoal!!, criei 2 formulários ASP, sendo um o orcamento.asp e pedido.asp e estou com o seguinte problema:
O formulário orcamento.asp está funcionando perfeitamente, então fiz uma cópia dele, alterei o desejado para teste e salei-o como pedido.asp, os campos adicionados foram os "carro" e "imagem".
sendo que o arquivo pedido.asp mesmo tendo apenas acrescentado esses 2 campos não está funcionando, você´s poderiam me ajudar ??
Segue o código dos 2:
ORCAMENTO.ASP
-----------------------------------------------------------------------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>ENVIA</title>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
.style1 {
color: #0066CC;
font-weight: bold;
}
.style2 {
font-size: 24px
}
-->
</style>
</head>
<body>
<%
Dim mail
Dim msgTxt
Dim subject
Dim var_nome
Dim var_produto
Dim var_qtde
Dim var_cidade
Dim var_estado
Dim var_email
Dim var_telefone
var_nome = Request.form("nome")
var_produto = Request.form("produto")
var_qtde = Request.form("qtde")
var_cidade = Request.form("cidade")
var_estado = Request.form("estado")
var_email = Request.form("email")
var_telefone = Request.form("telefone")
subject = "Novo Contato de seu Site"
msgTxt = "<html><head></head><body bgcolor='#FFFFFF'>Foi gerado uma Pend�ncia de Or�amento para ser enviada ao Cliente.<br><br>"
msgTxt = msgTxt & "Nome: <b>"
msgTxt = msgTxt & var_nome
msgTxt = msgTxt & "</b><br>Produto: <b>"
msgTxt = msgTxt & var_produto
msgTxt = msgTxt & "</b><br>Quantidade: <b>"
msgTxt = msgTxt & var_qtde
msgTxt = msgTxt & "</b><br>Cidade: <b>"
msgTxt = msgTxt & var_cidade
msgTxt = msgTxt & "</b><br>Estado: <b>"
msgTxt = msgTxt & var_estado
msgTxt = msgTxt & "</b><br>E-mail: <b>"
msgTxt = msgTxt & var_email
msgTxt = msgTxt & "</b><br>Telefone: <b>"
msgTxt = msgTxt & var_telefone
msgTxt = msgTxt & "</b></body></html>"
Set mail = Server.CreateObject("CDO.Message")
mail.To = "contato@tudoemsandalias.com.br"
mail.From = "orcamento@tudoemsandalias.com.br"
mail.Subject = subject
mail.HTMLBody = msgTxt
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-scripts.laniway.com.br"
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
mail.Configuration.Fields.Update
mail.send
%>
</body>
</html>-------------------------------------------------------------------------------------------------------------------------------------
[b]PEDIDO.ASP[/b]
-------------------------------------------------------------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>ENVIA</title>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css"><!--
.style1 {
color: #0066CC;
font-weight: bold;
}
.style2 {
font-size: 24px
}-->
</style>
</head>
<body>
<%
Dim mail
Dim msgTxt
Dim subject
Dim var_nome
Dim var_produto
Dim var_qtde
Dim var_cidade
Dim var_estado
Dim var_email
Dim var_telefone
Dim var_imagem
Dim var_carro
var_nome = Request.form("nome")
var_produto = Request.form("produto")
var_qtde = Request.form("qtde")
var_cidade = Request.form("cidade")
var_estado = Request.form("estado")
var_email = Request.form("email")
var_telefone = Request.form("telefone")
var_imagem = Request.form("imagem")
var_carro = Request.form("carro")
subject = "Novo Contato de seu Site"
msgTxt = "<html><head></head><body bgcolor='#FFFFFF'>Foi gerado uma Pend�ncia de Or�amento para ser enviada ao Cliente.<br><br>"
msgTxt = msgTxt & "Nome: <b>"
msgTxt = msgTxt & var_nome
msgTxt = msgTxt & "</b><br>Produto: <b>"
msgTxt = msgTxt & var_produto
msgTxt = msgTxt & "</b><br>Quantidade: <b>"
msgTxt = msgTxt & var_qtde
msgTxt = msgTxt & "</b><br>Cidade: <b>"
msgTxt = msgTxt & var_cidade
msgTxt = msgTxt & "</b><br>Estado: <b>"
msgTxt = msgTxt & var_estado
msgTxt = msgTxt & "</b><br>E-mail: <b>"
msgTxt = msgTxt & var_email
msgTxt = msgTxt & "</b><br>Telefone: <b>"
msgTxt = msgTxt & var_telefone
msgTxt = msgTxt & "</b><br>imagem: <b>"
msgTxt = msgTxt & var_imagem
msgTxt = msgTxt & "</b><br>carro: <b>"
msgTxt = msgTxt & var_carro
msgTxt = msgTxt & "</b></body></html>"
Set mail = Server.CreateObject("CDO.Message")
mail.To = "contato@tudoemsandalias.com.br"
mail.From = "orcamento@tudoemsandalias.com.br"
mail.Subject = subject
mail.HTMLBody = msgTxt
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-scripts.laniway.com.br"
mail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
mail.Configuration.Fields.Update
mail.send
%>
</body>
</html>Discussão (5)
Carregando comentários...