<%
'On error resume next
Dim Cnn_connexion, Cmd_command, Rec_RS
Set Cnn_connexion = server.CreateObject("ADODB.connection")
Cnn_connexion.ConnectionString = Application("Medcost_ConnectionString")
Cnn_connexion.ConnectionTimeout = Application("Medcost_ConnectionTimeout")
Cnn_connexion.CommandTimeout = Application("Medcost_CommandTimeout")
Cnn_connexion.Open ,Application("Medcost_RuntimeUserName"),Application("Medcost_RuntimePassword")
Set Cmd_command = Server.CreateObject("ADODB.command")
Cmd_command.ActiveConnection = Cnn_connexion
Set Rec_RS = server.CreateObject("ADODB.recordset")
Dim Int_oid_niveau_1, Str_libelle_theme
Int_oid_niveau_1 = Request("oid_niveau_1")
if Int_oid_niveau_1<>"" and isnumeric(Int_oid_niveau_1) then
'l'oid est valide
Cmd_command.CommandText = "select libelle_niveau_1 from sites_niveau_1 where oid_niveau_1=" & Int_oid_niveau_1
Rec_RS.Open Cmd_command
if not Rec_RS.EOF then
Str_libelle_theme = Rec_RS("libelle_niveau_1")
Response.Write " Catégorie : " & Str_libelle_theme & " "
else
Response.Clear
Response.Redirect("index.asp")
end if
Rec_RS.Close
Cmd_command.CommandText = "select distinct(libelle_niveau_2) from Sites_niveau_2, join_niveau_2 where valide_niveau_2=1 and oid_niveau_2=id_niveau_2 and id_niveau_1="& Int_oid_niveau_1 &" ORDER BY libelle_niveau_2"
'Response.Write Cmd_command.CommandText & " "
Rec_RS.Open Cmd_command
Response.Write "Liste des sous-catégories disponibles : "
if not Rec_RS.EOF then
while not Rec_RS.EOF
Response.Write ""&Rec_RS("libelle_niveau_2") & " "
Rec_RS.MoveNext
wend
else
Response.Write "Aucun sous-thème répertorié.
"
end if
Rec_RS.Close
'ici rajouter tous les sites
Cmd_command.CommandText = "select oid_sites_medicaux, nom_site, url_site, commentaire, ressources_principales from sites_medicaux, join_niveau_1, sites_niveau_1 where oid_sites_medicaux=id_sites_medicaux and valide_niveau_1=1 and oid_niveau_1=id_niveau_1 and id_niveau_1="& Int_oid_niveau_1 &" ORDER BY libelle_niveau_1, nom_site"
'Response.Write Cmd_command.CommandText & " "
Rec_RS.Open Cmd_command
if not Rec_RS.EOF then
Dim Arr_resultat1, Arr_final1()
Arr_resultat1 = Rec_RS.GetRows
Rec_RS.Close
Dim int_j, Int_cle, Int_Nb_ligne
Int_nb_ligne = ubound(Arr_resultat1,2)
Redim Arr_final1(0,(Int_nb_ligne*5) + 4)
Dim Int_cpt
Int_cpt=0
for int_j = 0 to Int_nb_ligne
Int_cle = Arr_resultat1(0,Int_j)
Arr_final1(0,Int_cpt) = "" & Arr_resultat1(1,Int_j) & ""
Arr_final1(0, Int_cpt+1) = "Thème : " & Trouve_liste_theme(Int_cle) & " | "
Arr_final1(0, Int_cpt+2) = "Présentation : " & Arr_resultat1(3,Int_j) & ""
Arr_final1(0, Int_cpt+3) = "Description : " & Arr_resultat1(4,Int_j) & ""
Arr_final1(0, Int_cpt+4) = "
"
Int_cpt=Int_cpt+5
next
Response.Write "Sites répertoriés : "
call affiche_par_page (Arr_final1, 50, "Nopage")
Response.Write "Nouvelle recherche "
else
Response.Write "
Aucun site de theme " & Str_libelle_theme & " n'est répertorié. "
Response.Write "Retour "
end if
else
'loid fourni n'est pas valide
Response.Write "L'oid fourni n'est valide."
end if
Set Rec_RS = nothing
Set Cmd_command = nothing
Set Cnn_connexion = nothing
%> |
|
|