Converter Form em .php para .Asp

[Rod.Web 0]

Oi pessoal,

acho que é nesta seção do asp que devo perguntar isso,

é o seguinte tenho esse arquivo de um form que envia o formulario via email, mas preciso que isso

ocorra em .asp, pois o site para onde estou fazendo isso só aceito .asp ou .aspx

 

se alguem puder me ajudar, o cod é:

 

<?php
$txtEmpresa = $_POST["txtEmpresa"];
$txtNome = $_POST["txtNome"];
$txtEmail = $_POST["txtEmail"];
$txtFone = $_POST["txtFone"];
$txtAssunto = $_POST ["txtAssunto"];
$mensagem .= "Empresa: $txtEmpresa\n\n";
$mensagem .= "Nome: $txtNome\n\n";
$mensagem .= "E-mail: $txtEmail\n\n";
$mensagem .= "Telefone: $txtFone\n\n";
$mensagem .= "Assunto: $txtAssunto\n\n";

mail("meuemail@meuemail.com.br", "Formulário: $txtNome $txtFone", $mensagem, "From: $txtEmail");

echo "<b>$txtNome</b>, sua mensagem foi efetuada com sucesso.<br>Em breve estaremos lhe respondendo.";
echo "<a href=\"contato.html\">Clique aqui para voltar!</a>";
?>

[xanburzum 169]

sugiro que estude este pequeno código de envio, existem varias

formas de envio de email, até mesmo de envio em massa com paginação e diversos componentes.

 

<% 
'recupera as variaveis

varEmpresa = request.form("txtEmpresa")
varNome = request.form("txtNome")
varEmail = request.form("txtEmail")
varFone = request.form("txtFone")
varAssunto = request.form("txtAssunto")
varmensagem = "Empresa: " & varEmpresa & "<br>" & vbCrLf & _
"Nome: " & varNome & "<br>" & vbCrLf & _
 "E-mail:  " &varEmail & "<br>" & vbCrLf & _
 "Telefone: " & varFone & "<br>" & vbCrLf & _
 "Assunto:  " & varAssunto & "<br>"


'cria o objeto para o envio de e-mail 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.seu_dominio.com.br" 

'porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 
= 25 

'porta do CDO 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'timeout 
objCDOSYSCon.Fields 
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 

objCDOSYSCon.Fields.update 

'atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

'e-mail do remetente 
objCDOSYSMail.From = "para@seu_dominio.com.br" 

'e-mail do destinatário 
objCDOSYSMail.To = "de@seu_dominio.com.br " 

'assunto da mensagem 
objCDOSYSMail.Subject = varAssunto 

'conteúdo da mensagem 
objCDOSYSMail.TextBody = varMensagem
'para envio da mensagem no formato html altere o TextBody para HtmlBody 
'objCDOSYSMail.HtmlBody = varMensagem 

'objCDOSYSMail.fields.update 
'envia e-mail 
objCDOSYSMail.Send 

Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

response.write "E-mail enviado para email@seu_dominio.com.br " 
%>

[Rod.Web 0]

e quando o objeto de envio do server for CDONTS?

 

muda algo?

 

Att,

Rod. Web

[xanburzum 169]

dá uma olhada neste link aqui