Aspemail

Outubro 17, 2003

Olá!

Estou com um problema em um código de ASPEMAIL, que deveria servir para enviar uma foto que o usuário escolher do site para enviar por e-mail. Abaixo, segue o código da página na qual se processa o envio:

<%@ LANGUAGE = "VBScript" %>

<%
foto = Request.form("foto")
seunome = Request.form("seunome")
seuemail = Request.form("seuemail")
amigo = Request.form("amigo")
amigoemail = Request.form("amigoemail")
comentario = Request.form("comentario")

Sub SendPassEmail(sComente)
sBody = sBody & "<body bgcolor=ffffff>" & chr(10) & chr(13)
sBody = sBody & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" chr(10) & chr(13)
sBody = sBody & "<p align=left><b><a href=mailto:" & seuemail & ">" & seunome & "</a></b> achou essa foto, que ele gostaria que você visse:<br>" chr(10) & chr(13)
sBody = sBody & "<img src=" & foto & "></p>" chr(10) & chr(13)
sBody = sBody & "<p align=left>Ele(a) também deixou um recado: <br>" & comentario & "</p>" chr(10) & chr(13)

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.servidor.com.br" ' Specify a valid SMTP server
Mail.From = seuemail
Mail.FromName = seunome
Mail.AddAddress = amigoemail
Mail.Subject = ""& seunome &" lhe enviou uma foto pelo site"
Mail.IsHTML = True
Mail.Body = sBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write "Erro encontrado: " & Err.Description
else
  response.write "Foto Enviada."
End If

End Sub

%>
<%
If sString <> "" Then
 Response.Write (sString & "Por favor clique no botão <B>Voltar (Back)</B> no seu navegador e tente novamente.</CENTER>")
Else
 Call SendPassEmail(sComente)
End If
%>

O erro que aparece é o seguinte:

Microsoft VBScript compilation error '800a0401'
Expected end of statement
/aspemail.asp, line 14
sBody = sBody & "Oi " & amigo & ", beleza?" chr(10) & chr(13)
---------------------------------------------------------------------^

E aí galera? Alguém pode me ajudar a resolver este probleminha?

Abraços!

pgmador · Outubro 17, 2003

Acho que na linha 14 está faltando o sinal & antes do chr(10)

sBody = sBody & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" & chr(10) & chr(13)

Veja se é isto.

[]'s

Nelson Soares

http://www.ondagospel.com.br

Decio · Outubro 17, 2003

Eu sugiro também substituir o chr(10) & chr(13) por simplesmente a tag " ",

se é que a sua intenção é apenas dar um "line feed junto com um CR"

Outubro 17, 2003

Cara!!

Evite de usar CHR() por TAG´S, evitando alguns erros

sBody = sBody & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" & chr(10) & chr(13)

Boa Sorte!!

D-Style · Outubro 17, 2003

Eu fiz o que vocês disseram:

sBody = sBody & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" & chr(10) & chr(13)

Mas agora dá outro erro:

Objeto Server, ASP 0177 (0x800401F3) Seqüência de classe inválida /aspemail.asp, line 21

Linha 21:

Set Mail = Server.CreateObject("Persits.MailSender")

E agora?

Abraços!

Decio · Outubro 17, 2003

Eu não conheço este componente que você usa para enviar e-mail, eu costumo usar o CDONTS , e já cheguei a usar o ASPMail, mas parece que ele não esta registrado corretamente , pois não conseguiu criar o objeto.

Que componente é este??

pgmador · Outubro 17, 2003

Por algum motivo ele não conseguiu criar o objeto.

O seu servidor tem este componente instalado?

jissa · Outubro 18, 2003

No ASPMail eu uso:

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

resopi · Outubro 18, 2003

No ASPMail eu uso:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Olá cara isso ai é um problema q ateh agora não entendi direrio eu nann sei se são 2 fabricantes ou vresoes diferentes do ASPmail mas dependendo do componente instalod você tem q usar

Server.CreateObject("SMTPsvg.Mailer")

ou

Server.CreateObject("Persits.MailSender")

falou

D-Style · Outubro 22, 2003

Bom amigos, volto aqui com minha dúvida... Fui alterando o código, e ele ficou assim:

correio.asp

<!-- #INCLUDE FILE="inc.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn

mySQL1 = "SELECT * from Festa where FestaID = " & request.querystring("FestaID") & ""
set rs = conn.execute(mysql1)
%>
<%
    ID = request.querystring("id") 

    Set Myconn = Server.CreateObject("ADODB.Connection")
    Myconn.Open dsn
    SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
    mySQL = "select * from Fotos WHERE ID = " & ID & ""
    mytable.open mysql,myconn,3
