Saisissez ci-dessous votre email, et
soyez les premiers informés de la mise à jour de cette partie !

">"> "> ">

<% Case 1 Dim emailvalide emailvalide = Request.Form("email") IF emailvalide <> "" AND inStr(emailvalide,"@") <> 0 AND inStr(emailvalide,".") <> 0 AND len(emailvalide) > 5 AND inStr(1, emailvalide, "@") > 2 AND ((InStrRev(emailvalide, ".") > InStr(1, emailvalide, "@") + 2)) THEN Dim strBody set smtp = Server.CreateObject("JMail.Message") smtp.FromName = Request.Form("email") smtp.From = "Orsystem@Orsystem.com" smtp.AddRecipient "yann@da-code.com" smtp.MailServerUserName="fabrice" smtp.MailServerPassWord="Service" strBody = strBody & "=============================================" & vbCrLf strBody = strBody & "UTO : UPDATES BD" & vbCrLf strBody = strBody & "=============================================" & vbCrLf & vbCrLf strBody = strBody & "TIMESTAMP-DATE : " & Request.Form("timestamp") & vbCrLf strBody = strBody & "TIMESTAMP-HEURE : " & Request.Form("timestamp2") & vbCrLf strBody = strBody & "EMAIL : " & Request.Form("email") & vbCrLf strBody = strBody & "IP : " & Request.Form("ip") & vbCrLf strBody = strBody & "HOST : " & Request.Form("host") & vbCrLf strBody = strBody & "USER AGENT : " & Request.Form("user_agent") & vbCrLf strBody = strBody & "REFERRER : " & Request.Form("referrer") & vbCrLf smtp.Priority=1 smtp.ContentType = "text/plain" smtp.Subject = "INSCRIPTION ALERTE UPDATE UTOPIALES" smtp.Body = strBody smtp.send("mail.orsystem.com") set smtp = Nothing response.write "" Response.Write "" ELSE Response.Write "" Response.Write "" END IF End Select %>