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") Response.Write "

Nos dernières brèves

" 'requete permettant de récupérer les données concernant toutes les brèves 'à mettre dans un tableau qui sera transmis à la sub-routine 'qui se charge de l'affichage page par page Cmd_command.CommandText = "select distinct(oid_breve), date_breve, titre_breve from breve order by date_breve DESC, titre_breve ASC" Rec_RS.Open Cmd_command Dim Int_nb_ligne Int_nb_ligne = Nb_enregistrement(Rec_RS) 'aménagement du tableau avant passage à la sub-routine Dim Arr_resultat,j if not Rec_RS.EOF then ReDim Arr_resultat(3,Int_nb_ligne*2) j=0 while not Rec_RS.EOF Arr_resultat(0,j) = " "& Rec_RS("date_breve") &"" Arr_resultat(1,j) = "-" Arr_resultat(2,j) = "" & Rec_RS("titre_breve") & "" Rec_RS.Movenext Arr_resultat(0,j+1)=" " j=j+2 wend Rec_RS.Close call affiche_par_page(Arr_resultat,10,"Nopage") else Response.Write "

Aucun enregistrement trouvé
Autre recherche

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

 

Rejoignez-nous

Dernières brèves
Rechercher dans les brèves
Contactez-nous
Des questions sur le contenu du site ? Contactez-nous. Nous ferons notre possible pour vous éclairer.

 

 
 
   
   

 

 

 

 

 

 

 

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