||| | |


At Light Options International, our business philosophy is clear; comprehensive customer support. We provide support throughout the process...support for your vision, your staff, architects, planners, and field personnel, and ... for your bottom line.

We bring design, technical support, project management and service together in one simple package.

Light Options, Inc.
1251 Metropolitan Avenue
West Deptford, NJ 08066
Phone: 800-444-9737
Fax: 856-853-9581


  <% Set rsCurrentAlerts = GetCurrentAlerts() while not rsCurrentAlerts.EOF Response.Write "" rsCurrentAlerts.MoveNext wend Set rsCurrentAlerts = Nothing %>
<% dim rsAlerts, rsCurrentAlerts Set rsAlerts = IsElekNetUp() If NOT rsAlerts.EOF then while not rsAlerts.EOF Response.Write "" rsAlerts.MoveNext wend Set rsAlerts = Nothing else %> <% end if %>
" Response.Write "
" & rsAlerts("Title") & "
" Response.Write "" & rsAlerts("Teaser") & "

" Response.Write "" & rsAlerts("Body") & "

" Response.Write "
Want to learn more?
Enroll now
Forget your password?
We can send you a reminder
.
" Response.Write "" & rsCurrentAlerts("Title") & "
" Response.Write "" & rsCurrentAlerts("Teaser") & "

" Response.Write "" & rsCurrentAlerts("Body") & "


" Response.Write "

<% '******************************************************************** ' Name: Header.asp ' ' Purpose: Header include file used to start all pages ' also includes global functions ' '******************************************************************** 'Option Explicit Response.Buffer = True Response.Expires = 0 function GetDataConnection() dim oConn, strConn Set oConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=SQLOLEDB; Data Source=qtw9.registeredsite.com; Initial Catalog=cooper-electriccom; " strConn = strConn & "User Id=sonepar_user; Password=12kappas24" oConn.Open strConn set GetDataConnection = oConn end function function IsEleknetUp() dim dbConn, cmd, rs, bIsElekNetUp, prm1, cmdQuery Set dbConn = GetDataConnection Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = dbConn cmd.CommandText = "[dbo].spIsElekNetUp" 'cmd.CommandType = adCmdStoredProc Set rsAlerts = cmd.Execute Set IsElekNetUp = rsAlerts 'if rsAlerts("Alert_Count") > 0 then ' IsElekNetUp = False 'end if 'Set rsAlerts = Nothing 'Set cmd = Nothing 'Set dbConn = Nothing end function function GetCurrentAlerts() dim dbConn, cmd, rs, bIsElekNetUp, prm1, cmdQuery Set dbConn = GetDataConnection Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = dbConn cmd.CommandText = "[dbo].spGetCurrentAlerts" 'cmd.CommandType = adCmdStoredProc Set rsAlerts = cmd.Execute Set GetCurrentAlerts = rsAlerts Set rsAlerts = Nothing Set cmd = Nothing Set dbConn = Nothing end function %>

 
 

 

Understanding Light



Light Options Mission Statement

Provide the best value to our customers by acting as their representative and establish an environment that offers a positive experience for customers, employees and suppliers.