ASP - Erro em formulario de envio

[André Leone 0]

Olás.

 

Está tudo certim no servidor.

 

Link: http://www.paulinas.org.br/adriana/prevenda2.htm

 

mas num ta "fonunciando"

 

eu queria que independente do usuario escrever o email certo ou errado, para nao aparecer o erro, que tivesse como por um email padrão, do tipo:

 

Mailer.FromAddress = "online3@paulinas.com.br"

 

Mensagem de erro:

 

FromAddress Property cannot be blank.

 

prevenda2.htm

 

<script>

function enviar() {

if (critica()) {

alert (”Sugestão enviada”);

}

else {

document.form1.textoemail.focus();

document.form1.textoemail.select(); }

function critica() {

var email = document.form1.textoemail.value;

if (email.length == 0) {

window.alert (”Você esqueceu de colocar o e-mail”);

return false;}

if ((email.indexOf(”@”,0) < 1) || (email.indexOf(”@”,0) == email.length - 1)) {

window.alert(”Seu e-mail está incorreto”);

return false; }

return true;

}

}

</script>

<span class="style1">Digite seus dados e entraremos em contato:

</span>

</span>

<p class="style1">

<form action="http://www.paulinas.org.br/adriana/enviaemail.asp" method="POST" class="form">

<p><br>

<span class="style3">Nome:  

<input type="text" name="nome" size="24">

<br>

<BR>

E-Mail:  <input type="text" name="email" size="24">

</span></p>

<p><span class="style3"><br>

Comentário:<br>

<textarea name="mensagem" rows="6" cols="40"></textarea>

</span>

<br>

<input type="submit" name="Submit" value="Enviar">

<input type="submit" name="Submit2" value="Limpar">

<br>

</p>

</form>

[b]código do enviamail.asp[/b]

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.paulinas.com.br"
Mailer.AddRecipient "Formulário" , "online3@paulinas.com.br"
Mailer.Subject = "Formulário"

Mailer.BodyText = "Nome........... " & request.form("nome") & vbcrlf
Mailer.BodyText = "E-mail......... " & request.form("email") & vbcrlf
Mailer.BodyText = "Mensagem........ " & request.form("mensagem") & vbcrlf

if Mailer.SendMail then
Response.redirect "http://www.paulinas.org.br/adriana/default.htm"
else
Response.Write mailer.response
end if
%>

aguardo ajuda...

 

brigadão...

[alebae 0]

Tópico movido de Dreamweaver http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

[hargon 64]

Manda escrever request("email"), na página enviamail.asp, veja se realmente tem algum valor.

[Ted k' 126]

eu queria que independente do usuario escrever o email certo ou errado, para nao aparecer o erro, que tivesse como por um email padrão, do tipo:

Mailer.FromAddress = "online3@paulinas.com.br"

e pq não faz isso? :huh:

[hargon 64]

Boa observação amigo mohammed.

[André Leone 0]

eu queria que independente do usuario escrever o email certo ou errado, para nao aparecer o erro, que tivesse como por um email padrão, do tipo:

Mailer.FromAddress = "online3@paulinas.com.br"

e pq não faz isso? :huh:

 

 

Eu fiz e nao rolou...

 

 

Qual a estrutura do response.write (só pra eu entender melhor)

 

response.write (<comando><comando>) etc...

 

 

seria possível que ele respondesse com um html direto também?

 

response.write "http://exemplo.com.br"

[xanburzum 169]

<%
=====================
varemail=request("email")
response.write(varemail)
response.end()
=====================

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.paulinas.com.br"
Mailer.AddRecipient "Formulário" , "online3@paulinas.com.br"
Mailer.Subject = "Formulário"

Mailer.BodyText = "Nome........... " & request.form("nome") & vbcrlf
Mailer.BodyText = "E-mail......... " & request.form("email") & vbcrlf
Mailer.BodyText = "Mensagem........ " & request.form("mensagem") & vbcrlf

if Mailer.SendMail then
Response.redirect "http://www.paulinas.org.br/adriana/default.htm"
else
Response.Write mailer.response
end if
%>

e ano eskça de consultar o laboratorio de scripts, existem ótimos exemplos...