%>
<body class="fotos-fundo" leftmargin="3" topmargin="5" marginwidth="3" marginheight="5">
<form name="form1" method="post" action="envia.asp">
  <table width="400" border="0" cellspacing="0" cellpadding="2" align="center">
    <tr> 
      <td colspan="3"><input name="foto" type="hidden" value="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/B/<%= mytable.fields("Foto") %>.jpg">
        <img src="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/<%= mytable.fields("Foto") %>.jpg"></td>
    </tr>
    <tr> 
      <td width="160" align="right"><font class="normal">Seu Nome.:&nbsp;</font></td>
      <td width="3">&nbsp;</td>
      <td> <input id="seunome" name="seunome" size="30"> </td>
    </tr>
    <tr> 
      <td width="160" height="24" align="right"><font class="normal">Seu E-mail.:&nbsp;</font></td>
      <td width="3">&nbsp;</td>
      <td> <input id="seuemail" name="seuemail" size="30"> </td>
    </tr>
    <tr> 
      <td width="160" align="right"><font class="normal">Nome do Amigo.:&nbsp;</font></td>
      <td width="3">&nbsp;</td>
      <td> <input id="amigo" name="amigo" size="30"> </td>
    </tr>
    <tr> 
      <td width="160" align="right"><font class="normal">E-Mail do Amigo.:&nbsp;</font></td>
      <td>&nbsp;</td>
      <td><input id="amigoemail" name="amigoemail" size="30"></td>
    </tr>
    <tr> 
      <td width="160" align="right" valign="top"><font class="normal">Coment&aacute;rio.:&nbsp;</font></td>
      <td>&nbsp;</td>
      <td><textarea name="comentario" cols="26" rows="5" id="comentario"></textarea></td>
    </tr>
  </table>
<p align="center"><a href="javascript: document.forms[0].submit();"><img src="mandar.gif" width="66" height="22" border="0"></a> 
</form>
</body>
</html>

envia.asp

<%@ LANGUAGE = "VBScript" %>
<%
foto = Request.form("foto")
seunome = Request.form("seunome")
seuemail = Request.form("seuemail")
amigo = Request.form("amigo")
amigoemail = Request.form("amigoemail")
comentario = Request.form("comentario")

Sub SendPassEmail(sComente)
    sBody = sBody & "<body bgcolor=ffffff>" & chr(10) & chr(13)
    sBody = sBody & "<p align=left><a href=http://www.site.com.br target=_new><img src=logomarca.gif border=0></a></p>" & chr(10) & chr(13)
    sBody = sBody & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" & chr(10) & chr(13)
    sBody = sBody & "<p align=left><b><a href=mailto:" & seuemail & ">" & seunome & "</a></b> achou essa foto, que ele gostaria que você visse:<br>" & chr(10) & chr(13)
    sBody = sBody & "<img src=" & foto & "></p>" & chr(10) & chr(13)
    sBody = sBody & "<p align=left>Ele(a) também deixou um comentário: <br>" & comentario & "</p>" & chr(10) & chr(13)
    sBody = sBody & "<p align=left>Veja fotos legais você também! Quem sabe não se encontra por lá? Basta acessar:<br><b><a href=http://www.site.com.br target=_new>www.site.com.br</a></b></p>" & chr(10) & chr(13)

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.servidor.com.br" 
Mail.From = seuemail
Mail.FromName = seunome
Mail.AddAddress = amigoemail
Mail.Subject = ""& seunome &" lhe enviou uma foto"
Mail.IsHTML = True
Mail.Body = sBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
   Response.Write "Erro encontrado: " & Err.Description
else
   response.write "Foto Enviada."
End If

End Sub

%>
<%
If sString <> "" Then
  Response.Write (sString & "Por favor clique no botão <B>Voltar (Back)</B> no seu navegador e tente novamente.</CENTER>")
Else
  Call SendPassEmail(sComente)
End If
%>

O erro que sempre aparece é sequencia inválida, na linha

Set Mail = Server.CreateObject("Persits.MailSender")

E ai, alguém pode me ajudar?

Abraços!

hara · Outubro 22, 2003

Em qual provedor você está ??

Você tem certeza de que o Persits tá instalado no seu provedor ??

ursolouco · Outubro 22, 2003

Brother!!

Seu servidor dá suporte a ASPMail ?

Se sim, entre em contato junto ao seu suporte tecnico para verificar as condições do seu HOST. Eu recebi um e-mail hoje mesmo de um cara aqui do forum dizendo sobre o mesmo problema, testei num host de um amigo que foi embora da empresa hoje e funcionou numa boa. Ai ele ligou no suporte e foi resolvido, era problema no Host dele.

Abraços!!!

D-Style · Outubro 23, 2003

O provedor que eu uso é o Brasil Domínios, e ele dá suporte a ASPEMAIL... Notem a diferença... Não é ASPMAIL, mas sim ASPEMAIL...

O Persits está instalado no servidor sim, porque no meu site existem vários formularios q utilizam ASPEMAIL, e todos funcionam, menos esse. O pior é q não posso utilizar CDonts, q é bem mais pratico e facil, justamente porque o unico componente q tem no servidor é ASPEMAIL.

Abril 13, 2004

Oi galera,

O ASPMail é um componente e o ASPEMail é outro, totalmente diferente.

Victor · Abril 13, 2004

Tem vários como, ASPEMAIL, ASPMAIL, CDONTS, ETC.....

dark0 · Abril 13, 2004

Tem vários como, ASPEMAIL, ASPMAIL, CDONTS, ETC.....

o que isso tem a ver com a pergunta do tópico?

mas vamos ver.. D-Style, as dicas dadas resolveram o seu problema?

cadastre-se no fórum, e participe de nossa comunidade!

Se você ainda esta com problemas, poste aí, pois nem vou citar nada ainda.. pois se você já resolveu, será inutil..

Ate mais

Entrar

Aspemail

Pergunta

Guest D-Style

Link para o comentário

Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest line_off

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest Guest

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns