Recherchez dans les brèves
Pour rechercher une brève, sélectionnez le ou les critères de recherche de votre choix puis cliquez sur le bouton "Recherche".
|
|
Et/Ou
|
|
|
Effectuez une recherche par thème :
|
<% '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")
Cmd_command.CommandText = "select * from THEME order by nom_theme"
Rec_RS.Open Cmd_command'en lecture ça suffit
%>
|
|
Et/Ou
|
|
|
Effectuez une recherche par date :
|
|
|
Copyright © Medcost 2000 -Tous droits
réservés. |
|