Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

cmachado

Galeria de Imagens

Por , em ASP Clássico

Recommended Posts

cmachado    0

cmachado
Postado

Olá pessoal, em alguns sites que expõem fotos, tem um link ao lado "envie essa foto para um amigo"Daí aparece um formulário para ser preenchido o e-mail do usuario e o e-mail da passoa que será enviado.Caso alguém saiba ou tem algum tipo de dica, gostaria de saber como é o código do formulário que pega a foto e envia.Grato.

Compartilhar este post

Link para o post
Compartilhar em outros sites

sr.silva    1

sr.silva
Postado

Seguinte, temos várias possibilidades de resolução1. Quer que o pessoal do fórum te ajude2. Quer pegar um "fonte" pronto e voltar para adpata-lo Fica a sua escolha, o que queres fazer???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

pow tiozinho a galera ajuda a fazer mas nao faz nada assim naova postando suas duvidas que voce verá muitos de ajudando

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Ok, vamos lá. É o seguinte, eu peguei este fonte com um amigo aqui do fórum, www.turmateen.com. Lá ele têm estes fontes que vou postar aqui. o que aconteçe e que não estou conseguindo fazer o script de enviar e-mail pegar a foto e fazer o envio. segue os scripts.Este script exibe a foto ao clicar no menu de fotos.exibefoto.asp

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Option Explicit%><!--#include file="conexao.asp"--><!-- Programação e vizualização dos cadastros --><%Dim objRs, x, intpage, codigocodigo = request.querystring("foto")intpage = request.QueryString("txtpage")Set objRS = Server.CreateObject("Adodb.recordset")call  Abreconexao  objrs.pagesize = 1  objRs.open "Select * From fotos where id=" + codigo + "" , Objconn, 3, 3  if intpage = "" then    intpage = 1	end if	objrs.absolutepage = cint(intpage) x = 1  while  NOT objRs.EOF and x <= objrs.pagesize%><html><head><title>Sistema de Fotos - GPSOM</title><link href="estilo.css" rel="stylesheet" type="text/css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#F0F0F0" text="#0066FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><div align="center"><br>  <img src="fotos/<%=objrs("foto")%>"></div><br><div align="center"><font color="#0066FF" size="2" face="Arial, Helvetica, sans-serif"><%=objrs("comenta")%></font></div><div align="center"><%  x = x + 1ObjRs.movenextwend%><%objrs.closeset ObjRs= Nothingcall fechaconexao%></div>	</body></html>

