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_congres Int_oid_congres = request("oid_congres") if Int_oid_congres<>"" and isnumeric(Int_oid_congres) then Cmd_command.CommandText = "select *,nom_theme from congres, theme where id_theme=oid_theme and oid_congres=" & Int_oid_congres Rec_RS.Open Cmd_command,,1,1 if Rec_RS.EOF then Response.Write "Le congrès dont le numéro a été fourni n'est pas valide.
" else%>
Du <%=left(Rec_RS("debut_congres"),5)%> au <%=left(Rec_RS("fin_congres"),5)%> , <%=Rec_RS("organisateur_congres")%>

<%=Rec_RS("nom_congres")%>
<%if cbool(Rec_RS("medcost_congres")) then Response.Write "

" & vbcrlf end if%> <% if trim(Rec_RS("telephone_congres"))<>"" then %> <% end if if trim(Rec_RS("fax_congres"))<>"" then %> <% end if if trim(Rec_RS("email_congres"))<>"" then %> <% end if %>
Thème : <%=Rec_Rs("nom_theme")%>
Programme :
<%=Rec_RS("programme_congres")%>
Téléphone : <%=Rec_Rs("telephone_congres")%>
Fax : <%=Rec_Rs("fax_congres")%>
E-mail : "><%=Rec_Rs("email_congres")%>
<% if trim(Rec_RS("fichier_congres"))<>"" then %> Pour en savoir plus: "><%=Rec_RS("fichier_congres")%> <% end if %>

Retour

<% end if else Response.Write "Le congrès 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 %>

 

 

AGENDA

Pour plus d'informations sur l'agenda des congrès, contactez-nous.

 

 
 
   
   

 

 

 

 

 

 

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