ASP Email.

[seomaster]

ASP Email.

Salve.
Vi dico subito che non capisco niente in ASP.
Ma non penso che sia difficile ad aiutarmi.

Questo codice ASP che mi invia email con tutti form compilati in modo

Nome = Value
Telefono = Value

E cosi tutti i campi che compilo.

La domanda è. Come fare per gestire ogni uno VALUE come voglio ?

Cioe se voglio creare una tabella interno al Emial Body e mandare in un bell modo ?

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
'============Linkbruttocane su specifiche MSDN================
'*   il corpo finale del messaggio contiene tutti i campi    *
'*   inseriti nella pagina html, in pratica puoi mettere     *
'*   tutti i campi che ti servono nel modulo di invio senza  *
'*   fare altre configurazioni aggiuntive.                   *  
'=============================================================

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

    '* voce da modificare con il proprio indirizzo email
    
invioA =  "[email protected]"

    '* 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 =  "[email protected]"

'------------fine modifiche necessarie------------------

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

Il codice preso dal Aruba.. perche in PHP non mi invia niente e funziona solo questo.

Aiutatemi perfavore. Come posso gestire value da parte...