Ciao ragazzi,
mi spiegate perché se nello script sotto commento le Request.Form e decommento il ciclo, sempre per reperire le info dalla form, lo script funziona altrimenti no!!!????? Non capisco proprio!!!:incazz2:
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, Em, No, Og, Me
No = Request.Form("Nome")
Em = Request.Form("Email")
Og = Request.Form("Oggetto")
Me = Request.Form("Messaggio")
invioA = "poldo@popeye.it"
invioDa = "pinco@pallino.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.pallino.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = "pinco@pallino.it"
Flds(cdoSendPassword) = "123456"
Flds.Update
'With iMsg
Set .Configuration = iConf
iMsg.To = invioA
iMsg.From = Em
iMsg.Sender = Em
iMsg.Subject = "Contatto dal dominio " & nomeDominio
iMsg.TextBody = ""
iMsg.Send
'End With
Response.Redirect"index.asp"
%>
Aiutatemi vi prego!!!!
Lego
mi spiegate perché se nello script sotto commento le Request.Form e decommento il ciclo, sempre per reperire le info dalla form, lo script funziona altrimenti no!!!????? Non capisco proprio!!!:incazz2:
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, Em, No, Og, Me
No = Request.Form("Nome")
Em = Request.Form("Email")
Og = Request.Form("Oggetto")
Me = Request.Form("Messaggio")
invioA = "poldo@popeye.it"
invioDa = "pinco@pallino.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.pallino.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = "pinco@pallino.it"
Flds(cdoSendPassword) = "123456"
Flds.Update
'With iMsg
Set .Configuration = iConf
iMsg.To = invioA
iMsg.From = Em
iMsg.Sender = Em
iMsg.Subject = "Contatto dal dominio " & nomeDominio
iMsg.TextBody = ""
iMsg.Send
'End With
Response.Redirect"index.asp"
%>
Aiutatemi vi prego!!!!
Lego