<%
'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%>
Thème :
|
<%=Rec_Rs("nom_theme")%>
|
Programme
: |
<%=Rec_RS("programme_congres")%>
|
|
<%
if trim(Rec_RS("telephone_congres"))<>"" then
%>
Téléphone :
|
<%=Rec_Rs("telephone_congres")%>
|
<%
end if
if trim(Rec_RS("fax_congres"))<>"" then
%>
Fax :
|
<%=Rec_Rs("fax_congres")%>
|
<%
end if
if trim(Rec_RS("email_congres"))<>"" then
%>
E-mail :
|
"><%=Rec_Rs("email_congres")%>
|
<%
end if
%>
<%
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
%>
| |
|