Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

James Cidrão

[Resolvido] Arquivo sem funcionar

Por , em ASP Clássico

Recommended Posts

James Cidrão    0

James Cidrão
Postado

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"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta 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"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta 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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é gerado algum erro ???

poste o numero da linha e o erro , caso seja gerado ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

James Cidrão    0

James Cidrão
Postado

é gerado algum erro ???

poste o numero da linha e o erro , caso seja gerado ...

 

 

O site não pode exibir a página

HTTP 500

Causas prováveis:

•O site está em manutenção.

•O site tem um erro de programação.

 

Você pode tentar:

Atualizar a página.

 

Voltar para a página anterior.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Desabilita no navegador a opção "Mostra mensagens de erro http amigáveis"

 

Ferramentas / Opções da Internet/ Avançadas

 

 

Posta o erro que aparece.

Compartilhar este post

Link para o post
Compartilhar em outros sites

James Cidrão    0

James Cidrão
Postado

Cara, tú matou a charada!!!, qdo desabilitei a msg, apresentou o problema, era o CODEPAGE que era incompatíel, copiei o conteúdo da programação em um novo arquivo e ficou beleza!!!

 

Mto Obrigado a todos!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito