 |
|
|
|
|
|
33,
rue Raffet |
|
<%
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 end if Set Rec_RS = nothing Set Cmd_command = nothing Set Cnn_connexion = nothing %>
|
|
|
|||||||||||||||||||||||
Copyright © Medcost 2003-Tous droits réservés.
