Découvrez Medcost

Plan du site

Contactez-nous

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

<% '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_2, Str_libelle_theme Int_oid_niveau_2 = Request("oid_niveau_2") if Int_oid_niveau_2<>"" and isnumeric(Int_oid_niveau_2) then 'l'oid est valide Cmd_command.CommandText = "select libelle_niveau_2 from sites_niveau_2 where oid_niveau_2=" & Int_oid_niveau_2 Rec_RS.Open Cmd_command if not Rec_RS.EOF then Str_libelle_theme = Rec_RS("libelle_niveau_2") Response.Write "

Catégorie : " & Str_libelle_theme & "

" else Response.Clear Response.Redirect("index.asp") 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_2, sites_niveau_2 where oid_sites_medicaux=id_sites_medicaux and valide_niveau_2=1 and oid_niveau_2=id_niveau_2 and id_niveau_2="& Int_oid_niveau_2 &" ORDER BY libelle_niveau_2, 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 %>

 

 

 
 
   
   

 

 

 

 

 

 

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