Ir para conteúdo
Fórum Script Brasil

D-Style

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    3

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por D-Style

  1. Aspemail

    em ASP

    Postado

    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.

  2. Aspemail

    em ASP

    Postado

    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!

  3. Aspemail

    em ASP

    Postado

    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!

×
×
  • Criar Novo...