<% Nome_computer_remoto = Request.ServerVariables("REMOTE_ADDR") Nome_utente = Request.ServerVariables("REMOTE_HOST") Tipo_browser = Request.ServerVariables("HTTP_USER_AGENT") nome=request.form("nome") email=request.form("Email") consenso= request.form("consenso") consenso_news=request.form("consenso_news") if nome="" then nome="-" if email="" then email="-" dim OBJdbConnection, RS Set OBJdbConnection= Server.CreateObject("adodb.Connection") OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../cgi-bin/utenti.mdb")&";UID=susana;PWD=susana" Set RS=Server.CreateObject("ADODB.Recordset") RS.Open "Utenti",OBJdbConnection,3,3 RS.AddNew rs("nome")=nome rs("email")=email rs("Nome_computer_remoto")=Nome_computer_remoto rs("Nome_utente")=Nome_utente rs("Tipo_browser")=Tipo_browser rs("Data_e_ora")= now rs.update RS.Close OBJdbConnection.Close %><% DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo '* voce da modificare con il proprio indirizzo email invioA = "accrediti.latino@diesis.it; segreteria@latinoamericando.it" invioDa = "segreteria@latinoamericando.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() ) 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) = "mail.9netweb.it" Flds(cdoSMTPServerPort) = 25 Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0 Flds.Update With iMsg Set .Configuration = iConf .To = invioA .From = Request.Form("email") .Sender = invioDa .Subject = "Modulo accredito stampa " & modulo .TextBody = "Modulo accredito stampa " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & "" .Send End With %>