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