<% Option Explicit Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <% Sub DBConnect(ByVal strType, ByRef objConn) dim strConnection '------------------------------------------------------ ' Function: DBConnect ' Date: Oct 10,01 ' Purpose: The purpose of this function is to ' connect to the database '---------------------------------------------------- Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "Provider=SQLNCLI10;DataTypeCompatibility=80;Server=192.168.0.101;Database=Xynyth;Uid=XynythApp;Pwd=c2U1sn9T^h;" objConn.Open strConnection End Sub Sub DBDisconnect(ByRef objConn) '------------------------------------------------------ ' Function: DBDisconnect ' Date: Oct 10,01 ' Purpose: The purpose of this function is to ' disconnect from the database '---------------------------------------------------- 'close the connection objConn.Close 'release the memory Set objConn = Nothing End Sub %> XYNYTH Manufacturing Corp.| North American Ice melting Industry and Deicer | Based In Vancouver
1-800-
MELT ICE ( 635-8423 )
sales@XYNYTH.com
EN   /  FR
Student Practicums

What sets up apart… XYNYTH’s Corporate Head Office is a place where practicum students prosper. Our dynamic staff is multi-cultural, multi-skilled and multi-aged. We encourage a positive, productive and fun atmosphere. XYNYTH also leads the way in the industry technologically, so on top of improving English skills, learning about North American business practices and honing your skills as part of a cohesive team, students get access to our complex databases and fantastic website, so they’re learning timeless interpersonal skills as well as cutting-edge technical skills.

What you should know… Potential practicum students are interviewed in the same manner as regular staff, and are expected to adhere to the same organizational conventions as regular employees – we feel that way they get the most authentic practicum experience. Students stay an average of 3 months, and keep regular office hours. While working with us, students are encouraged to participate in any and all office functions that take place, including monthly potluck lunches, seasonal parties, corporate spirit building exercises and outings.


Note - You may need to [allow pop-ups] from our site in order to view our practicum ads

 

 

<% dim objConn dim strSQL dim objRs dim strLink 'connect to the database call DBConnect("WEBINFO",objConn) set objRs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Web_tblEmployment WHERE Type = 'Practicum' AND '" & Date() & "' BETWEEN StartDate AND EndDate ORDER BY ID ASC" objRS.Open strSQL, objConn, adOpenKeyset, adLockReadOnly If objRs.recordcount > 0 Then Response.write "

Note - You may need to [allow pop-ups] from our site in order to view our practicum ads

" Do while not(objRs.EOF) strLink = "?id=" & objRS("ID") & "&position=" & Server.URLEncode(objRs("Position")) Response.write "" objRs.movenext LOOP Response.write "
The Following Position(s) Are Currently Available:
  • " & "" & objRs("Position") & "" & "
    • " Else Response.write "

    No position available now, please come back and check again later.

    " End If objRs.close set objRs = nothing 'close the connection to the database call DBDisconnect(objConn) %>
    ARE YOU A COLLEGE / UNIVERSITY

    INTERNSHIP COORDINATOR?


    Click Here

    Testimonials