Não Envia Foto!

[claytonprog]

Pessoal! To com um probleminha. É o seguinte: tenho um formulario de indicação de produtos, até ai beleza está trazendo a foto do produto, porém quando o usuário envia a foto ela não vai.

aqui estão os fontes:

indique.asp

<!--#INCLUDE FILE="funcoes_valida.asp" -->
<link rel="stylesheet" href="loja.css" type="text/css">
<%
' *********************************************************
' Versão 5.1 - 20/04/2007 
' indique.asp
' *********************************************************

Call Valida_Request()


Set Conexao = Server.CreateObject("ADODB.Connection")
ConnString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("virtuastore.mdb")
Conexao.Open ConnString


'passado quando se seleciona uma categoria
codigo_produto = Request("idprod")

' Abre tabela de produtos usando a conexao aberta acima.

Set Produtos = Server.CreateObject("ADODB.Recordset")
' Seleciona o produto indicado.

Produtos.Open "SELECT * FROM Produtos WHERE idprod=" & codigo_produto , Conexao

%>
<br>
<p align="center"><b><a class="TextoTopico">Utilize esse Formul&aacute;rio para
indicar a um(a) amigo(a)</a></b>
<br>
<br>
<form method="POST" action="envia_email_indicacao.asp">
    <input type=HIDDEN name="codigo_produto" value="<%=codigo_produto%>">
    <table border="0" width="527">
        <tr> 
            <td width="145"><a class="TextoItem">Seu Nome:</a></td>
            <td width="244"> 
                <input type="text" name="Nome_AmigoIndicador" size="38" class="formulario_box">
            </td>
            <td width="368" rowspan="6"> 
                <div align="center">
                      <b>
                      <a class="TextoItem"><font color="#C80222" size="2">Produto indicado</font></a><font color="#C80222" size="2"><br>
                      </font></b>
                      <a class="TextoItem"><b><font color="#000080">Descrição:
                      </font></b> <%= Produtos("nome") %></a>
                </div>
                <div align="center">                   
                    <img src="produtos/<%=Produtos("imgra") %>" border=0><br>
                    <a class="TextoItem">Preço: <%= FormatCurrency(Produtos("preço")) %></a>
                </div>
            </td>
        </tr>
        <tr> 
            <td width="145"> <a class="TextoItem">Seu E-mail:</a> 
            </td>
            <td width="244"> 
                <input type="text" name="Email_AmigoIndicador" size="38" class="formulario_box">
            </td>
        </tr>
        <tr>
            <td width="145"> <a class="TextoItem">Nome Amigo:</a> 
            </td>
            <td width="244"> 
            <input type="text" name="Nome_AmigoIndicado" size="38" class="formulario_box">
            </td>
        </tr>
        <tr>
            <td width="145"><a class="TextoItem">E-mail Amigo:</a> 
            </td>
            <td width="244"> 
            <input type="text" name="Email_AmigoIndicado" size="38" class="formulario_box">
            </td>
        </tr>
        <tr> 
            <td width="145"> <a class="TextoItem">Comentários:</a> 
            </td>
            <td width="244"> 
                <textarea name="comentario" cols="37" class="formulario_box" rows="2"></textarea>
            </td>
        </tr>
        <tr> 
            <td width="145"> </td>
            <td width="244" align="right"> 
                <input type="image" name="I1" value="Enviar" src="enviar.jpg" width="63" height="43">
            </td>
        </tr>
    </table>
<%
    Produtos.Close
    Conexao.Close

    Set Produtos = Nothing
    Set Conexao = Nothing
%>
</form>

envia_email_indicacao.asp

