Ir para conteúdo
Fórum Script Brasil
  • 0

Aspemail


Guest D-Style

Pergunta

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 & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" chr(10) & chr(13)

---------------------------------------------------------------------^

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

Abraços!

Link para o comentário
Compartilhar em outros sites

15 respostass a esta questão

Posts Recomendados

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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??

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0

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!!!

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0
Tem vários como, ASPEMAIL, ASPMAIL, CDONTS, ETC..... blink.gif

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

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...