<%
option explicit
dim objConn
dim objRS, objFlash
dim titre, texte, photo1, photo2
dim idflash, resumeflash
set objConn = server.CreateObject("ADODB.Connection")
objConn.Open "Parempuyre.database"
set objRS = objConn.Execute("select * from Editorial where IDEdito=1")
do while not objRS.EOF
titre=objRS("titreEdito")
texte=objRS("texteEdito")
photo1=objRS("Photo1Edito")
photo2=objRS("Photo2Edito")
titre=titre & "\"
titre=replace(titre,"\","'")
titre=left(titre,len(titre)-1)
texte=texte & "\"
texte=replace(texte,"\","'")
texte=left(texte,len(texte)-1)
objRS.MoveNext
loop
set objFlash = objConn.Execute("select IDFA, ResumeFA from FlashActu where VisibleFA='Oui'")
%>
Ville de Parempuyre
Hôtel de
Ville
33290 Parempuyre
(France)
tél. (33) 0556955620
fax (33) 0556955610 ville@parempuyre.fr
