Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest D-Style

Aspemail

Question

Guest D-Style

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!

Share this post


Link to post
Share on other sites

15 answers to this question

Recommended Posts

  • 0

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

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

Share this post


Link to post
Share on other sites
  • 0
Guest line_off

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

Share this post


Link to post
Share on other sites
  • 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!

Share this post


Link to post
Share on other 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??

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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!

Share this post


Link to post
Share on other sites
  • 0

Em qual provedor você está ??

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

Share this post


Link to post
Share on other 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!!!

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other sites
  • 0
Guest Guest

Oi galera,

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148497
    • Total Posts
      644189
×
×
  • Create New...