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 ""
Response.Write "" & rsCurrentAlerts("Title") & "
"
Response.Write "" & rsCurrentAlerts("Teaser") & "
"
Response.Write "" & rsCurrentAlerts("Body") & "
"
Response.Write " | "
rsCurrentAlerts.MoveNext
wend
Set rsCurrentAlerts = Nothing %>
<%
'********************************************************************
' 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
%>
|
|
| |
|
|
|
|
| 
|
