arldin Postado Julho 25, 2008 Denunciar Share Postado Julho 25, 2008 <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "seuemail@seudominio.com.br" cdoConfig.Fields.Item(sch & "sendpassword") = "senha do email que vai receber" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = request.Form("responder") cdoMessage.To = request.Form("destino") cdoMessage.Subject = "Formulario de Contato" strBody = "<strong><p>DADOS DA FESTA</strong>" & vbCrLf & vbCrLf & _ "<strong><p>NOME: <strong>"& Request("nome") & vbCrLf & _ "<strong>E-MAIL:<strong> "& Request("responder") & vbCrLf & _ "<strong>ASSUNTO:<strong> "& Request("assunto") & vbCrLf & _ "<strong>ESCOLHA:<strong> "& Request("escolha") & vbCrLf & _ "<strong>TEMAS: <strong>"& Request("tema") & vbCrLf & _ "<strong><p>OPCÕES DE PAGAMENTO:<strong> "& Request("pag") & vbCrLf & _ "<strong>CHEQUE NUM: "& Request("numch") & vbCrLf & _ "<strong>BANCO NUM:<strong> "& Request("bcnum") & vbCrLf & _ "<strong>CONTA NUM:<strong> "& Request("cc") & vbCrLf & _ "<strong>BOM PARA:<strong> "& Request("dta") & vbCrLf & _ "<strong> COLOQUE NOME DO ANIVERSARIANTE,LOCAL DA FESTA.PARA OS CONVITES:<strong><p> "& Request("mensagem") strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.write "O e-mail foi processado e enviado com sucesso" %> Amigos eu gostaria de saber se e posivel colocar depois desta mensagemde envio de Email ele seguise para outra paginaPor Exemploresponse Redirect "http://www.index.asp" Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Notax Postado Julho 25, 2008 Denunciar Share Postado Julho 25, 2008 nesse caso eu faria assim:ao invés de response.write "O e-mail foi processado e enviado com sucesso"eu colocaria direto um response.redirect "sucesso.asp"na pagina sucesso.asp colocaria a mensagem"O e-mail foi processado e enviado com sucesso" e nessa mesma pagina colocaria uma tag de redirecionamento para index.aspa tag de redirecionamento é assim:<META HTTP-EQUIV=Refresh CONTENT="5; URL=http://www.seudominio.index.asp">essa tag deve ser inclusa entre as tags <head> </head>e o 5 significa que após cinco segundos na página sucesso.asp o usuário será automaticamente redirecionado para index.asp!era isso que você queria?[]'s Notax Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 arldin Postado Julho 25, 2008 Autor Denunciar Share Postado Julho 25, 2008 Valeu muito Obridado Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
arldin
<% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.seudominio.com.br" cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "seuemail@seudominio.com.br" cdoConfig.Fields.Item(sch & "sendpassword") = "senha do email que vai receber" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = request.Form("responder") cdoMessage.To = request.Form("destino") cdoMessage.Subject = "Formulario de Contato" strBody = "<strong><p>DADOS DA FESTA</strong>" & vbCrLf & vbCrLf & _ "<strong><p>NOME: <strong>"& Request("nome") & vbCrLf & _ "<strong>E-MAIL:<strong> "& Request("responder") & vbCrLf & _ "<strong>ASSUNTO:<strong> "& Request("assunto") & vbCrLf & _ "<strong>ESCOLHA:<strong> "& Request("escolha") & vbCrLf & _ "<strong>TEMAS: <strong>"& Request("tema") & vbCrLf & _ "<strong><p>OPCÕES DE PAGAMENTO:<strong> "& Request("pag") & vbCrLf & _ "<strong>CHEQUE NUM: "& Request("numch") & vbCrLf & _ "<strong>BANCO NUM:<strong> "& Request("bcnum") & vbCrLf & _ "<strong>CONTA NUM:<strong> "& Request("cc") & vbCrLf & _ "<strong>BOM PARA:<strong> "& Request("dta") & vbCrLf & _ "<strong> COLOQUE NOME DO ANIVERSARIANTE,LOCAL DA FESTA.PARA OS CONVITES:<strong><p> "& Request("mensagem") strBody = strBody & "." cdoMessage.HTMLBody = strBody cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.write "O e-mail foi processado e enviado com sucesso" %>Amigos eu gostaria de saber se e posivel colocar depois desta mensagem
de envio de Email ele seguise para outra pagina
Por Exemplo
response Redirect "http://www.index.asp"
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.