Il mio problema riguarda l'ordinazione dei campi di un form quando questo viene inviato in una email. Io ho impostato la pagina ASP che contiene l'oggetto CDOSYS in questo modo:
'questo estrae con un ciclo i campi del form e li memorizza all'interno della variabile corpoMessaggio
dim corpoMessaggio
FOR numeroCampi = 1 TO (Request.Form.Count())
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
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) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.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
Il mio problema nasce dal fatto che ho creato un carrello della spesa dove i prodotti vengono memorizzati ed inviati tramite email usando dei campi nascosti (hidden) quindi ho questo risultato:
nomeArticolo= scarpe, giacca, sci
prezzoArticolo=100,00, 120,00, 320,00
quantita=2, 1, 1
In poche parole quando i campi contengono più articoli questi mi vengono separati da virgole creando, come si può vedere, un pò di confusione, soprattutto con i prezzi.
Si potrebbe formattarlo in questo modo?
nomeArticolo=scarpe; prezzoArticolo=100,00; quantita=2
nomeArticolo=giacca; prezzoArticolo=120,00; quantita=1
nomeArticolo=sci; prezzoArticolo=320,00; quantita=2
Grazie per l'attenzione.![]()