|
Soucieux de la formation pratique de ses
étudiants, l'Institut Polytechnique offre la possibilité d'effectuer des
stages en milieu industriel au Maroc ou à l'étranger. Ces stages crédités et
rémunérés vous permettront d'acquérir de l'expérience dans votre domaine
d'études, de se familiariser avec le marché du travail et se faire connaître
des employeurs éventuels.
Les stages effectués:
<% if 0 then %>
<% end if %>
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base\StagesWeb.mdb")
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
'Create an ADO recordset object
Set rsStudent = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT DISTINCT Stages.An FROM Stages WHERE PFE=0"
'Open the recordset with the SQL query
rsStudent.Open strSQL, adoCon
'Loop through the recordset
Do While not rsStudent.EOF
'Write the HTML to display the current record in the recordset
Response.Write("")
Response.Write(" ")
Response.Write(" Année :")
Response.Write("")
Response.Write(rsStudent("An"))
Response.Write(" ")
'Move to the next record in the recordset
rsStudent.MoveNext
Loop
'Reset server objects
rsStudent.Close
%>
Les projets de fin d'études:
<% if 0 then %>
<% end if %>
<%
strSQL = "SELECT DISTINCT Stages.An FROM Stages WHERE PFE=-1"
'Open the recordset with the SQL query
rsStudent.Open strSQL, adoCon
'Loop through the recordset
Do While not rsStudent.EOF
'Write the HTML to display the current record in the recordset
Response.Write(" ")
Response.Write(" ")
Response.Write(" Année :")
Response.Write("")
Response.Write(rsStudent("An"))
Response.Write(" ")
'Move to the next record in the recordset
rsStudent.MoveNext
Loop
'Reset server objects
rsStudent.Close
%>
Les partenaires:
<%
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT DISTINCT Stages.Compagnie,Stages.Photo FROM Stages"
'Open the recordset with the SQL query
rsStudent.Open strSQL, adoCon
'Loop through the recordset
Do While not rsStudent.EOF
'Write the HTML to display the current record in the recordset
Response.Write("| ")
Response.Write(" ")
Response.Write(" ")
Response.Write( rsStudent("Compagnie"))
Response.Write (" | ")
Response.Write ("")
Response.Write(" ")
'Response.Write("")
' Response.Write(" ")
If rsStudent("Photo")<>"M" Then
Response.Write " "
End If
Response.Write (" | ")
'Move to the next record in the recordset
rsStudent.MoveNext
Loop
'Reset server objects
rsStudent.Close
Set rsStudent = Nothing
Set adoCon = Nothing
%>
|
