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

Pessoal, tenho uma galeria de imagens que consegui com o amigo Filipe Bragança, quando clico no thumb ao lado direito, exibe a foto no centro da página, abaixo de cada foto exibida têm um frame para o visitante enviar a foto a um amigo ou a ele mesmo.

 

Só que exibe a mensagem que a foto foi enviada corretamente, mas não chega á lugar nenhum. Podem verificar por favor. Utilizo o componente AspMail que já está habilitado em meu servidor e também tenho permissão de enviar fotos anexadas, pois tenho sistema de cartão virtual e funciona perfeitamente.

 

O endereço é: http://www.gpsom.com/eventos/albumcom/sistemadefotos/

 

Obrigado á todos. :D

 

Segue os códigos:

 

Default.asp

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN" "http://www.w3.org/TR/html4/frameset.dtd"><html><head><title>.:: SISTEMA DE FOTOS - GPSOM ::.</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><frameset rows="*" cols="*,125" framespacing="1" frameborder="yes" border="1" bordercolor="#D9D9D9">  <frame src="meio.htm" name="exibe" scrolling="no" marginwidth="0" marginheight="0">  <frame src="menu.asp" name="rightFrame" scrolling="yes" noresize></frameset><noframes><body></body></noframes></html>

Menu.asp

 

<%@ LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Option Explicit%><!--#include file="conexao.asp"--><html><head><title>Sistema de Fotos - GPSOM</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="JavaScript" type="text/JavaScript"><!--function MM_jumpMenu(targ,selObj,restore){ //v3.0  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");  if (restore) selObj.selectedIndex=0;}//--></script></head><body bgcolor="#FFFFFF" text="#0066FF" vlink="#FFCC00" alink="#00CCFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><div align="center">  <form name="form1" method="post">	<p>	  <select name="quantia" onChange="MM_jumpMenu('parent.frames[\'rightFrame\']',this,0)">		<option value="10">Mostrar</option>		<option value="menu.asp?quantia=5">5</option>		<option value="menu.asp?quantia=10">10</option>		<option value="menu.asp?quantia=15">15</option>		<option value="menu.asp?quantia=20">20</option>		<option value="menu.asp?quantia=40">40</option>		<option value="menu.asp?quantia=50">50</option>		<option value="menu.asp?quantia=100">100</option>	  </select></p>	<p><strong><font size="2" face="Arial, Helvetica, sans-serif">Fotos</font></strong> </p>  </form><strong><font size="2" face="Arial, Helvetica, sans-serif"> </font></strong></div><div align="center">   <table width="24%" border="0">	<tr>	  <td><!-- Programação e vizualização dos cadastros -->		<%Dim objRs, x, intpage, strquantidadeintpage = request.QueryString("txtpage")Set objRS = Server.CreateObject("Adodb.recordset")call  Abreconexaostrquantidade = request.querystring("quantia")session("quantia") = strquantidadeif session("quantia") = "" then  objrs.pagesize = 10else     objrs.pagesize = session("quantia")end if    objRs.open "Select * From fotos order by id_foto" , Objconn, 3, 3   if intpage = "" then	intpage = 1	end if	objrs.absolutepage = cint(intpage) x = 1  while  NOT objRs.EOF and x <= objrs.pagesize%>	  </td>	</tr>	<tr>	  <td><div align="center"><a href="exibefoto.asp?foto=<%=objrs("id_foto")%>" target="exibe"><img src="thumbs/<%=objrs("foto")%>" width="75" height="56" border="1" align="middle"></a></div></td>	</tr>	<tr>	  <td><div align="center">		  <%  x = x + 1ObjRs.movenextwend%>		  <%if cint(intpage) > 1 then 'se for maior que a pagina 1 ira aparecer%>			<a href="menu.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>">Voltar</a>		  <%end if%>		  <%if cint(intpage) < objrs.pagecount then 'quantidade de paginas%>			<a href="menu.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>">Avançar</a>		  <%end if%>		  <%objrs.closeset ObjRs= Nothingcall fechaconexao%>	  </div></td>	</tr>  </table></div></body></html>

 

Exibefoto.asp

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="conexao.asp"--><html><head><title>.:: Turma Teen - O Portal da Turma de Cristo ::.</title><link href="estilo.css" rel="stylesheet" type="text/css"><script language="JavaScript" src="funcoes.js"></script><link href="estilo.css" type="text/css" rel="stylesheet"></head><body bgcolor="#F8f6f7" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><!-- Programação--><%if request.QueryString("foto") <> "" then  codigo = request.querystring("foto")Set objRS = Server.CreateObject("Adodb.recordset")call  Abreconexao  objRs.open "Select * From fotos where id_foto = " &codigo& ";" , Objconn,3,3  if not objrs.eof then '   set verpasta = objconn.execute("Select * from fotos_galerias where id_evento = "& objrs("id_evento") &";")'  if not verpasta.eof then'	pasta = verpasta("pasta")'  end if	'  verpasta.close%><!-- INICIO VIZUALIZACAO DA FOTO--><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">  <tr> 	<td width="100%" align="center" class="txt-comum">	<img src="fotos/<%=objrs("foto")%>" alt="<%=objrs("descricao")%>">	</td>  </tr> <tr>   <td class="verdana size11 c000000" align="center">	<%=objrs("descricao")%>   </td>  </tr>	</table><!-- FIM VIZUALIZACAO DA FOTO--><iframe width="100%" height="70" src="enviaemail.asp?endereco=fotos/<%=objrs("foto")%>" frameborder="0" scrolling="no"></iframe><%	end if	objrs.close	set ObjRs= Nothing call FechaConexaoELSEcodigo = request.querystring("foto")Set objRS = Server.CreateObject("Adodb.recordset")call  Conectar  objRs.open "Select * From fotos_galerias where id = "& session("evento") &";" , Objconn,3,3  if not objrs.eof then	pasta = objRS("pasta")%><!-- INICIO VIZUALIZACAO DA FOTO--><p> </p><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">  <tr> 	<td width="100%" align="center" class="txt-comum">	<img src="fotos/<%=objrs("foto")%>" alt="<%=objrs("descricao")%>">	</td>  </tr>  <tr>	<td align="center" class="txt-comum"><%=objrs("descricao")%></td>  </tr><%Set RS = Server.CreateObject("ADODB.Recordset")strQ = "Select count(id) as total From fotos where id_evento = '" &session("evento")& "';"RS.Open strQ, objconn,3,3if not(rs.eof) then%> <tr> 	<td height="10"> </td> </tr>	  <tr>	<td align="center" class="verdana size11 c000000">Total de Fotos: <strong><%=rs("total")%></strong></td>  </tr><%else%> <tr> 	<td height="10">erro</td> </tr>	 <%end ifrs.closeset rs = Nothing%>  </table><!-- FIM VIZUALIZACAO DA FOTO--><%	end if	objrs.close	set ObjRs= Nothing call FechaConexaoEND IF%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