Este é o script que pega a foto e envia por e-mail.Ele funciona não dá erro, só que não está pegando a foto e muito menos enviando o e-mail.enviaemail.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><link href="estilo.css" rel="stylesheet" type="text/css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#F8f6f7" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><center><%IF request("acao") <> "enviar" then%><table width="500" border="0" align="center" cellpadding="0" cellspacing="0" class="tabela">  <form action="?acao=enviar" method="post" name="form">  <input type="hidden" name="foto" value="<%=request("endereco")%>">    <tr>       <td colspan="3" align="center" class="txt-comum">Envie essa foto para um         amigo </td>    </tr>    <tr>       <td width="49%" align="center" class="txt-comum"><div align="right">Nome           do seu amigo:           <input name="nome.destinatario" type="text" id="nome.destinatario" class="form">        </div></td>      <td width="1%" align="center" class="txt-comum"> <div align="left"> </div></td>      <td width="50%" align="center" class="txt-comum"><div align="right">E-mail           do seu amigo:           <input name="email.destinatario" type="text" id="email.destinatario" class="form">        </div></td>    </tr>    <tr>       <td align="center" class="txt-comum"><div align="right">Seu nome:           <input name="nome.remetente" type="text" id="nome.remetente" class="form">        </div></td>      <td align="center" class="txt-comum"> <div align="left"> </div></td>      <td align="center" class="txt-comum"> <div align="right">          <input type="submit" name="Submit" value="Enviar" class="form">        </div></td>    </tr>  </form></table><%ELSE remetente = request.Form("nome.remetente") destinatario = request.Form("nome.destinatario") email_destino = request.Form("email.destinatario") foto =  request.Form("foto")'### Sistema de envio de email via ASPMail ####		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.FromName = "GPSOM - Grupo PopSom"Mailer.FromAddress = "webmaster@gpsom.com"Mailer.RemoteHost = "smtp.infolink.com.br;smtpdom.infolink.com.br" Mailer.Subject= "Seu amigo" &("remetente") & " lhe enviou uma foto." 'Assunto do emailMailer.AddRecipient " ",("email_destino")  'Email do destinatario  strbody = "<html><head><style>"strbody = strbody & "BODY {"strbody = strbody & "scrollbar-face-color: #DCE0E2;"strbody = strbody &	"scrollbar-shadow-color: #687888;"strbody = strbody & "scrollbar-highlight-color: #FFFFFF;"strbody = strbody & "scrollbar-3dlight-color: #687888;"strbody = strbody & "scrollbar-darkshadow-color: #DCE0E2;"strbody = strbody & "scrollbar-track-color: #BCBFC0;"strbody = strbody & "scrollbar-arrow-color: #6E7E88;}"strbody = strbody & ".LinkNavegacao {"strbody = strbody & "FONT-SIZE: 9px; COLOR: black; FONT-FAMILY: verdana; TEXT-DECORATION: none;}"strbody = strbody & ".tabela {"strbody = strbody &	"margin: 1px;"strbody = strbody &	"border: 1px solid #cccccc;}"strbody = strbody & "</style></head><body>"strbody = strbody & "<table width=600 border=0 cellspacing=0 cellpadding=0 class=tabela><tr>"strbody = strbody & "<td><img src=imagens/topo_email_fotos.jpg></td></tr>"strbody = strbody & "<tr><td><font color=#626262 size=2 face=Verdana, Arial, Helvetica, sans-serif>Olá <strong>" &destinatario& "</strong>,<br>"strbody = strbody & "  seu amigo(<strong>"&remetente&"</strong>) deu uma passadinha no Site GPSOM e lhe enviou essa foto.<br>  Acesse nosso site e veja várias outras fotos.</font></td>"strbody = strbody & "</tr><tr align=center>" strbody = strbody & "<td><p><img src='http://"&Request.ServerVariables("HTTP_HOST")&"/fotos/"&foto&"'></p></td>"strbody = strbody & "</tr><tr align=center> "strbody = strbody & "<td align=center><a href=http://www.gpsom.com class='LinkNavegacao'>www.gpsom.com - 26 anos fazendo da sua diversão o nosso trabalho.</a></td>"strbody = strbody & "</tr></table></body></html>"Mailer.BodyText = strbodyMailer.ContentType = "text/html"On Error Resume Next  x = Mailer.SendMail 'envia o email If Err <> 0 Then 	Response.Write "Ocorreu o seguinte erro: " & Err.Description else%><table width="400" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>    <td class="txt-especial"> </td>  </tr>  <tr>    <td class="txt-especial"> </td>  </tr>  <tr>    <td class="txt-especial"> Parabéns <i><%=remetente%></i>,</td>  </tr>  <tr>    <td class="txt-especial"> </td>  </tr>  <tr>    <td class="txt-especial">O e-mail para <b><%=destinatario%></b> foi enviado com sucesso.</td>  </tr>  <tr>    <td class="txt-especial"> </td>  </tr>  <tr>    <td class="txt-especial">Escolha outras fotos e envie também. </td>  </tr></table>  <%  Mailer.close  Set Mailer = Nothing  End IfEND IF%></center></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Olá Dark, ai é que está o problema, não dá erro nenhum. ele simplesmente exibe que a mensagem foi enviada cm sucesso, mas não chega nenhuma mensagem...

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Em servidor, com permissão de rodas ASP, pois tenho outros aplicativos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

sim sim..mas perguntei pelo seguinte..o envio de e-mail em ASP, utiliza Componentes.você esta usando o ASPMAIL.Pode ser um problema com o componente tambem..Seu servidor possui mais algum componente de email cadastrado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Exato, utilizo este componente em meu servidor, e funciona direitinho com outras aplicações.

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

olha meu velhoo que aparenta, é alguma limitação, quanto ào envio de anexo com este componente em seu servidorvocê possui alguma outra aplicação, que envio anexos junto ào e-mail?

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Não, nunca utilizei nenhum, mas deixa eu verificar. E posto aqui.Lembrei !!! Tenho um sistema de cartão Postal.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Dark, pelo que entendi o negócio e o seguinte, preciso que o código que envia o mail pegue o id da foto, armazene neste e-mail e em seguida busque na base e envie junto com a mensagem, talvez se fizesse um link para abrir a janela de envio após pegar a id da foto.Veja o que pode fazer..Obrigado pela sua atenção.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito