<% accessdb="/sondages/votestan.mdb" cn="driver={Microsoft Access Driver (*.mdb)};" cn=cn & "dbq=" & server.mappath(accessdb) Set db = Server.CreateObject("ADODB.Connection") db.Open cn,"","" ' Là je teste si l'internaute a voté pour un des deux formulaires IF request.Form("VOTE1")<>"" OR request.Form("VOTE2")<>"" Then ' Il a voté ' Maintenant on va tester si il a déjà voté pour la question (en question) accessdb="/sondages/votestan" set rs = server.createobject("ADODB.Recordset") sql = "select ip from VOTES" sql = sql + " where ip ='" & Request.ServerVariables("REMOTE_ADDR") & "' and IDQUESTION=" & Request.Form("question") rs.Open sql, db if rs.eof then rs.close Set rs=Nothing ' Il n'a pas encore voté pour cette question ' donc on va mettre à jour les deux tables (QUESTIONS et VOTES) 'On commence par la Table VOTES sql = "insert into VOTES (IDQUESTION,IP,SELECTION,DATEVOTE) " sql = sql & "values (" & Request.Form("QUESTION") & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," sql = sql & Request.Form("a_input") & ",#" & DATE() & "#)" db.execute(sql) 'Puis par la table QUESTIONS sql = "UPDATE QUESTIONS SET SELECTION" & REQUEST.FORM("a_input") & "=SELECTION" & REQUEST.FORM("a_input") & "+ 1" sql = sql & " Where IDQUESTION=" & Request.Form("question") db.execute(sql) Else rs.close Set rs=Nothing END IF END IF %> Liens vers les médias
Menu

Les Médias

 

Télévisions - Radios - Presse Ecrite

 • Télévisions

France

&NomduSite=<%=Server.UrlEncode("TF1")%>" target="_blank">TF1
&NomduSite=<%=Server.UrlEncode("France 2")%>" target="_blank">France 2
&NomduSite=<%=Server.UrlEncode("France 3")%>" target="_blank">France 3
&NomduSite=<%=Server.UrlEncode("Canal Plus")%>" target="_blank">Canal +
&NomduSite=<%=Server.UrlEncode("M6")%>" target="_blank">M6
&NomduSite=<%=Server.UrlEncode("TPS")%>" target="_blank">TPS
&NomduSite=<%=Server.UrlEncode("Canal Satellite")%>" target="_blank">Canal Satellite
&NomduSite=<%=Server.UrlEncode("La Chaine Météo")%>" target="_blank">La Chaine Météo
&NomduSite=<%=Server.UrlEncode("R.F.O")%>" target="_blank">RFO
&NomduSite=<%=Server.UrlEncode("Zouk TV")%>" target="_blank">Zouk TV

Etats Unis

&NomduSite=<%=Server.UrlEncode("Weather Channel")%>" target="_blank">Weather Channel
&NomduSite=<%=Server.UrlEncode("")%>">Réseau NBC
&NomduSite=<%=Server.UrlEncode("")%>">Réseau CBS
&NomduSite=<%=Server.UrlEncode("")%>">Réseau ABC
&NomduSite=<%=Server.UrlEncode("")%>">Réseau Fox

 . Alabama

&NomduSite=<%=Server.UrlEncode("WKRG 5 - Mobile, AL")%>" target="_blank">WKRG 5 - Mobile
&NomduSite=<%=Server.UrlEncode("WPMI 15 - Mobile-Pensacola-Ft Walton Beach")%>" target="_blank">WPMI 15 - Mobile

 . Caroline du Nord

&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 . Caroline du Sud

&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 . Floride

