Ir para conteúdo
Fórum Script Brasil

D-Style

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre D-Style

D-Style's Achievements

0

Reputação

  1. D-Style

    Aspemail

    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. D-Style

    Aspemail

    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 E ai, alguém pode me ajudar? Abraços!
  3. D-Style

    Aspemail

    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: Linha 21: Set Mail = Server.CreateObject("Persits.MailSender") E agora? Abraços!
×
×
  • Criar Novo...