<% Option Explicit %> MasonLift Directory
<% Session("Copyright") = "Copyright 2011 MasonLift Ltd." %> <% DIM CSource, CConnect, tblCompany, tblSettings, tblExecutive, SQLSource, tblOpsManagers, tblAccounting, tblCSS, tblEquip, tblParts, tblService, tblTraining, tblIsland, tblNorthern, tblInterior CConnect = "Provider=SQLOLEDB;Network Library=DBMSSOCN;Data Source=209.53.100.117;Uid=SoftbaseWebsite;Pwd=Wi2part59" Session("Connect") = CConnect SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Executive' order by title" Set tblExecutive = Server.CreateObject("ADODB.Recordset") tblExecutive.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Ops manager' and Location = 'Delta' order by name" Set tblOpsManagers = Server.CreateObject("ADODB.Recordset") tblOpsManagers.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Accounting' and Location = 'Delta' order by name" Set tblAccounting = Server.CreateObject("ADODB.Recordset") tblAccounting.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Parts and Service' and Location = 'Delta' order by name" Set tblCSS = Server.CreateObject("ADODB.Recordset") tblCSS.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Equip Sales' and Location = 'Delta' order by name" Set tblEquip = Server.CreateObject("ADODB.Recordset") tblEquip.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Parts' and Location = 'Delta' order by name" Set tblParts = Server.CreateObject("ADODB.Recordset") tblParts.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department = 'Service' and Location = 'Delta' order by name" Set tblService = Server.CreateObject("ADODB.Recordset") tblService.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Department like '%training%' order by name" Set tblTraining = Server.CreateObject("ADODB.Recordset") tblTraining.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Location = 'Nanaimo' or Location = 'Victoria' order by name" Set tblIsland = Server.CreateObject("ADODB.Recordset") tblIsland.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Location = 'Prince George' order by name" Set tblNorthern = Server.CreateObject("ADODB.Recordset") tblNorthern.Open SQLSource, CConnect, 1, 3 SQLSource = "SELECT * FROM webdata.dbo.EmployeeDirectory where Location = 'Kamloops' or Location = 'Kelowna' or Location = 'Vernon' or Location = 'Penticton' order by name" Set tblInterior = Server.CreateObject("ADODB.Recordset") tblInterior.Open SQLSource, CConnect, 1, 3 %> Contact us

Head Office - Delta

Executives

<% DO WHILE NOT tblExecutive.EOF %> <% tblExecutive.MoveNext Loop %> <% tblExecutive.close %>
Name Title Email Phone
<% Response.Write tblExecutive("Name") %> <% Response.Write tblExecutive("Title") %> <% Response.Write "" & tblExecutive("Email") & ""%> <% Response.Write tblExecutive("Phone") %>

Operations Managers

<% DO WHILE NOT tblOpsManagers.EOF %> <% tblOpsManagers.MoveNext Loop %> <% tblOpsManagers.close %>
Name Title Email Phone
<% Response.Write tblOpsManagers("Name") %> <% Response.Write tblOpsManagers("Title") %> <% Response.Write "" & tblOpsManagers("Email") & ""%> <% Response.Write tblOpsManagers("Phone") %>

Accounting

<% DO WHILE NOT tblAccounting.EOF %> <% tblAccounting.MoveNext Loop %> <% tblAccounting.close %>
Name Title Email Phone
<% Response.Write tblAccounting("Name") %> <% Response.Write tblAccounting("Title") %> <% Response.Write "" & tblAccounting("Email") & ""%> <% Response.Write tblAccounting("Phone") %>

Parts and Service Representatives

<% DO WHILE NOT tblCSS.EOF %> <% tblCSS.MoveNext Loop %> <% tblCSS.close %>
Name Title Email Phone
<% Response.Write tblCSS("Name") %> <% Response.Write tblCSS("Title") %> <% Response.Write "" & tblCSS("Email") & ""%> <% Response.Write tblCSS("Phone") %>

Parts

<% DO WHILE NOT tblParts.EOF %> <% tblParts.MoveNext Loop %> <% tblParts.close %>
Name Title Email Phone
<% Response.Write tblParts("Name") %> <% Response.Write tblParts("Title") %> <% Response.Write "" & tblParts("Email") & ""%> <% Response.Write tblParts("Phone") %>

Service

<% DO WHILE NOT tblService.EOF %> <% tblService.MoveNext Loop %> <% tblService.close %>
Name Title Email Phone
<% Response.Write tblService("Name") %> <% Response.Write tblService("Title") %> <% Response.Write "" & tblService("Email") & ""%> <% Response.Write tblService("Phone") %>

Training / Allied Products

<% DO WHILE NOT tblTraining.EOF %> <% tblTraining.MoveNext Loop %> <% tblTraining.close %>
Name Title Email Phone Location
<% Response.Write tblTraining("Name") %> <% Response.Write tblTraining("Title") %> <% Response.Write "" & tblTraining("Email") & ""%> <% Response.Write tblTraining("Phone") %> <% Response.Write tblTraining("Location") %>

Service Centre - Vancouver Island Region

<% DO WHILE NOT tblIsland.EOF %> <% tblIsland.MoveNext Loop %> <% tblIsland.close %>
Name Title Email Phone Location
<% Response.Write tblIsland("Name") %> <% Response.Write tblIsland("Title") %> <% Response.Write "" & tblIsland("Email") & ""%> <% Response.Write tblIsland("Phone") %> <% Response.Write tblIsland("Location") %>

Service Centre - Northern Region

<% DO WHILE NOT tblNorthern.EOF %> <% tblNorthern.MoveNext Loop %> <% tblNorthern.close %>
Name Title Email Phone Location
<% Response.Write tblNorthern("Name") %> <% Response.Write tblNorthern("Title") %> <% Response.Write "" & tblNorthern("Email") & ""%> <% Response.Write tblNorthern("Phone") %> <% Response.Write tblNorthern("Location") %>

Service Centre - Interior Region

<% DO WHILE NOT tblInterior.EOF %> <% tblInterior.MoveNext Loop %> <% tblInterior.close %>
Name Title Email Phone Location
<% Response.Write tblInterior("Name") %> <% Response.Write tblInterior("Title") %> <% Response.Write "" & tblInterior("Email") & ""%> <% Response.Write tblInterior("Phone") %> <% Response.Write tblInterior("Location") %>
<% DIM TimeNow, DateNow TimeNow = Time DateNow = Date %>
  <% =Session("Copyright")%> As Of <% =DateNow %> at <% =TimeNow %>