aggiunta componenti dalla ricezione di E-Mail dal proprio Sito!

[VincentB]

Salve a tutti piacere di conoscervi...
Allora ho un problema con un file .ASP in cui contengo una pagina del mio sito dove ci sono i campi da compilare dai clienti dove scrivere il proprio nome ecc ecc
Dopo che i clienti mi inviano la mail dal sito io la ricevo sul mio indirizzo e mi escono compilati i campi con nome ecc ecc , ora io vorrei aggiungere 2 campi vuoti con solo DESCRIZIONE RISOLUZIONE PROBLEMA = () e RISOLUZIONE = () che il cliente non deve visualizzare , ma che devo visualizzare solo io quando ricevo la mail in modo che successivamente la compilo e la stampo insieme agli altri dati compilati dal cliente!
come devo fare?!?!?!!?
Spero in un vostro aiuto e spero di essere stato abbastanza chiaro x qnt è difficile spiegarlo tramite parole...!



Grazie anticipatamente!!!

[Vincent.Zeno]

dovresti risolvere facilmente inserendo due campi nascosti nel form (type="hidden"),
ma fai attenzione a con fare il controllo sui campi vuoti: altrimenti non ti arrivano.

[VincentB]

un esempio :

Codice:
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "info@miosito.com"

'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "info@miosito.com"

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

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi)) <======== COME POSSO MODIFICARE IL CAMPO MESSAGGIO E AGGIUNGERVI ALTRE VOCI CHE USCIRANNO SOLO QUANDO IO RICEVERò LA MAIL DEL CLIENTE?!

END IF
NEXT

'* 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) = "mail.dada.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>

[VincentB]

VINCENT.ZENO grazie della tua risposta però non ho capito...dove devo inserire qst TYPE=...?!
e poi al posto di type devo inserire il nome che preferisco tipo DESCRIZIONE RIPARAZIONE?!?!

[alexba64]

Originariamente inviato da VincentB
VINCENT.ZENO grazie della tua risposta però non ho capito...dove devo inserire qst TYPE=...?!
e poi al posto di type devo inserire il nome che preferisco tipo DESCRIZIONE RIPARAZIONE?!?!

Devi inserirli nel form che invia i dati allo script, insieme agli altri campi es:

<input type="text" name="Nome" id="Nome" />
<input type="text" name="Cognome" id="Cognome" />
<input type="hidden" name="Descrizione riparazione" id="Descrizione riparazione" />

[VincentB]

quindi l'esempio che ho postato io non c'entra niente con il form che invia i dati allo script?

[VincentB]

ok ok ho capito e trovato il FORM che mi serve per effettuare le modifiche
una sola cosa

io ho davanti questo :

<td width="149" bgcolor="#EFEFEF" class="Titolo">Nome o Rag.Soc:</td>
<td width="349" height="33" bgcolor="#EFEFEF" class="Titolo"><input name="Nome" type="text" id="Nome" value="<%=nome%>" size="35"></td>

qui sono inserite anche le misure perche ho creato lo spazietto vuoto per far inserire al cliente il proprio nome , ora per fare qll nascosto devo solo continuare dopo questo input name inserire :
<input name="DescrizioneIntervento" type="hidden" id="DescrizioneIntervento">
e salvare?

[Vincent.Zeno]

Originariamente inviato da VincentB
quindi l'esempio che ho postato io non c'entra niente con il form che invia i dati allo script?

quello è lo script che riceve i dati e spedisce la mail

dopo aver fatto quello che ti ha detto*** alex

correggi lo script

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))

togliendo semplicemente il NOT, dovrebbe essere a posto

***
usare un solo nome per definire ID e NOME è meglio

<input type="hidden" name="DescrizioneRiparazione" id="DescrizioneRiparazione" />

[Vincent.Zeno]

Originariamente inviato da Vincent.Zeno
correggi lo script

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))

togliendo semplicemente il NOT, dovrebbe essere a posto

scusa.. non basta ora dovrebbe essere giusto:

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF Request.Form(numeroCampi) <> "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))

o sbaglio ancora?

[VincentB]

allora inserisco questo nel form che invia i dati allo script

<input type="hidden" name="DescrizioneRiparazione" id="DescrizioneRiparazione" />

poi vado nell'altra form dove ricevo dal cliente e elimino il NOT dall'IF cioè :

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " &....

giusto?!