invio email con allegato

[funambolo]

ciao, ho letto molti messaggi su questo argomento e mi sono stati tutti molto utili.. ma purtroppo ho ancora qualche problemino.
ho letto su un post questo codice per rinominare i file uploadati con il codice di baol74:

nomeFile="foto" & codiceID & .Files("ext")
.SaveAs(nomeFile)
e funziona ma non mi dà l'estensione del file! mi spiego: se carico un file Maradona.jpg me lo rinomina fotojpg senza estensione, poi se lo apro con un visualizzatore me lo vede normalmente, ma vorrei capire che fine fa l'estensione..

Secondo problema, ho notato che se invio due e-mail con 2 allegati differenti in realtà mi arriva sempre lo stesso allegato, perché il codice che ho scritto per inviare l'allegato non conta i numeri aggiunti dopo il nome in caso di duplicati e così invia sempre lo stesso file..

allora volevo eliminare il problema cancellando il file dal server subito dopo averlo inviato via e-mail, ma non ci sto riuscendo!

se qualcuno sa darmi una mano l'accetto volentieri.. grazie.

[Roby_72]

nomeFile="foto" & codiceID &"."& .Files("ext")

Roby

[funambolo]

grazie! ora va.. ma perché non riesco a cancellare il file subito dopo averlo inviato via e-mail? mi dice che non lo trova...



<%

strFile = "/annunci/allegati/foto.jpg" ' percorso dalla root
strFile = "allegati/foto.jpg" ' percorso relativo


strFilePath = Server.MapPath(strFile)
Set objFso = Server.createObject("Scripting.FileSystemObject")

if objFso.FileExists(strFilePath) then
objFSO.DeleteFile("foto.jpg")
else
Response.Write("Non ci sono files.")
end if

Set objFso = Nothing

%>

[Roby_72]

Dalla root.

<% 

strFile = "/annunci/allegati/foto.jpg" ' percorso dalla root 

strFilePath = Server.MapPath(strFile) 
Set objFso = Server.createObject("Scripting.FileSystemObject") 

if objFso.FileExists(strFilePath) then 
objFSO.DeleteFile(strFilePath)
else 
Response.Write("Non ci sono files.") 
end if 

Set objFso = Nothing 

%>

Roby

[funambolo]

grazie!