<% Response.Expires = 0 dim traduct(150) t=0 Set Conn = Server.CreateObject("ADODB.Connection") conn.open "DSN=competencespro" Set Conn2 = Server.CreateObject("ADODB.Connection") conn2.open "DSN=competencespro2" SQLstmt="select * from traduct1fr ORDER BY N°" 'response.write SQLstmt & "

" Set RS = Conn2.Execute(SQLStmt) 'response.write SQLstmt & "

" do while not rs.eof t=t+1 traduct(t)=rs(1) 'response.write traduct(t) & "

" rs.movenext loop %> CompetencesPro

 

 

 

présentent

 

 

2 outils d'évaluation :

 

Les métiers de base du service

 

 Les métiers de base de l'industrie