<% dim cn dim rs dim sql dim textIntro dim textBody dim nom set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.RecordSet") idtheme = Request.queryString("idTheme") if idTheme = "" then idtheme = "T01" end if idRamification = request.QueryString("idRamification") if idRamification = "" then idRamification = "R00" end if cn.Open constr cn.CursorLocation = 3 sql = "SELECT rt.textIntro, rt.textBody " if idRamification <> "R00" then sql = sql & ", t.nom FROM Ramification_Theme rt, theme t WHERE rt.ID_Theme = t.ID AND ID_Theme = '" & idTheme & "' AND ID_Ramification = '" & idRamification & "'" else sql = sql & ", nom FROM Theme rt WHERE ID = '" & idTheme & "'" end if 'response.Write sql rs.Open sql, cn, 0, 4 textIntro = rs("textIntro") textBody = rs("textBody") nom = rs("nom") rs.Close %> De pierre, de bois, de brique - <%=nom%><%if idRamification <> "R00" then%> - <%=textIntro%><%end if%> ">
Accueil
<% sql = "SELECT count(idGlossaire) as nombreMot FROM glossaire WHERE idTheme = '" & idTheme & "' AND idRamification = '" & idRamification & "'" rs.Open sql, cn, 0, 4 if rs("nombreMot") = 0 then %> <% else %> <% end if rs.Close %>
Carte géoclimatique du Québec
La maison Lamontagne
Des maisons à visiter
<%=nom%>  
<% sql = "SELECT id, nom FROM Maison WHERE id_theme = '" & idTheme & "'" rs.Open sql, cn, 0, 4 %>
<%if instr(1, idTheme, "G") = 0 then%> Ramifications
<% sql = "SELECT rt.ID_Ramification as id_ramification, r.nom as nom FROM Ramification_Theme rt, Ramification r WHERE r.id = rt.id_ramification AND rt.id_Theme = '" & idTheme & "' ORDER BY r.nom ASC" rs.Open sql,cn , 0, 4 %> <%rs.Close%>
<%end if%>
<%if rs.RecordCount <> 0 then%> Maisons à visiter
<% else %> <% end if rs.Close%>
   
 
<% sql = "SELECT count(ID) as nombrePhoto FROM " if idRamification = "R00" then sql = sql & "themePhoto WHERE id_theme = '" & idTheme & "'" else sql = sql & "ramificationPhoto WHERE id_theme = '" & idTheme & "' AND id_ramification = '" & idRamification & "'" end if 'response.Write sql rs.Open sql, cn, 0, 4 nombrePhoto = rs("nombrePhoto") rs.close %>
<%if nombrePhoto <> 0 then%><%end if%>

&idramification=<%=request.querystring("idramification")%>" target="_blank" onMouseOver="MM_swapImage('Image2','','/images/imprime_f2.gif',1)" onMouseOut="MM_swapImgRestore()">Version imprimable

"R00" then%> class="titre"<%end if%>><%=textIntro%>

<%=replace(textBody, "
", "

")%>

 
 
 
 
   
<% cn.Close set rs = nothing set cn = nothing %>