Découvrez Medcost

Plan du site

Contactez-nous

33, rue Raffet
75 016 Paris
Tél : 01 42 15 08 08

<% oid_fiche = Request.QueryString("oid_fiche") id_departement= Request.Form("id_departement") 'oid_annuaire = Request.QueryString("oid_annuaire") oid = Request.form ("oid") 'Response.Write oid_fiche&"zz" id_cat_prof = Request.Form ("id_cat_prof") set DataConn= session("ConnexionBDD") Set DataCmd=Server.CreateObject("ADODB.Command") DataCmd.ActiveConnection=DataConn Set cmdTemp = Server.CreateObject("ADODB.Command") cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = Dataconn Set RS= Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "select * from annuaire_reseau,fiches where oid_annuaire = id_annuaire_reseau and oid_annuaire = "&oid_fiche&" " RS.Open cmdTemp, , 3, 3 if not RS.EOF then oid = RS ("oid_annuaire") nom = RS("nom") date_creation = RS("date_creation") nb_patient = RS("nb_patient") nb_prof = RS("nb_prof") statut = RS ("statut") agrement = RS ("agrement") adresse = RS ("adresse") code_postal = RS("code_postal") id_departement = RS ("id_departement") 'id_cat_prof = RS ("id_cat_prof") ville = RS ("ville") tel = RS ("tel") fax = RS ("fax") email = RS ("email") url = RS ("url") presentation = RS ("presentation") titre = RS ("titre") projets = RS ("projets") objectifs = RS ("objectifs") criteres_evaluation = RS ("criteres_evaluation") derniere_minute = RS ("derniere_minute") syst_info = RS ("syst_info") nom_image = RS ("nom_image") 'chemin_upload = RS ("chemin_upload") promoteur = RS ("promoteur") 'nom1 = Request.Form ("nom1") 'nom2 = Request.Form ("nom2") 'nom3 = Request.Form ("nom3") 'nom4 = Request.Form ("nom4") nom_resp = Request.Form ("nom_resp") titre1 = RS("titre1") http1 = RS("http1") date1 = RS("date1") titre2 = RS("titre2") http2 = RS("http2") date2 = RS("date2") titre3 = RS("titre3") http3 = RS("http3") date3 = RS("date3") titre4 = RS("titre4") http4 = RS("http4") date4 = RS("date4") titre5 = RS("titre5") http5 = RS("http5") date5 = RS("date5") titre6 = RS("titre6") http6 = RS("http6") date6 = RS("date6") titre7 = RS("titre7") http7 = RS("http7") date7 = RS("date7") titre8 = RS("titre8") http8 = RS("http8") date8 = RS("date8") titre9 = RS("titre9") http9 = RS("http9") date9 = RS("date9") titre10 = RS("titre10") http10 = RS("http10") date10 = RS("date10") end if RS.Close cmdTemp.CommandText = "select libelle_specialite from specialites, join_spe_annuaire where oid_specialite = id_specialite and id_annuaire = "&oid_fiche 'response.write cmdTemp.CommandText RS.Open cmdTemp, , 3, 3 if not RS.EOF then tab_specialite = RS.GetRows end if RS.Close cmdTemp.CommandText = "select * from join_resp_annuaire,responsables where id_responsable = oid_responsable and id_annuaire=" &oid_fiche set RS = server.CreateObject ("adodb.recordset") RS.Open cmdTemp , , 3, 3 i=0 dim nom_resp() dim prenom_resp() dim titre_resp() dim fonction_resp() redim preserve nom_resp(3) redim preserve prenom_resp(3) redim preserve titre_resp(3) redim preserve fonction_resp(3) do while not RS.eof nom_resp(i) = RS("nom_resp") prenom_resp(i) = RS("prenom_resp") titre_resp(i) = RS("titre_resp") fonction_resp(i) = RS("fonction_resp") i=i+1 RS.movenext loop RS.close %>

<%=nom%>
<%=adresse%>
<%=code_postal%> <%=ville%>
<%if tel<>" " then%> Tél : <%=tel%>
<%end if%> <%if fax<>" " then%> Fax : <%=fax%>


<%end if%>
<%if nom <> " " then %> Responsable(s) :
<%end if%> <%for i=0 to 3%> <%=titre_resp(i)%>  <%=prenom_resp(i)%>  <%=nom_resp(i)%>  <%=fonction_resp(i)%>
<%next%> <%=email%>


<%=url%>


Date de création :  <%=date_creation%>
Spécialités : <%if isarray (tab_specialite) then for i=0 to ubound(tab_specialite,2)%> <%Response.Write tab_specialite(0,i)& " "%> <%next end if%>
<%if statut <>" " then%> Statut juridique :  <%=statut%>
<%end if%> <%if agrement <> " " then%> Agrément :  <%=agrement%>
<%end if%> <%if promoteur <> " " then%> Promoteur(s)/Partenaire(s) :  <%=promoteur%>
<%end if%> <%if nb_patient <>" " then%> Nombre de patients pris en charge :  <%=nb_patient%>
<%end if%> <%if nb_prof <>" " then%> Nombre de professionnels :  <%=nb_prof%>
<%end if%>

Catégorie(s) professionnelle(s): <%=id_cat_prof%>

<% 'permet de récupérer les csp dans le tableau de la fiche réseau cmdTemp.CommandText = "SELECT libelle_cat_prof FROM Categories_prof WHERE oid_cat_prof IN (SELECT id_cat_prof FROM join_cat_prof_annuaire WHERE id_annuaire = "&Cint(oid)&")" 'Response.Write cmdTemp.CommandText RS.Open cmdTemp , , 3, 3 do while not rs.EOF Response.Write rs("libelle_cat_prof")&"
" rs.MoveNext loop RS.close %>
 
Objectifs du réseau
<%=objectifs%>
Projets du réseau
<%=projets%>
Critères d'évaluation
<%=criteres_evaluation%>
Système d'information utilisé
<%=syst_info%>

<%if titre1 <> "" then%>  Lire aussi :
<%end if%>
<%=titre1%> <%=date1%>
<%=titre2%> <%=date2%>
<%=titre3%> <%=date3%>
<%=titre4%> <%=date4%>
<%=titre5%> <%=date5%>
<%=titre6%> <%=date6%>
<%=titre7%> <%=date7%>
<%=titre8%> <%=date8%>
<%=titre9%> <%=date9%>
<%=titre10%> <%=date10%>
"> "> ">

 Enrichissez cette présentation
(accès réservé aux membres du réseau)

Annuaire des réseaux
Recherchez un réseau
Ajoutez un réseau
En savoir plus sur les réseaux

 

 
 
   
   

 

 

 

 

 

 

Copyright © Medcost 2003-Tous droits réservés.

 
Dossiers
Plan du site
 
Références : Doctissimo I Caradisiac I Ados.fr I Momes.net I gnomz.com I fluctuat.net