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") 'récupération des données du formulaire Dim Int_oid_breve Int_oid_breve = request("oid_breve") if Int_oid_breve<>"" and isnumeric(Int_oid_breve) then Cmd_command.CommandText = "select *,nom_theme from breve, theme where id_theme = oid_theme and oid_breve=" & Int_oid_breve Rec_RS.Open Cmd_command if Rec_RS.EOF then Response.Write "La brève dont le numéro a été fourni n'est pas valide.
" else%>
<%="" & Rec_RS("date_breve")&" - " &Rec_RS("titre_breve")&""%>

<%=Rec_RS("corps_breve1")&Rec_RS("corps_breve2")%> <% if request("action")<>"" then %>
<% else %>
<% end if %>
<% end if else Response.Write "La brève dont le numéro a été fourni n'est pas valide.
" 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.

j

 

 
 
   
   

 

 

 

 

 

 

 

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