<% '============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 = "mercedesmmp@hotmail.com" '* 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 = "playadonana@yahoo.es" '------------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 = "Su Propiedad de Playacostaluz " & nomeDominio .TextBody = "Solicitud informacion reseva de su propiedad localizada en playacostaluz " & modulo & " con direccion IP " & indirizzoIp & " browser y sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & vbCrLf & vbCrLf & " No olvide actualizar su datos en http://www.playacostaluz.com/alquiler/member_login.php para que los precios y fechas libres salgan en " & modulo & "" .Send End With %>