<% 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%> ">

<%=nom%>

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

<%=replace(textBody, "
", "

")%>

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