perchè non arriva niente? neanche la mail senza allegato. dove sbaglio?

codice:
username=request("username")
categoria=request("categoria")
fotom=request("fotom")
from=request.form("from")
toemail=request.form("to")
msg=request.form("msg")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("/mdb-database/pb.mdb")

sql = "SELECT * FROM gallery WHERE username= '" & username & "' AND categoria= '" & categoria & "' AND fotom= '" & fotom & "'" 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn 

'invio mail
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

'Invio il file
miaMail.From = from
miaMail.To = toemail
miaMail.Subject = "Foto inviata da www.piccolobill.com"
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0
miaMail.Importance = 0
foto=rs("foto")

fotofile = Server.MapPath("/public/"& username&"/max/"&foto)

miaMail.AttachFile fotofile

miaMail.Body = msg
miaMail.Send
Set miaMail = Nothing


rs.Close
set rs = Nothing
conn.Close
set conn = Nothing