SALVE RAGAZZI... poco tempo fa ho messo su, insieme al vostro aiuto, un form che una volta compilato inviava automaticame un file rtf all'indirizzo email dell'utente, con i dati compilati... fino qui tutto ok! Ma si è presentata la necessità di allegare un altro file rtf contenente alcuni TAG del form... come posso inviare 2 file rtf con una unica email?
GRAZIE

Ps questo è il codice

<%
Dim strEmail
Dim strCognome
Dim strNome
Dim strComune
Dim strIndirizzo
Dim strProv
Dim strCap
Dim strTelefono
Dim strCellulare
Dim strNascita
Dim strgg
Dim strmm
Dim straaaa
Dim strNazione
Dim strCodfisc


Dim objCDOMail


'Per leggere il documento utilizzo FSO
Set fso = Server.CreateObject("Scripting.FileSystemObject")

'doc.rtf e' il documento di base che contiene i tag
Set f = fso.OpenTextFile(Server.MapPath("doc.rtf"), 1)

'Leggo tutto il contenuto del documento
Documento = f.ReadAll

'chiudo subito
f.Close
Set f = Nothing

'ora sostituisco i TAG con i campi contenuti nella form
strEmail = Request.Form("email")
strSubject = ""
strCognome = Request.Form("cognome")
strNome = Request.Form("nome")
strComune = Request.Form("comune")
strIndirizzo = Request.Form("indirizzo")
strProv = Request.Form("prov")
strCap = Request.Form("cap")
strTelefono = Request.Form("telefono")
strCellulare = Request.Form("cellulare")
strNazione = Request.Form("nazione")
strCodfisc = Request.Form("codfisc")
strgg = Request.Form("gg")
strmm = Request.Form("mm")
straaaa = Request.Form("aaaa")
strNascita = Request.Form("nascita")


Documento = Replace(Documento, "[Nome]", strNome)
Documento = Replace(Documento, "[Cognome]", strCognome)
Documento = Replace(Documento, "[Comune]", strComune)
Documento = Replace(Documento, "[Indirizzo]", strIndirizzo)
Documento = Replace(Documento, "[Prov]", strProv)
Documento = Replace(Documento, "[Codfisc]", strCodfisc)
Documento = Replace(Documento, "[Nascita]", strNascita)
Documento = Replace(Documento, "[mm]", strmm)
Documento = Replace(Documento, "[gg]", strgg)
Documento = Replace(Documento, "[aaaa]", straaaa)



Set f = fso.OpenTextFile(Server.MapPath("doc" & Session.SessionID & ".rtf"), 2, True)
f.Write(Documento)
f.Close
set f = nothing

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.AttachFile Server.MapPath("doc" & session.sessionID & ".rtf") , "doc.rtf", 1
objCDOMail.from = "info@sito.it"
objCDOMail.to = strEmail
objCDOMail.Cc = "info@sito.it"
objCDOMail.subject = strSubject
objCDOMail.body = " DATI PERSONA </b><br><br><b> Cognome: </b>" & strCognome & " <br><b> Nome: </b> " & strNome & " <br><b> Luogo di nascita: </b>" & strNascita & " <br><b> nato il </b>" & strgg & "/"& strmm & "/" & straaaa & "<br><b> Codice fiscale: </b>" & strCodfisc & " <br><b> Indirizzo: </b>" & strIndirizzo & " <br><b> Cap: </b>" & strCap & " <br><b> Comune: </b>" & strComune & "<br><b> Provincia: </b>" & strProv & "<br><b> Nazione: </b>" & strNazione & "<br><b> Telefono: </b>" & strTelefono & "<br><b> Cellulare: </b>" & strCellulare

objCDOMail.MailFormat = 0
objCDOMail.BodyFormat = 0
objCDOMail.Send

Set objCDOMail = Nothing
fso.deleteFile Server.MapPath("doc" & Session.SessionID & ".rtf")

%>

...il secondo allegato deve cmq essere un file che , come il primo .rtf, deve contenere dei TAG che andranno a riempiere dei determinati campi... cioè in pratica i campi del form che l'utente compilerà andrannno a finire su due e non più uno file rtf.
Come posso fare?

Chiami entrambi con il nome "f"