&NomduSite=<%=Server.UrlEncode("WPMI 15 - Mobile-Pensacola-Ft Walton Beach")%>" target="_blank">WPMI 15 - Pensacola/Fort Walton Beach
&NomduSite=<%=Server.UrlEncode("NBC 2 - Fort Myers, FL")%>" target="_blank">NBC 2 - Fort Myers
&NomduSite=<%=Server.UrlEncode("WFTS ABC 28 - Tampa Bay, FL")%>">WFLA - Tampa Bay
&NomduSite=<%=Server.UrlEncode("WTSP - St Petersburg, FL")%>" target="_blank">WFTS ABC 28 - Tampa
WTSP - St Petersburg
&NomduSite=<%=Server.UrlEncode("WTVT - Tampa, FL")%>" target="_blank">WTVT - Tampa
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 . Géorgie

&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 . Hawaii

&NomduSite=<%=Server.UrlEncode("KGMB - Honolulu, HI")%>" target="_blank">KGMB - Honolulu
&NomduSite=<%=Server.UrlEncode("KHNL 8 - Honolulu, HI")%>" target="_blank">KHNL 8 - Honolulu
&NomduSite=<%=Server.UrlEncode("KIKU - Honolulu, HI")%>" target="_blank">KIKU - Honolulu
&NomduSite=<%=Server.UrlEncode("KITV 4 - Honolulu, HI")%>" target="_blank">KITV 4

 . Louisiane

&NomduSite=<%=Server.UrlEncode("WWLTV New Orleans")%>" target="_blank">WWLTV New Orleans
&NomduSite=<%=Server.UrlEncode("Fox48 Natchez - Alexandria, La.")%>" target="_blank">WNTZ48 Natchez - Alexandria
&NomduSite=<%=Server.UrlEncode("WBRZ - Baton Rouge, LA")%>" target="_blank">WBRZ - Baton Rouge
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 . Mississippi

&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 . Texas

&NomduSite=<%=Server.UrlEncode("KHOU - Houston, TX")%>" target="_blank">KHOU - Houston
&NomduSite=<%=Server.UrlEncode("KRPC - Houston, TX")%>" target="_blank">KRPC - Houston
&NomduSite=<%=Server.UrlEncode("KTRK - Houston, TX")%>" target="_blank">KRTK - Houston
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

Autres

&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel
&NomduSite=<%=Server.UrlEncode("")%>">Channel

 Radios

France
&NomduSite=<%=Server.UrlEncode("RCI - Radio Caraibes International")%>" target="_blank">Radio Caraibes International (RCI) &NomduSite=<%=Server.UrlEncode("Ecoutez NRJ Antilles avec Windows Media Player")%>" target="_blank">
&NomduSite=<%=Server.UrlEncode("NRJ Antilles")%>" target="_blank">NRJ Antilles&NomduSite=<%=Server.UrlEncode("Ecoutez NRJ Antilles avec Windows Media Player")%>" target="_blank">
Etats Unis
Weather Channel

Autres

Weather Channel

 • Presse Ecrite

France
Weather Channel
Etats Unis
Weather Channel
Autres
Weather Channel

Shopping
 

Le Guide des Premiers Secours

cliquez ici pour acheter ce livre


9.98 €cliquez ici pour acheter ce livre

 
 


 
Abris Sûrs
 

Recherchez l'abri cyclonique le plus proche de chez vous!

  Recherche par:

  Entrez votre sélection:

 
 
 
Pronostics
  <%LENUMERODEMAQUESTION=1 ' (par exemple) set rs = server.createobject("ADODB.Recordset") sql = "select question from questions Where IDQUESTION=" & LENUMERODEMAQUESTION ' LENUMERODEMAQUESTION est le numéro que tu auras choisi rs.Open sql, db QUESTION=rs("question") rs.Close Set rs=Nothing ' Maintenant tu formates ton formulaire %>
">

<%= question %> :

Aucun
1 à 2
3
4
5 ou plus

<% ' Si tu veux utiliser le même script plusieurs fois sur ta page, nomme la balise suivante avec 1 nom différent ' . Là g mis VOTE1 %>

 
 
Archives
 

Recherchez un cyclone par