%@LANGUAGE="VBSCRIPT"%>
<%
set myconn=server.CreateObject("adodb.connection")
filepath=server.MapPath("systemic.mdb")
'response.Write filepath
chemin="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";Persist Security Info=False"
myconn.open chemin
set myrec=server.CreateObject("adodb.recordset")
myrec.open "select*from categorie", myconn
set myrec1=server.CreateObject("adodb.recordset")
myrec1.open "select* from contenu", myconn
%>
L'ingénierie de formation
|
|
<%
'recherches critérielles
if len(request.Form("txt_contenu"))=0 and trim(request.querystring("categ"))<>"" then
strsql="select* from formation where id_categorie=" & trim(request.querystring("categ"))
set recformat=server.CreateObject("adodb.recordset")
recformat.open strsql, myconn%>
Modules de formation
|
<%while not recformat.eof%>
"><%=recformat("titre")%>
|
<%recformat.movenext
wend
end if
' la recherche par mot clé
if len(request.Form("txt_contenu")) then
if request.Form("txt_contenu")<>"" then
while not myrec1.eof
if instr(1,myrec1("contenu"),trim(request.Form("txt_contenu")))<>0 then
set recformation=server.CreateObject("adodb.recordset")
recformation.open "formation", myconn
while not recformation.eof
if recformation("Id_formation")=myrec1("Id_formation") then%>
| "><%=recformation("titre")%> |
<%end if
recformation.movenext
wend
end if
myrec1.movenext
wend
end if
myrec1.close
end if
%>
|
Consultez notre calendrier de formation.
|
|
Pour en savoir plus sur les remboursem ents, visitez
le site de l'OFPPT
|
 |
|
|
|
(c) Systemic 2002-2010 - Iman center Rue Errachid, Angle Av. des FAR, Casablanca