beh alla fine è la stessa cosa se utilizzi la var senza textOriginariamente inviato da jackburton
- le sto facendo in localhost, con IIS impostato correttamente (gli altri lavori che provo in locale vanno tutti correttamente)
- facendo una trace delle variabili relative ai campi di testo del form ho visto che senza ".text" stampa correttamente, mentre col ".text" non stampa.. sosì ho adottato la prima soluzione
oppure utilizzi il nome istanza e ci metti text
il fatto è che se ti fà il trace delle var giusto il problema potrebbe risiedere nella pag asp che utilizzi
prova magari ad utilizzare una cosa del genere vedi se va
ovviamente cambia con i tuoi campi
ciaocodice:<% on error resume next if err.number>0 then strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente." else strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta" end if response.write "inserimento avvenuto con successo" DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo invioA = "tuamai@esempio.it" '* voce da modificare con un indirizzo email che funga da mittente: invioDa = "tuamail@esempio.it" nomeDominio = Request.ServerVariables("HTTP_HOST") indirizzoIp = Request.ServerVariables("REMOTE_ADDR") modulo = Request.ServerVariables("HTTP_REFERER") browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT") '*rilevo i campi del form corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>Nome : " & Request.Form("nome") corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome") corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email") corpoMessaggio = corpoMessaggio & vbCrLf &"Data di nascita : " & Request.Form("datanasc") corpoMessaggio = corpoMessaggio & vbCrLf &"Ultima classe frequentata con esito positivo : " & Request.Form("classe1") corpoMessaggio = corpoMessaggio & vbCrLf &"Anno scolastico dell'ultima slasse frequentata : " & Request.Form("classe2") corpoMessaggio = corpoMessaggio & vbCrLf &"Tipo di scuola : " & Request.Form("scuola") corpoMessaggio = corpoMessaggio & vbCrLf &"Città di residenza : " & Request.Form("citta") corpoMessaggio = corpoMessaggio & vbCrLf &" Richiesta : " & Request.Form("testo") n =Request.Form("nome") r =Request.Form("cognome") '* creo gli oggetti cdosys sul server e li gestisco DIM iMsg, Flds, iConf Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds(cdoSendUsingMethod) = cdoSendUsingPort Flds(cdoSMTPServer) = "smtp.aruba.it" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = invioA .From = Request.Form("email") .Sender = invioDa .Subject = "Richiesta Informazioni dal sito " & nomeDominio .HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & "" .Send End With %>![]()
ps scusate l'intromissione

Rispondi quotando