<%@LANGUAGE="VBSCRIPT"%> <% Dim objRSNom__varID_auteur objRSNom__varID_auteur = "3" if (Request("ID_Auteur") <> "") then objRSNom__varID_auteur = Request("ID_Auteur") %> <% set objRSNom = Server.CreateObject("ADODB.Recordset") objRSNom.ActiveConnection = MM_membre_STRING objRSNom.Source = "SELECT Nom_Auteur, Prenom_Auteur, Motscle_Auteur FROM T_Auteur WHERE ID_Auteur = " + Replace(objRSNom__varID_auteur, "'", "''") + "" objRSNom.CursorType = 3 objRSNom.CursorLocation = 2 objRSNom.LockType = 3 objRSNom.Open() objRSNom_numRows = 0 %> <% Dim objRSindexPlatine__var_IDauteur objRSindexPlatine__var_IDauteur = "3" if (Request("ID_Auteur") <> "") then objRSindexPlatine__var_IDauteur = Request("ID_Auteur") %> <% set objRSindexPlatine = Server.CreateObject("ADODB.Recordset") objRSindexPlatine.ActiveConnection = MM_membre_STRING objRSindexPlatine.Source = "SELECT * FROM T_indexPlatine WHERE ID_Auteur = " + Replace(objRSindexPlatine__var_IDauteur, "'", "''") + "" objRSindexPlatine.CursorType = 0 objRSindexPlatine.CursorLocation = 2 objRSindexPlatine.LockType = 3 objRSindexPlatine.Open() objRSindexPlatine_numRows = 0 %>

<%=(objRSNom.Fields.Item("Prenom_Auteur").Value & " " & ObjRSNom.Fields.Item("Nom_Auteur").Value)%> <%if objRSindexPlatine.Fields.Item("Photo_indexPlatine").Value = 1 then %> <% end if %> .jpg" width="150"> <%=(objRSindexPlatine.Fields.Item("Titre_indexPlatine").Value)%> <%=(objRSindexPlatine.Fields.Item("SousTitre_indexPlatine").Value)%> <%=(objRSindexPlatine.Fields.Item("Texte_indexPlatine").Value)%> ">

<% objRSNom.Close() %> <% objRSindexPlatine.Close() %>