Problema ao enviar anexo em formulário

[securityBR 0]

Boa tarde pessoal,

 

estou com um problemao, meu script faz o upload do arquivo normalmente porém o anexo nao é enviado pelo formulário.

Já tentei várias adpatações mas nao funcionou.

 

segue o cod.

 

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 50000, True
On Error Resume Next
Upload.Save "c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/teste/"

If Err.Number = 8 Then
  Response.Write "Arquivo muito grande!"
Else
  If Err <> 0 Then
         Response.Write "Aconteceu um erro: " & Err.Description
  Else

For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
         Response.Write "Isso não é uma imagem."
         File.Delete
         Response.End
else
 End If
 
 
 

caminho =  objmail.AddAttachment(Server.MapPath("c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/teste/"))


foto = "<img src="& caminho &">"
next      
nome = upload.form("nome")
email = upload.form("email")

corpo = "Foto: "&nfoto&"<br><br>Nome: "&nome&"<br><br>Email: "&email

Set objmail = Server.CreateObject("Persits.MailSender")
objmail.Host = "mail.perfectcom.com.br"
objmail.From = email
objmail.FromName = "EMAIL RECEBIDO PELO SITE"
objmail.AddAddress "perfectcom@perfectcom.com.br"
objmail.Subject = "EMAIL RECEBIDO PELO SITE"
objmail.IsHTML = True
objmail.Body = corpo
objmail.Send
Set objmail = nothing




end if
end if
%>

Obrigado pessoal.

[Vinicius Ianni 189]

Acho que o erro está nesta linha:

caminho = objmail.AddAttachment(Server.MapPath("c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/teste/"))

 

Com o Server.MapPath, é escrito o caminho onde as pastas estão alojadas, e ai fica algo duplicado tipo:

c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/teste/, ai é logico que dá erro.

Tenta assim:

caminho = objmail.AddAttachment(Server.MapPath("./teste/"))

Mas note que voce nesta linha está indicando apenas a pasta e nao o arquivo a ser anexado.

[xanburzum 169]

tente assim:

 

Set objmail = Server.CreateObject("Persits.MailSender")
objmail.Host = "mail.perfectcom.com.br"
objmail.From = email
objmail.FromName = "EMAIL RECEBIDO PELO SITE"
objmail.AddAddress "perfectcom@perfectcom.com.br"
objmail.Subject = "EMAIL RECEBIDO PELO SITE"
objmail.IsHTML = True
objmail.Body = corpo
objmail.AddAttachment(Server.MapPath("...vhosts/perfectcom.com.br/httpdocs/teste/"))
objmail.Send
Set objmail = nothing

[securityBR 0]

tente assim:

 

Set objmail = Server.CreateObject("Persits.MailSender")
objmail.Host = "mail.perfectcom.com.br"
objmail.From = email
objmail.FromName = "EMAIL RECEBIDO PELO SITE"
objmail.AddAddress "perfectcom@perfectcom.com.br"
objmail.Subject = "EMAIL RECEBIDO PELO SITE"
objmail.IsHTML = True
objmail.Body = corpo
objmail.AddAttachment(Server.MapPath("...vhosts/perfectcom.com.br/httpdocs/teste/"))
objmail.Send
Set objmail = nothing

Não consegui cara, deu erro interno do servidor:

 

 

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

 

More information about this error may be available in the server error log.

 

 

Agradeço ajuda...Eu acho que sei oque está faltando só que nao consigo criar o codigo....tipo acho que tenho que capturar o nome do arquivo e resgatar pelo script...falta só isso para finalizar... o upload ocorre e os outros dados do form recebo normal..