<%
if request.form("Email") <> "" then
' Ecriture du cookie
Dim concours_01
Response.Cookies("concours_01")="concours_01"
Response.Cookies("concours_01")("email")=request.form("Email")
Response.Cookies("concours_01").Expires = Date + 30
end if
%>
lucy in the web beatles john lennon paul mccartney george harrison ringo starr liverpool
The Rutles est un faux documentaire parodiant la carrière des Beatles, créé et réalisé par Eric Idle, l’un des fondateurs des Monty Python.
A l'occasion de la réédition française du film en DVD, ucy vous entraîne dans l'univers déjanté des Monty Python!
<%
'Création des connections
Set ConnConcours= Server.CreateObject("ADODB.Connection")
ConnConcours.Open "beatles"
Set RS= Server.CreateObject("ADODB.Recordset")
Set RS.ActiveConnection = ConnConcours
IP = request.serverVariables("REMOTE_ADDR")
' === PARAMETRES ===
site_nom = "lucy in the web"
site_url = "http://www.lucyintheweb.net"
'site_img = ""
site_alt = "l'univers des Beatles"
site_mail = "contact@lucyintheweb.net"
partner_nom = "Carlotta Films"
'partner_url = "http://www.defi-net.com"
'partner_img = ""
'partner_alt = ""
'partner_adr = "127 boulevard Saint Symphorien - 57050 Longeville-Les-Metz"
'partner_cnil = "Defi-Net.com est déclaré à la CNIL sous le numéro 771151."
'partner_limit = ", résidant en France métropolitaine"
'titre = "Concours " & site_nom & " / " & partner_nom
titre2 = "Quizz " & site_nom & " / " & partner_nom
date_deb = "10 septembre 2003"
date_fin = "5 novembre 2003"
date_res = "10 novembre 2003"
nbquest = 1 : nbitem = 4
dim quizz_quest() : redim quizz_quest(nbquest,nbitem+1) : i = 0
i = i+1
quizz_quest(i,0) = "Un des ex-Beatles s'est personnellement investi dans le film All You Need Is Cash, on peut d'ailleurs l'apercevoir à l'écran. De qui s'agit-il ?"
quizz_quest(i,1) = "John Lennon"
quizz_quest(i,2) = "Paul McCartney"
quizz_quest(i,3) = "George Harrison"
quizz_quest(i,4) = "Ringo Starr"
quizz_quest(i,5) = 3 ' Mettre la bonne réponse (1, 2 ou 3)
i = i+1
' quizz_quest(i,0) = "Quel est le nom du leader du groupe Cotton Mather ?"
' quizz_quest(i,1) = "Carl Harrison"
' quizz_quest(i,2) = "Robert Harrison"
' quizz_quest(i,3) = "George Ramon"
' quizz_quest(i,4) = 2 ' Mettre la bonne réponse (1, 2 ou 3)
' i = i+1
' quizz_quest(i,0) = "Sur l'album de Sweet Apple Pie, Lucy a eu le coup de foudre pour un titre, lequel ?"
' quizz_quest(i,1) = "Mr Goodguy"
' quizz_quest(i,2) = "Supertiger"
' quizz_quest(i,3) = "She Shines"
' quizz_quest(i,4) = 3 ' Mettre la bonne réponse (1, 2 ou 3)
quizz_lot = "" _
& "2 lots sont à gagner : " _
& " " _
& "
Pour les 5 premiers gagnants :" _
& "
L'album Sleeping With Big Ben, interprêté par MeeK" _
& "
Album numéroté et dédicacé tiré à seulement 20 exemplaires" _
& "
Un split single de Cotton Mather et Sweet Apple Pie" _
& "
" _
& "
Pour les 5 gagnants suivants :" _
& "
Un split single de Cotton Mather et Sweet Apple Pie
"
'quizz_msg2 = "Gagnez un an d'hébergement professionnel en participant au " & titre2 _
' & " du " & date_deb & " au " & date_fin & ". Il suffit de répondre à " & nbquest _
' & " questions concernant le site de notre partenaire. Les gagnants seront tirés au" _
' & " sort parmi les bonnes réponses."
' === FONCTIONS DIVERSES ===
function doUrl(url)
doUrl = "" & url & ""
end function
function noaccent(txt)
dim temp,regEx
temp = txt
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "[àâ]"
temp = regEx.REPLACE(temp,"a")
regEx.Pattern = "[éèêë]"
temp = regEx.REPLACE(temp,"e")
' Compléter si nécessaire...
noaccent=temp
end function
' === CODE HTML ===
%>
<% ' === PAGE 1 : Questions ===
if request.form.count = 0 and request.queryString.count = 0 then
' 1 seule participation par IP
' ConnConcours.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database
SQL = "SELECT * FROM quizz where IP='" & IP & "'"
RS.open SQL,ConnConcours,3,3
test = RS.eof
RS.close
ConnConcours.close
if not test then%>
<%end if
%>
<% ' === PAGE 3 : Message final ===
elseif request.form("p2")<>"" then
' Enregistrement du score
' ConnConcours.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database
SQL = "SELECT * FROM quizz where IP='" & IP & "'"
RS.open SQL,ConnConcours,3,3
test = RS.eof ' Anti touche F5 (merci aux rigolos qui m'y ont fait penser...:o)
if test then
RS.addNew
RS("Nom") = request.form("Nom")
RS("Prenom") = request.form("Prenom")
RS("Adresse") = request.form("Adresse")
RS("CP") = request.form("CP")
RS("Ville") = request.form("Ville")
RS("Email") = request.form("Email")
' RS("subsidiaire") = request.Form("subsidiaire")
nbpt = 0 : for i = 1 to nbquest
if request.form("q"&i)=CSTR(quizz_quest(i,nbitem+1)) then nbpt = nbpt + 1
next
RS("Score") = nbpt
RS("NbQuest") = nbquest
RS("Date") = now
RS("IP") = IP
RS.update
' inszcription à la newsletter
if Request.Form("newsletter") = "ok" then
Dim infos
Dim date_enr
infos = "infos"
date_enr = date
strsql= "insert into mailing (email, liste, date_enr) VALUES ('" & CStr(request.form("Email")) & "', '" & CStr(infos) & "', #" & date_enr & "#)"
ConnConcours.Execute(strsql)
end if
end if
RS.close
ConnConcours.close
if test then
' Génération mail
' Dim objmail, htmltext
' Set objmail = Server.CreateObject("CDONTS.NewMail")
' de la part de qui ?
' objmail.from = "contact@lucyintheweb.net"
'envoyer à qui?
' objmail.to = "contact@lucyintheweb.net"
' TEXTE = Replace(TEXTE, Vbcrlf, " ")
' Dim CorpsDuTexte
' CorpsDuTexte = ""
' CorpsDuTexte = CorpsDuTexte & "Bonjour,
"
' CorpsDuTexte = CorpsDuTexte & "Votre participation au jeu concours a bien ete enregistree et nous vous en remercions."
' CorpsDuTexte = CorpsDuTexte & "Le tirage au sort aura lieu le " & date_res & " et vous serez informe par Email si vous etes l'un des heureux gagnants.
Cordialement"
' CorpsDuTexte = CorpsDuTexte & " ---- "
' CorpsDuTexte = CorpsDuTexte & " Coyote & Krystel "
' CorpsDuTexte = CorpsDuTexte & "Lucy In The Web "
' CorpsDuTexte = CorpsDuTexte & "http://www.lucyintheweb.net"
' objmail.subject = "Concours Lucy In The Web"
' Importance du message, dans l'ordre d'importance 0,1 ou 2
' objmail.Importance = 1 ' Normal
' objmail.bodyformat = 0
' objmail.mailformat = 0
' objmail.body = CorpsDuTexte
'on envoie
' objmail.Send
' on détruit l'objet créé
' set objmail=Nothing
else%>
<%end if
%>
<%
if nbpt = 1 then
%>
Attention, votre participation n'a pas encore été enregistrée !
Cliquez sur ce bouton pour poursuivre votre inscription :
<%if request.form("q"&i)="" then
response.write "Vous n'avez pas répondu"
else
response.write "Vous avez répondu " & quizz_quest(i,CINT(request.form("q"&i))) & ""
end if%>
<%if request.form("q"&i)=CSTR(quizz_quest(i,nbitem+1)) then
response.write "C'est la bonne réponse, BRAVO !"
else
response.write "La bonne réponse était " & quizz_quest(i,quizz_quest(i,nbitem+1)) & ""
end if%>
<%next%>
<%
if nbpt = 1 then
%>
Attention, votre participation n'a pas encore été enregistrée !
Cliquez sur ce bouton pour poursuivre votre inscription :
<%
else
%>
Malheureusement votre participation ne sera pas retenue pour le tirage au sort final.
Nous vous remercions de votre participation.
Article 1
<%=site_nom%>
organise du <%=date_deb%> au <%=date_fin%> inclus à 00h00 un jeu-concours intitulé "All You Need Is Cash", en collaboration avec Carlotta Films.
Article 2
Le présent concours est ouvert à toutes les personnes physiques majeures,
ou mineures sous réserve d'accord parental,
à l'exception de toute personne ayant participé
directement ou indirectement à la conception, à la réalisation ou à la gestion du présent jeu.
Article 3
Le jeu est accessible à partir de la page d'accueil du site à l'adresse Internet
<%=doUrl(site_url)%> et sur toutes les pages du site.
Article 4
Pour jouer et gagner, les joueurs doivent :
répondre correctement aux différentes questions dont les réponses sont disponibles
sur le site et sur Internet.
valider leur participation en remplissant obligatoirement le formulaire avec leur coordonnées :
nom, prénom, adresse postale, adresse électronique.
Tout formulaire incomplet est considéré comme nul.
L'inscription implique l'acceptation pleine et entière du présent règlement.
Article 5
Il ne sera pris en compte qu'une seule participation au concours par foyer
(même nom, même adresse postale) durant la durée du jeu.
Article 6
Le <%=date_res%>, tous les participants ayant correctement répondu aux questions posées et dûment complété le formulaire seront départagés par tirage au sort par les responsables du site.
Il ne sera attribué qu'un seul lot par foyer (même nom, même adresse postale).
Article 7
Les gagnants seront avertis par email à l'adresse électronique qu'ils auront indiqué sur le formulaire.
Les lots ne peuvent en aucun cas être échangés à la demande des gagnants
contre leur valeur en espèces ni être remplacés par un autre lot.
Les noms des gagnants seront diffusés sur le site Internet Lucy In The Web.
Article 8
Les organisateurs du concours se réservent le droit d'annuler, d'écourter, de prolonger,
de reporter ou de modifier les conditions du jeu à tout moment si les circonstances l'exigent.
Leurs responsabilités ne sauraient être engagées de ce fait.
Article 9
Les organisateurs du concours déclinent toute responsabilité en cas d'incident lié à l'utilisation
de l'ordinateur, de l'accès à l'Internet, de la ligne téléphonique ou encore de tout autre incident technique.
Les représentants du site Internet <%=site_nom%> ne pourront être tenus responsables en cas
de non distribution ou allongement des délais de mise en place des lots par <%=partner_nom%>.
Article 10
Le règlement du jeu est consultable sur <%=doUrl(site_url)%>.
La chanson de Lucy, par Mumu
"
site_alt = "l'univers des Beatles"
site_mail = "contact@lucyintheweb.net"
partner_nom = "Carlotta Films"
'partner_url = "http://www.defi-net.com"
'partner_img = "
"
'partner_alt = ""
'partner_adr = "127 boulevard Saint Symphorien - 57050 Longeville-Les-Metz"
'partner_cnil = "Defi-Net.com est déclaré à la CNIL sous le numéro 771151."
'partner_limit = ", résidant en France métropolitaine"
'titre = "Concours " & site_nom & " / " & partner_nom
titre2 = "Quizz " & site_nom & " / " & partner_nom
date_deb = "10 septembre 2003"
date_fin = "5 novembre 2003"
date_res = "10 novembre 2003"
nbquest = 1 : nbitem = 4
dim quizz_quest() : redim quizz_quest(nbquest,nbitem+1) : i = 0
i = i+1
quizz_quest(i,0) = "Un des ex-Beatles s'est personnellement investi dans le film All You Need Is Cash, on peut d'ailleurs l'apercevoir à l'écran.
