Ciao Ragazzi ho un problema ancora con quel modulo email di prima come faccio ad inserire un allegato?
e il form diventerà enctype="multipart/formData"?
Aiutatemi







codice:
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")= 2
cdoConfig.Fields.Item(theSchema & "smtpserver")="out.virgilio.it"
cdoConfig.Fields.Update

Set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig
cdoMessage.From=Request.Form("Email")
cdoMessage.To="webmaster@siriosystem.it"
cdoMessage.Subject=Request.Form("RichiestaOfferta")
cdoMessage.TextBody=Request.Form("NomeAzienda") & VbCrLf &_ 
                    "INDIRIZZO:" & Request.Form("Indirizzo") & VbCrLf &_
					"NAZIONE:" & Request.Form("Nazione") & VbCrLf &_
					"C.A.P.:" & Request.Form("Cap") & VbCrLf &_
					"CITTA:" & Request.Form("Citta") & VbCrLf &_
					"REFERNTE:" & Request.Form("Referente") & VbCrLf &_
					"TELEFONO:" & Request.Form("Telefono") & VbCrLf &_
					"FAX:" & Request.Form("Fax") & VbCrLf &_
					"VIDEO CONFERENZA:" & Request.Form("Videoconferenza") & VbCrLf &_
					"RICHIESTA OFFERTA NUMERO:" & Request.Form("RichiestaOfferta") & VbCrLf &_
					"DEL:" & Request.Form("DataOfferta") & VbCrLf &_
					"DESCRIZIONE:" & Request.Form("textareaDescrizione") & VbCrLf &_
					"DISEGNO NUMERO:" & Request.Form("DisegnoNumero") & VbCrLf &_
					"MATERIALE:" & Request.Form("textareaMateriale") & VbCrLf &_
					"TRATTAMENTI:" & Request.Form("textareaTrattamenti") & VbCrLf &_
					"PEZZI CORRENTI:" & Request.Form("PezziCorrenti") & VbCrLf &_
					"NUOVO PROGETTO:" & Request.Form("NuovoProgetto") & VbCrLf &_
					"DATA INIZIO SERIE:" & Request.Form("DataInizioserie") & VbCrLf &_
					"FABBISOGNO ANNUO:" & Request.Form("Fabbisogno") & VbCrLf &_
					"LOTTI:" & Request.Form("Lotti") & VbCrLf &_
					"ATTREZZATURE:" & Request.Form("Attrezzature") & VbCrLf &_
					"CAMPIONATURA:" & Request.Form("Campionatura") & VbCrLf &_
					"NUMERO CAMPIONI:" & Request.Form("NumeroCampioni") & VbCrLf &_
					"IMBALLO:" & Request.Form("Imballo") & VbCrLf &_
					"TERMINE PRESENTAZIONE OFFERTA:" & Request.Form("TermineOfferta") & VbCrLf &_
					"NOTE:" & Request.Form("textareaNote") & VbCrLf &_
					"ALLEGATO:" & Request.Form("file")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>