<%
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%>
">
">
">
Enrichissez
cette présentation
(accès réservé aux membres du réseau)