cara...você tinha outro tópico que estava discutindo o mesmo problema.você já tentou fazer um teste simples de envio de email sem a foto pra ver se o problema é a foro, confguração de email ou problema com o componente do servidor?

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Enviaemail.asp

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="global.asp"--><html><head><title>Documento sem título</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="#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><%ELSEDim strbodyDim Mailer remetente = request.Form("nome.remetente") destinatario = request.Form("nome.destinatario") email_destino = request.Form("email.destinatario") foto =  request.Form("foto") 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=http://www.gpsom.com/eventos/albumcom/sistemadefotos/images/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 da GPSOM e lhe enviou essa foto.<br>  Acesse nosso site e veja varias 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.turmateen.com.br class='LinkNavegacao'>www.gpsom.com - 26 anos fazendo da sua diversão o nosso trabalho:: Acesse agora mesmo!</a></td>"strbody = strbody & "</tr></table></body></html>"'### Sistema de envio de email via AspMAIL ####		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")	Mailer.FromName = "GPSOM - Grupo PopSom"	Mailer.FromAddress = "meuemail@meuprovedorcom"	Mailer.RemoteHost = "smtp.meudominio.com.br" 	Mailer.Subject= "Seu amigo("&remetente&") lhe enviou uma foto." 'Assunto do email	Mailer.AddRecipient " ",("email_destino")  'Email do destinatario 	Mailer.BodyText = strbody	Mailer.ContentType = "text/html" On Error Resume Next  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">  Parabéns <i><%=remetente%></i>,<br>	    o e-mail para <b><%=destinatario%></b> foi enviado com sucesso.<br>	    Escolha outras fotos e envie também.</td>  </tr></table><%  Mailer.close  set Mailer = Nothing  End IfEND IF%></center></body></html>

Sem a foto ainda não, o restante sempre funcionou com outros aplicativos. Só postei de novo porquê não obtive nenhuma solução e achei que não seria tão dificil assim resolver isto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

veja esse trecho...você colocou aspas onde são variaveis, adicionei o email antes também apenas para não ficar em branco

 

 

 

 

Mailer.AddRecipient "email_destino",("email_destino") 'Email do destinatario

 

 

retire as partes em vermelho e faça o teste...de inicio achei esse problema(não esqueça de reconfigurar o servidor smtp colocar seu email no fromaddress)

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

olá amigoa duvida em si realmente não é tão dificilMas, o problema, é que temos varias variaveis no meio do caminho..- você tem o envio de email ..- Tem que anexar um arquivo ào email ..- Tem que buscar este caminho no banco ..- Tem que mostrar o form pro cara digitar o email ..Percebe?O unico modo de encontrar uma possivel solução, é ir fazendo por etapas, pra tentar encontrar o erro..Tendeu?Tipo.. faz cada uma dessas coisas que eu citei em separado.Depois, se alguma delas ja der problema.. você ja consegue ter pelo menos pra onde procurar..Se ainda assim der problema .. aí teriamos que ver a logica empregada.. e ver se na sequencia dela.. ela esta executando tudo o que deveria .. pois, ja me aconteceu de ter um if maluco no meio do caminho.. que pulava uma parte do codigo.. e nao gerava erro.. mas nao funcionava.. rsPrimeiro, veja se consegue isolar os casos.. pra tentar encontrar algum errinho.Abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Maravilha, Jonathan funcionou perfeitamente. So teem um probleminha a foto n'ao aparece no email.. faz um teste la... por favor...

Compartilhar este post

Link para o post
Compartilhar em outros sites

cmachado    0

cmachado
Postado

Gostaria de agradecer ao Jonathan http://forum.imasters.com.br/public/style_emoticons/default/clap.gif , pela grande ajuda, viu como foi tao simples. Tambem gostaria de agradecer bastante ao DARK0 http://forum.imasters.com.br/public/style_emoticons/default/joia.gif , ele foi muito util em suas palavras.

 

Obrigado galera pela ajuda. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Podem encerrar o topico. :D

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

ta certo cara..só falei aquilo tudo ..pra tentar te explicar porque uma coisa tao simples tinha se tornado tao dificil ...que bom que resolveu o problema ..qualquer coisa, posta aíabraç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