asp e cdosys

[neronemassimo]

mi sapete dire dove sbaglio visto che la pagina va in errore?

io vorrei prendere il campo dal form nella pagina precedente ma mi da errore...




invioA = Request.Form("nome") 'cosi NON va--------

invioDa = "io@technet.it" 'cosi va--------

dove sbaglio?
ringrazio

[lukeonweb]

ste due variabili che valorizzi come nell'esempio dove le metti?

[neronemassimo]

ho una pagina email.asp con i campi form modulo

che mandano alla pagina email2.asp che contengono questo codice:

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


invioA = Request.Form("nome")

invioDa = "io@technet.it"

.......

in pratica dovrebbe spedire la mail ma invioA non lo prende.
cè un errore di sintasi mi sa... che manchino dele " ' "" o altro?

[lukeonweb]

è quello che c'è scritto al posto di

.......

che mi interessa per capire dov'è il problema

[neronemassimo]

ecco lo script completo
io al posto della mail prestabilita volevo mettere un campo form compilato nella pagina precedente.


<%

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


invioA = "linkbruttocane@technet.it"

'* 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 = "linkbruttocane@technet.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

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 = Request.Form("email")
.TextBody = Request.Form("messaggio")
.Send
End With
%>

[lukeonweb]

le due variabili le usi in modi diversi... non c'è logica per cui dovrebbe o meno andare per colpa o merito loro!

comunque...

fai qualche prova: commenta .Sender, oppure inverti i valori di quest'ultimo con .To

[neronemassimo]

non ci siamo capiti mi sa...

io non do merito o colpa a nessuno se non a me!!!

ma io una volta ci ero riuscito ovvero cambiando la variabile in alto della mail prestabilita con un campo Request.Form("messaggio") riuscivo a farlo arrivare al destinatario che volevo..

mi sa che mancano solo delle virgolette o qualcosa di simile...

[lukeonweb]

probabile

ti da un errore?

io cambierei completamente lo script asp, mi pare un pocervellotico

[neronemassimo]

me ne puoi postare uno semplicisimo che prenda 4 campi da un form

inviaA
inviatoDA
oggetto
messaggio

ti ringrazierei