|
Tudo! :)
Experimente algo parecido com o c�digo abaixo,
acrescentando campos de acordo com o seu formul�rio.
Request("nomedocampo")
obs... CHR(13) & CHR(10) � para pular
linha.
Se n�o funcionar � pq o CDONTS n�o est� configurado
corretamente no servidor IIS
<%
Set objmail =
Server.CreateObject("CDONTS.NewMail")
objmail.from = "seuemail@provedor.com"
objmail.to =
Request("email_amigo")
objmail.subject = "Este site foi indicado por um
amigo"
objmail.body = "Ol� " & Request("nome_amigo") & CHR(13) &
CHR(10) & CHR(13) & CHR(10) &_
Request("nome_remetente") & "
convida voc� para conhecer o site Tal." &_
CHR(13) & CHR(10) &
CHR(13) & CHR(10) & " " & "http://www.nomedosite.com.br"
&_
CHR(13) & CHR(10) & CHR(13) & CHR(10) &
" " & "Site tal, bla... bla... bla...!"
On Error Resume Next
objmail.send
If Err <> 0 then
Response.Write
"Foi encontrado um erro (" & Err.Description & ")."
Response.End
End If
Response.Write "Mensagem enviada com
sucesso!"
%>
--------------------
Se preferir use o Response.Redirect "http://nomedohost/sucesso.htm" Ao
inv�s do Response.Write "Mensagem enviada com sucesso." Bole uma msg de sucesso
e coloque um bot�o para voltar ou fechar. Bem mais interessante.
Abra�os... e boa
programa��o.
----- Original Message -----
Sent: Friday, September 07, 2001 10:44
AM
Subject: [Asp10.net] ERRO no uso do
c�digo ASP para indicar uma p�gina
Ol� !
Algu�m pode me dizer o que h� de errado na mensagem
abaixo?
Valeu, pessoal!
=======================================
Erro de tempo
de execu��o do Microsoft VBScript error '800a0046'
Permiss�o negada
/indique.asp, line 15
======================================
<%
str_nome =
trim(request.form("nome"))
str_remetente =
trim(request.form("remetente"))
str_destinatario =
trim(request.form("destinatario"))
str_assunto = "Press Release Email
Clube"
endereco = request.form("pagina")
str_mensagem = "TEXTO TEXTO
TEXTO < a href =" "" & endereco & ">" & endereco &
"</a>"
set mensagem =
server.createobject("CDONTS.NewMail")
mensagem.from = str_nome & "("
& str_remetente & ")"
mensagem.to =
str_destinatario
mensagem.Subject = str_assunto
mensagem.bodyformat =
0
mensagem.mailformat = 0
mensagem.Body =
str_mensagem
mensagem.Send
response.write "<b> Dados da mensagem
</b>"
response.write "<br><i> Remetente: </i> "
& str_nome & " - " & str_remetente
response.write "
<br><i> Destinat�rio: </i> " &
str_destinatario
response.write "<br><i> Assunto: </i> "
& str_assunto
response.write "<br><i> Mensagem: </i>
" & str_mensagem
response.write "<br><h2> Mensagem enviada
com sucesso</h2>"
response.write "<br><strong><a
href=" & endereco & "> Clique aqui para voltar!
</a></strong>"
%>
http://www.asp10.net
==========================================
Solu��es simples para
problemas complexos
==========================================
http://www.asp10.net
==========================================
Solu��es simples para problemas complexos
==========================================
|