<!--#INCLUDE FILE="config.asp" -->
<link rel="stylesheet" href="loja.css" type="text/css">
<%
' *********************************************************
' Versão 5.1 - 06/04/2007  
' envia_email_indicacao.asp
' *********************************************************


    'Captura dos dados do formulário
    Comentario = Request.form("comentario")
    Nome_AmigoIndicador = Request.form("Nome_AmigoIndicador")
    Nome_AmigoIndicado = Request.form("Nome_AmigoIndicado")
    Titulo = Nome_AmigoIndicado & " indicou pra você"
    Email_AmigoIndicador = Request.form("Email_AmigoIndicador")
    Email_AmigoIndicado = Request.form("Email_AmigoIndicado")

    'Monta a mensagem a ser enviada 
    message = "Prezado(a) " & Nome_AmigoIndicado & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    message = message & "<br>Seu Amigo " & Nome_AmigoIndicador & " indicou um produto em nossa loja, " & "<a href="& [url=http://www.claytonlima.com&"/loja/produto.asp?codigo_produto="&Request("idprod")&]http://www.claytonlima.com&"/loja...rod")&[/url] ">, Clique Aqui </a> e descubra.<br><br>Comentário de<b>"& Nome_AmigoIndicador & ":</b><br>" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    message = message & Comentario & "<br><br>" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    message = message & "Visite nossa Loja."

    'Envio de email usando ASPMAIL
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName   = Nome_AmigoIndicador
    Mailer.FromAddress= Email_AmigoIndicador
    Mailer.ContentType = "text/html"
    Mailer.RemoteHost = "smtp.claytonlima.com"
    Mailer.AddRecipient Nome_AmigoIndicado, Email_AmigoIndicado
    ' copia para a loja
If (cc = 1) Then
    Mailer.AddCC        Application("NomeLoja") , Application("MailLoja")
End If
    Mailer.Subject    = Titulo
    Mailer.BodyText   = message
    If Mailer.SendMail = True Then
%>
<br>
<p align="center"><b><a class="TextoPadrao">Email enviado com sucesso</a></b>
<br>
<br>
<a href="java script:top.close(self);" class="TextoPadrao"> FECHAR JANELA </a>
<%
    Else
%>
<br>
<p align="center"><b><a class="TextoPadrao">Houve problema no envio, favor verificar se os dados estão corretos, </a><a  href="java script:history.back();" class="TextoPadrao">clique aqui</a><a class="TextoPadrao"> para retornar</a></b>
<br>
<br>
<%
    End if
set Mailer = Nothing
%>

config.asp

<%
'###################################################################################
'    3.    CONFIGURAÇÕES GERAIS    
'###################################################################################

'## Escreva o nome do administrador da loja para suporte via Administrador
Seu_nome = "Clayton Lima"

'## Dados da loja    
Nomeloja = "Loja Modelo"

Razao_Social = "Loja Modelo Serviços de Informática LTDA."

MailLoja = "contato@claytonlima.com"

Slogan_da_sua_loja = "A sua Loja Virtual na Web!"

URLCompleta = "www.claytonlima.com/loja" 

         'ATENÇÃO: Escreva o endereço virtual da sua loja sem o Http:// e sem o / no final

Endereco_da_sua_loja = "Av. Maceió, 41"
Bairro_da_sua_loja = "Centro"
Cidade_da_sua_loja = "Maceió"
Estado_da_sua_loja = "AL"
Pais_da_sua_loja = "Brasil"
Telefone_da_sua_loja = "(0xx82) 254-7412"



%>

Obs: não dá mensagem de erro, simplemente aparece:

<p align="center"><b><a class="TextoPadrao">Houve problema no envio, favor verificar se os dados estão corretos, </a><a  href="java script:history.back();" class="TextoPadrao">clique aqui</a><a class="TextoPadrao"> para retornar</a></b>

é como se tivesse algum dado digitado errado, porém os dados estão corretos.

façam um teste neste link. Selecione um produto e tente enviar pra você ver o que acontece:

http://www.claytonlima.com/loja/default.asp

Fico no aguardo. :rolleyes:

[bareta]

o componente ASPMAIL

existe em seu server????

[Guest --Claytonprog --]

o componente ASPMAIL

existe em seu server????

sim existe!

dê uma olhada:

http://www.claytonlima.com/componentes.asp