<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" EnableSessionState=True%> <% Option Explicit response.Redirect("http://streaming.paris.fr/aparis/index.html") response.End() Const Const_allow=" !""#$%&\'()*+,-./0123456789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyzç{|}~âäàéèëêïîùûô" Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 'Dim arrondissement 'Dim mail Dim l1 Dim l2 Dim l3 Dim l4 Dim l5 Dim l6 Dim l7 Dim complete Dim htmlerror Dim post, REFERER Dim SQL, rs Dim i Dim position, c %> <% Function MagicQuote(name) 'MagicQuote=replace(name,"""","""""") If name="" then MagicQuote="" Else MagicQuote=replace(name,"'","''") End If End function Sub IsAllow(s, Byref c, Byref p) Dim t p=0 For i = 1 to len(s) c=mid(s,i,1) t=Instr(1,Const_allow,c) If t=0 Then p = i exit For End If Next End Sub 'arrondissement=Cint(Request("arrondissement")) 'If arrondissement=0 Then Response.Redirect("http://www.v2asp.paris.fr/v2/culture/fetemusique/inscription.asp") Post= (Request.ServerVariables("REQUEST_METHOD") = "POST") REFERER=lcase(Request.ServerVariables("HTTP_REFERER")) 'If session("state")<>"" then response.Redirect("http://www.paris.fr") 'web="http://www." If post and REFERER="http://www.v2asp.paris.fr/v2/actualites/bleus2006/formulaire.asp" then 'mail=request("mail") l1=request("l1") l2=request("l2") l3=request("l3") l4=request("l4") l5=request("l5") l6=request("l6") l7=request("l7") 'Détermination de la complétude Complete=true htmlerror= "

" 'If (mail="")then ' htmlerror=htmlerror&"Veuillez saisir une adresse de courriel.
" ' Complete=false 'Else ' i=Instr(1,mail,"@") ' If i=0 then ' Complete=false ' htmlerror=htmlerror&"L'adresse de courriel n'est pas valide.
" ' Else ' i=Instr(i+1,mail,".") ' If (i=0) or (i>=len(mail)-1) then ' Complete=false ' htmlerror=htmlerror&"L'adresse de courriel n'est pas valide.
" ' End If ' End If 'End If ' Controle des caractères. If L1="" and L2="" and L3="" and L4="" and L5="" and L6="" and L7="" Then Complete=false htmlerror=htmlerror&"Le message est vide.
" End If If L1<>"" Then position=0 c="" IsAllow l1,c,position If position>0 Then htmlerror=htmlerror&"Ligne 1 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End IF If L2<>"" Then position=0 c="" IsAllow l2,c,position If position>0 Then htmlerror=htmlerror&"Ligne 2 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End IF If L3<>"" Then position=0 c="" IsAllow l3,c,position If position>0 Then htmlerror=htmlerror&"Ligne 3 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End if If L4<>"" Then position=0 c="" IsAllow l4,c,position If position>0 Then htmlerror=htmlerror&"Ligne 4 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End if If L5<>"" Then position=0 c="" IsAllow l5,c,position If position>0 Then htmlerror=htmlerror&"Ligne 5 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End if If L6<>"" Then position=0 c="" IsAllow l6,c,position If position>0 Then htmlerror=htmlerror&"Ligne 6 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End if If L7<>"" Then position=0 c="" IsAllow l7,c,position If position>0 Then htmlerror=htmlerror&"Ligne 7 : le caractère " & c & " (position " & position & ") n'est pas autorisé.
" Complete=false End If End if htmlerror=htmlError& "

" End If If Post and Complete and REFERER="http://www.v2asp.paris.fr/v2/actualites/bleus2006/formulaire.asp" Then ' On valide l'inscription 'mail=MagicQuote(mail) l1=MagicQuote(l1) l2=MagicQuote(l2) l3=MagicQuote(l3) l4=MagicQuote(l4) l5=MagicQuote(l5) l6=MagicQuote(l6) l7=MagicQuote(l7) SQL="insert into valentin (arrondissement,mail,date_depot,remote_host,remote_addr,l0,l1,l2,l3,l4,l5,l6)" SQL=SQL&" values(0,'toto@toto.fr',getdate(),'"&Request.ServerVariables("REMOTE_HOST")&"','"&Request.ServerVariables("REMOTE_ADDR")&"','"&l1&"','"&l2&"','"&l3&"','"&l4&"','"&l5&"','"&l6&"','"&l7&"')" 'response.Write(SQL) 'response.End() cnActiv.execute SQL cnActiv.close Set cnActiv=Nothing 'session("state")="ok" response.Redirect("http://www.paris.fr/portail/Sport/Portal.lut?page_id=6982") Else cnActiv.close Set cnActiv=Nothing %> Supporteurs des bleus : criez le haut et fort !

Supporteurs des bleus : criez le haut et fort !

Vous avez vibré avec les bleus ?! Afin de soutenir et encourager l’équipe tricolore pour la finale de dimanche soir, nous vous proposons de diffuser vos messages de soutien sur l’ensemble des panneaux lumineux de la Capitale ! Vous pouvez déposer vos messages sur Paris.fr jusqu'à dimanche 16h00, et ils seront diffusés au fur et à mesure jusqu’à dimanche soir. Allez les Bleus !!

<% Response.Write(htmlError) %>

<%End If %>