<% 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,"","" IF request.Form("VOTE1")<>"" OR request.Form("VOTE2")<>"" Then 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 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) 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 %> Liste des abris sûrs de Trois Rivières
Menu

Trois Rivières

 

Abris sûrs

Hôtel de Ville, Bourg
92.90.05

Régie des Eaux, Bourg
92.96.02

O.S.B.F, Bourg

n.c

Gîte communal, Bourg
n.c

Ecole en dur, Section Grand'Anse
92.91.02

Ecole, Section La Regrettée

n.c

Ecole Mixte II, Section Schoelcher
92.91.06

Ecole, Section La Plaine

92.91.03
Centres d'hébergement

O.S.B.F
(Office Socio-culturel Bloncourt Francillette)
n.c

Ecole de La Plaine
92.91.03

Ecole de Grand'Anse (partie en dur)
92.91.02

Ecole de la Regrettée
n.c

Ecole Maternelle du Bord de Mer
92.97.70

Ecole Mixte II du Bourg
92.91.06

Gîte Communal
n.c
Bâtiments Particuliers

Clinique Les Colibris
n.c

Liste non remise à jour depuis 2002
Shopping
 

 
 


 
Archives
 

Recherchez un cyclone par