Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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">.:: 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>Carregando comentários...