semplice aiuto cdosys

[neronemassimo]

salve io devo realizzare un form tipo questo
http://gratiscon3.altervista.org/email.htm

ma non riesco a creare la pagina di invio con aruba e con cdosys

qualcuno sa aiutarmi per favore?

[Roby_72]

Che vuol dire che non riesci?
Hai letto il loro vademecum nel quale indicano lo script da usare?

Roby

[neronemassimo]

si ho letto il loro vademecum
ma non riesco a far interagire i miei campi form con i loro
ovvero non riesco a far prendere il mittente e il destinatario nello script che invia.

il loro script è un po compicato e non so come modificarlo..


non riesco a mettere nei campi
invioA = "linkbruttocane@aruba.it"

invioDa = "linkbruttocane@technet.it"


i campi del mio form!

<%

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


invioA = "linkbruttocane@aruba.it"

invioDa = "linkbruttocane@technet.it"


'------------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
%>
<script>
document.location.replace('grazie.asp');
</script>

[Roby_72]

Devi recuperare campo per campo del tuo form con:

nomecampo = trim(request.form("campo"))

Il mittente lo conosci, perché deve essere una email del dominio quella che spedisce...

Roby

[neronemassimo]

magnifico stupendo!

ora va.

ringrazio di cuore davvero