<% '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
%>
|
|
|