Découvrez Medcost

Plan du site

Contactez-nous

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

<% public function Nb_enregistrement ( byref Rec_RS ) Dim Int_nb_ligne Nb_enregistrement = 0 if not Rec_RS.eof then while not Rec_RS.EOF Nb_enregistrement = Nb_enregistrement + 1 Rec_RS.MoveNext wend Rec_RS.MoveFirst end if end function 'On error resume next Dim Cnn_connexion, Cmd_command, Rec_RS, Rec_theme2 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") Set Rec_theme2 = server.CreateObject("ADODB.recordset") Cmd_command.CommandText = "SELECT count(*) as total FROM SITES_MEDICAUX" Rec_RS.Open Cmd_command Dim Total total = Rec_RS("total") Rec_RS.Close Response.Write "" & total & " sites sont actuellement répertoriés dans l'annuaire.

" Cmd_command.CommandText = "SELECT distinct(oid_niveau_1), libelle_niveau_1 FROM SITES_NIVEAU_1, JOIN_NIVEAU_1 WHERE valide_niveau_1=1 and oid_niveau_1=id_niveau_1 ORDER BY libelle_niveau_1" 'Response.Write Cmd_command.CommandText & "
" Rec_RS.Open Cmd_command if not Rec_RS.EOF then Dim Int_nb_ligne, Int_nb1 Int_nb_ligne = Nb_enregistrement ( Rec_RS ) 'calcul du nombre de ligne par colonne (deux colonnes) if cbool(cint(Int_nb_ligne) and 1) then 'impaire Int_nb1 = int((Int_nb_ligne+1)/2) else 'paire Int_nb1 = int(Int_nb_ligne/2) end if Response.Write "
"& vbcrlf while not Rec_RS.EOF Response.Write ""&Rec_RS("libelle_niveau_1") & " 
"& vbcrlf Cmd_command.CommandText = "select distinct(oid_niveau_2), 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="& Rec_RS("oid_niveau_1") &" ORDER BY libelle_niveau_2" Rec_theme2.Open Cmd_command while not Rec_theme2.EOF Response.Write "  "&Rec_theme2("libelle_niveau_2") & "
"& vbcrlf Rec_theme2.MoveNext wend Response.Write "
"& vbcrlf Rec_theme2.Close Rec_RS.MoveNext Int_nb1= Int_nb1 -1 if Int_nb1 = 0 then Response.Write "
"& vbcrlf end if wend Response.Write "
"& vbcrlf else Response.Write "Aucun site répertorié.

"& vbcrlf end if Set Rec_RS = nothing Set Cmd_command = nothing Set Cnn_connexion = nothing %>

 

 





momes.net
momes.net
ados.fr
ados.fr
doc tv
doc.tv
fluctuat.net
fluctuat.net
Suivez toute
l'actualité
du Foot
 
 
 
   
   

 

 

 

 

 

 

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