<% Dim CONN_STRING CONN_STRING = Conn Dim rs1, strSQL1 strLE = "LE" strPE = "PE" strHE = "HE" strTM = "TM" strGE = "GE" %> Petrolab Engineering
Petroleum Technology in a Green Environment

August 31, 2006 Rev. 05, Issue 02
<% strSQL1 = "SELECT * FROM Training_List WHERE ref LIKE '%" & strLE & "%'" Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open strSQL1, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText %> <% Do While Not rs1.EOF %> <%if rs1.Fields("link").Value = "nosum.htm" then%> <%else%> <%end if%> <% rs1.MoveNext Loop rs1.Close Set rs1 = Nothing %> <% strSQL2 = "SELECT * FROM Training_List WHERE ref LIKE '%" & strPE & "%'" Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open strSQL2, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText %> <% Do While Not rs2.EOF %> <%if rs2.Fields("link").Value = "nosum.htm" then%> <%else%> <%end if%> <% rs2.MoveNext Loop rs2.Close Set rs2 = Nothing %> <% strSQL3 = "SELECT * FROM Training_List WHERE ref LIKE '%" & strHE & "%'" Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.Open strSQL3, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText %> <% Do While Not rs3.EOF %> <%if rs3.Fields("link").Value = "nosum.htm" then%> <%else%> <%end if%> <% rs3.MoveNext Loop rs3.Close Set rs3 = Nothing %> <% strSQL4 = "SELECT * FROM Training_List WHERE ref LIKE '%" & strTM & "%'" Set rs4 = Server.CreateObject("ADODB.Recordset") rs4.Open strSQL4, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText %> <% Do While Not rs4.EOF %> <%if rs4.Fields("link").Value = "nosum.htm" then%> <%else%> <%end if%> <% rs4.MoveNext Loop rs4.Close Set rs4 = Nothing %> <% strSQL5 = "SELECT * FROM Training_List WHERE ref LIKE '%" & strGE & "%'" Set rs5 = Server.CreateObject("ADODB.Recordset") rs5.Open strSQL5, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText %> <% Do While Not rs5.EOF %> <%if rs5.Fields("link").Value = "nosum.htm" then%> <%else%> <%end if%> <% rs5.MoveNext Loop rs5.Close Set rs5 = Nothing %>
(1) Analytical Laboratory & Process Analyzers
Ref.
Course Title
Duration (Days)
Date
Fees per Participant (US$)
Location
Course
Instructor(s)
 <%= rs1.Fields("ref").Value %> <%= rs1.Fields("title").Value %> <%= rs1.Fields("duration").Value %> <%= rs1.Fields("date").Value %> <%= rs1.Fields("fees").Value %> <%= rs1.Fields("location").Value %> <%= rs1.Fields("instructor").Value %>
(2) Process & Chemical Engineering 
Ref.
Course Title
Duration (Days)
Date
Fees per Participant (US$)
Location
Course
Instructor(s)
 <%= rs2.Fields("ref").Value %> <%= rs2.Fields("title").Value %> <%= rs2.Fields("duration").Value %> <%= rs2.Fields("date").Value %> <%= rs2.Fields("fees").Value %> <%= rs2.Fields("location").Value %> <%= rs2.Fields("instructor").Value %>
(3) Safety, Hazard, Risk,  Health & Environment
Ref.
Course Title
Duration (Days)
Date
Fees per Participant (US$)
Location
Course
Instructor(s)
 <%= rs3.Fields("ref").Value %> <%= rs3.Fields("title").Value %> <%= rs3.Fields("duration").Value %> <%= rs3.Fields("date").Value %> <%= rs3.Fields("fees").Value %> <%= rs3.Fields("location").Value %> <%= rs3.Fields("instructor").Value %>
(4) Technical & Executive Management
Ref.
Course Title
Duration (Days)
Date
Fees per Participant (US$)
Location
Course
Instructor(s)
 <%= rs4.Fields("ref").Value %> <%= rs4.Fields("title").Value %> <%= rs4.Fields("duration").Value %> <%= rs4.Fields("date").Value %> <%= rs4.Fields("fees").Value %> <%= rs4.Fields("location").Value %> <%= rs4.Fields("instructor").Value %>
(5) Engineering General
Ref.
Course Title
Duration (Days)
Date
Fees per Participant (US$)
Location
Course
Instructor(s)
 <%= rs5.Fields("ref").Value %> <%= rs5.Fields("title").Value %> <%= rs5.Fields("duration").Value %> <%= rs5.Fields("date").Value %> <%= rs5.Fields("fees").Value %> <%= rs5.Fields("location").Value %> <%= rs5.Fields("instructor").Value %>


Property of Petrolab Engineering