Ciao ragazzi, ho cercato sul form, ma nessuna discussione che mi risolvesse il problema...
quindi vi racconto, ho un form e vorrei dare la possiblità di inviare un allegato, ma non ci riesco.. vi posto il file di risposta all'invio:

<%
Dim rs, mail, subject, message, allegato, data_source, sql_select, no

no = 0
subject = Request.Form("subject")
message = Request.Form("message")
allegato = Request.Form("allegato")

message = message & vbcrlf & "La tua e-mail è: "
sql_select = "select email from users"
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mail.mdb")
If Len(message) Then

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source

While Not rs.EOF
Set mail = Server.CreateObject("cdo.message")


'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xxxxxxx.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 240

.Fields.update
End With

' Assegna le configurazioni
Set mail.Configuration = objConfig

mail.HTMLBody = message & rs("email")
mail.From = "Xxxxxxxxx.com <info@xxxxx.com>"
mail.To = rs("email")
mail.Subject = subject
mail.TextBody = message & rs("email")
mail.Send

if allegato<>"" then ' controllo se ci sono allegati
mail.AddAttachment allegato ' creo l'allegato
set allegati = mail.Attachments ' lo allego alla e-amil
end if
mail.HTMLBody = corpo ' specifico il corpo della email
If Not mail.Send then ' invio l'e-mail
Response.write ("Errore/i generati durante l'invio:
" & mail.log) 'visualizzo eventuali errori
Else
Set mail = Nothing

Set mail = Nothing
Response.Write "Email sent to : " & rs("email") & "
"
no = no + 1
rs.MoveNext
Wend
Response.Write "Emails sent to " & no & " users."
rs.Close
Set rs = Nothing

Else
Response.Redirect "admin.htm"
End If
%>



<head>
</head>

I form funziona i dati vengono spediti, ma non VI E' TRACCIA DI ALLEGATO, perchè????

Ciao