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 %>

Rispondi quotando