Java script Error

Posted Date: 23 Nov 2009 Posted By:: Tirumala Member Level: Bronze Member Rank: 1374 Points: 1 Responses: 3

Hi Thanks in Advance..

Hi after changing the Javascript method also iam getting same error.
Iam sending my page below

<%@ Language=VBScript %>
<%Option Explicit%>







<%
Call GetdbConnPubs(dbConnPubs)
Call GetdbConnSubs(dbConnSubs)

Dim lobjRS, lobjField, lsSQL
Dim lsLookUp, lsHeader, lsMode, lasColumns
Dim lnRecordCounter, lnFieldCounter
Dim lnOuterCounter, lnInnerCounter, lnCounter
Dim lsColspan
Dim lnID
Dim lsNwTypeSQL, mysetNwType
Dim lsRegionSQL, mysetRegion
Dim lsNetworkSQL, mysetNetwork
Dim BldgaddressID,GreenZoneId,MgmtdisplayID
Dim sLBCode : sLBCode = ""
Dim sTmpLBRegion
Dim sTmpSelRegion
lsLookUp = UCase(Trim(Request("Lookup")))
lsMode = UCase(Trim(Request("Mode")))
lnID = UCase(Trim(Request("ID")))
BldgaddressID = Trim(Request("hAddressID"))
MgmtdisplayID=Trim(Request("SelMgmtDispID"))
GreenZoneId=request.Form("SelGreenZoneID")

If BldgaddressID = "" Then
BldgaddressID = -1
End IF

If lnID = "" Then
lnID = 0
End If
Set lobjRS = Server.CreateObject("ADODB.RecordSet")
lobjRS.CursorLocation = 3
lobjRS.CursorType = 0
Dim sSqlDependent

Select Case lsLookUp
Case "DEVMONITORING" '' Monitored By
lsSQL = "Select ID, MonitoredBy, GroupManagerName, GroupManagerBusTel, " &_
" GroupManagerHomeTel, GroupManagerPager, GroupManagerEmail, GroupDeputyName, " &_
" GroupDeputyBusTel, GroupDeputyHomeTel, GroupDeputyPager, GroupDeputyEmail, " &_
" GroupEmail, GroupPhone, GroupPager, GroupLocation, Visible" &_
" From DevMonitoring WHERE ID = " & lnID
If lnID = 0 Then
lsHeader = "New Device Monitoring"
Else
lsHeader = "Edit Device Monitoring"
End If
Redim lasColumns(16)
lasColumns(0) = "ID"
lasColumns(1) = "Monitored By"
lasColumns(2) = "Group Manager Name"
lasColumns(3) = "Group Manager Business Telephone"
lasColumns(4) = "Group Manager Home Telephone"
lasColumns(5) = "Group Manager Pager"
lasColumns(6) = "Group Manager Email"
lasColumns(7) = "Group Deputy Name"
lasColumns(8) = "Group Deputy Business Telephone"
lasColumns(9) = "Group Deputy Home Telephone"
lasColumns(10) = "Group Deputy Pager"
lasColumns(11) = "Group Deputy Email"
lasColumns(12) = "Group Email"
lasColumns(13) = "Group Phone"
lasColumns(14) = "Group Pager"
lasColumns(15) = "Group Location"
lasColumns(16) = "Visible"
lsColspan = 2

'Dependecny Query
sSqlDependent= "Select Count(ID) from devbasedata where DevBaseData.statusid<>2 and MonitoredByID=" & lnID

Case "DEVTYPE" '' Device Type
lsSQL = "Select ID, Type, TypeGroup, Visible, GNASTCode, DevNetTypeID,GnccManageable " &_
" From DevType WHERE ID = " & lnID
If lnID = 0 Then
lsHeader = "New Device Type"
Else
lsHeader = "Edit Device Type"
End If
Redim lasColumns(6)
lasColumns(0) = "ID"
lasColumns(1) = "Device Type"
lasColumns(2) = "TypeGroup"
lasColumns(3) = "Visible"
lasColumns(4) = "GNAST Code"
lasColumns(5) = "DevNet TypeID"
lasColumns(6) = "GNCC Manageable"
lsColspan = 2

sSqlDependent= " Select Count(DevBaseData.ID) " & _
" From DevBaseData " & _
" Inner Join BldgAddress on BldgAddress.ID = DevBaseData.BldgAddressID " & _
" Left Join BldgCountry on BldgAddress.CountryID = BldgCountry.ID " & _
" Left Join DevInfo on DevBaseData.DeviceInfoID = DevInfo.ID " & _
" Left Join DevType on DevInfo.TypeID = DevType.ID " & _
" Where DevBaseData.statusid<>2 and DevType.id=" & lnID

Case "DEVVENDOR" '' Device Vendor
lsSQL = "Select ID, Vendor, Visible " &_
" From DevVendor WHERE ID = " & lnID
If lnID = 0 Then
lsHeader = "New Device Vendor"
Else
lsHeader = "Edit Device Vendor"
End If
Redim lasColumns(2)
lasColumns(0) = "ID"
lasColumns(1) = "Device Vendor"
lasColumns(2) = "Visible"
lsColspan = 2

sSqlDependent= " Select Count(DevBaseData.ID) " & _
" From DevBaseData " & _
" Inner Join BldgAddress on BldgAddress.ID = DevBaseData.BldgAddressID " & _
" Left Join BldgCountry on BldgAddress.CountryID = BldgCountry.ID " & _
" Left Join DevInfo on DevBaseData.DeviceInfoID = DevInfo.ID " & _
" Left Join DevVendor on DevInfo.VendorID = DevVendor.ID" & _
" Where DevBaseData.statusid<>2 and DevVendor.id=" & lnID

Case "DEVMODEL" '' Device Model
lsSQL = "Select ID, Model, AppendToHN, TrueModelName, Visible " &_
" From DevModel WHERE ID = " & lnID
If lnID = 0 Then
lsHeader = "New Device Model"
Else
lsHeader = "Edit Device Model"
End If
Redim lasColumns(4)
lasColumns(0) = "ID"
lasColumns(1) = "Device Model"
lasColumns(2) = "Append To HN"
lasColumns(3) = "True Model Name"
lasColumns(4) = "Visible"
lsColspan = 2
sSqlDependent= " Select Count(DevBaseData.ID) " & _
" From DevBaseData " & _
" Inner Join BldgAddress on BldgAddress.ID = DevBaseData.BldgAddressID " & _
" Left Join BldgCountry on BldgAddress.CountryID = BldgCountry.ID " & _
" Left Join DevInfo on DevBaseData.DeviceInfoID = DevInfo.ID " & _
" Left Join DevModel on DevInfo.ModelID = DevModel.ID " & _
" Where DevBaseData.statusid<>2 and DevModel.id=" & lnID

Case "DEVCOMPONENTARCH" '' Device COMPONENTARCH
lsSQL = "Select ID, Architecture, Visible " &_
" From DevComponentArch WHERE ID = " & lnID
If lnID = 0 Then
lsHeader = "New Device Component Architecture"
Else
lsHeader = "Edit Device Component Architecture"
End If
Redim lasColumns(2)
lasColumns(0) = "ID"
lasColumns(1) = "Component Architecture"
lasColumns(2) = "Visible"
lsColspan = 2

sSqlDependent= "Select Count(ID) from devbasedata where DevBaseData.statusid<>2 and ComponentArchid=" & lnID

Case "DEVNETWORKTIER" '' DEVNETWORKTIER
lsSQL = "Select ID, Tier, [Description]" &_
" From DEVNETWORKTIER WHERE ID = " & lnID
If lnID = 0 Then
lsHeader = "New Device Network Tier"
Else
lsHeader = "Edit Device Network Tier"
End If
Redim lasColumns(2)
'''Redim lasColumns(3) ''visible removed
lasColumns(0) = "ID"
lasColumns(1) = "Tier"
lasColumns(2) = "Description"
lsColspan = 2

'lasColumns(3) = "Visible" ''visible removed
'lsColspan = 3 ''visible removed

sSqlDependent= "Select Count(ID) from devbasedata where DevBaseData.statusid<>2 and NetworktierId=" & lnID

''------------------------------------------------------------------------------------------------------------------

Case "DEVNETWORK" '' GNO Primary/Seconday Business (Network)
lsSQL = "Select ID, Network, Legacy, TypeId AS DEVNETWORKTYPE from DevNetwork WHERE ID = " & lnID

'lsSQL = "Select DEVNETWORK.Id, Network, Legacy, DEVNETWORKTYPE from DEVNETWORK join DevNetworkType on DevNetworkType.Id = TypeId Order by Network"
If lnID = 0 Then
lsHeader = "New GNO Business (Network)"
Else
lsHeader = "Edit GNO Business (Network)"
End If

Redim lasColumns(3)
lasColumns(0) = "ID"
lasColumns(1) = "Network"
lasColumns(2) = "Legacy"
lasColumns(3) = "Type"
lsColspan = 5

sSqlDependent= "Select Count(Id) from devbasedata where DevBaseData.statusid<>2 and IsNull(networkID,-1) = " & lnID

'' DEVNETWORKTYPE
''------------------------------------------------------------------------------------------------------------------

Case "DEVBUSINESSNWREGIONMAPPING" '' GNO Primary/Seconday Business (Network) and Region Mapping

lsSQL = "select Id, DevRegion, DevBusinessNwID from DevBusinessNwRegionMapping where Id = " & lnID

'' Join DevNetwork on DevBusinessNwRegionMapping.DevBusinessNwID = DevNetwork.ID order BY DevRegion, Network "
If lnID = 0 Then
lsHeader = "New GNO Business (Network) Region Mapping "
Else
lsHeader = "Edit GNO Business (Network) Region Mapping "
End If

Redim lasColumns(2)
lasColumns(0) = "ID"
lasColumns(1) = "Region"
lasColumns(2) = "Business Network"
lsColspan = 5

''------------------------------------------------------------------------------------------------------------------

Case "DEVMGMTAUTOLOOKUP"

Dim sRegionSm
Dim sSelMgmtDispID

lsSQL = "select ID, ManagementDispID, Region, CountryID, ComponentArchID, NetworkID, Network2ID, ModelID, BLDGAddressID from DevMgmtAutoLookup where Id = " & lnID

If lnID = 0 Then
lsHeader = "New Device Management Display Lookup "
sRegionSm=request("SelRegion")
sSelMgmtDispID=request("SelMgmtDispID")

if cstr(BLDGAddressID) <> "-1" then
sTmpLBRegion =GetRegionName(BLDGAddressID)
END if

Else
lsHeader = "Edit Device Management Display Lookup "
End If

Redim lasColumns(8)
lasColumns(0) = "ID"
lasColumns(1) = "Management Display"
lasColumns(2) = "Region"
lasColumns(3) = "Country"
lasColumns(4) = "Component Architecture"
lasColumns(5) = "GNO Primary Business"
lasColumns(6) = "GNO Secondary Business"
lasColumns(7) = "Device Model"
lasColumns(8) = "LB Code"
lsColspan = 10

''------------------------------------------------------------------------------------------------------------------

Case "CKTVRF" '' MPLS VRF Maintainance
lsSQL = "Select Id, VendorID as CktVendorID, VRFName, VRFContactName, VRFContactNumber, PaetecReference, Region from CKTVRF WHERE ID = " & lnID

If lnID = 0 Then
lsHeader = "New MPLS VRF Maintainance"
Else
lsHeader = "Edit MPLS VRF Maintainance"
End If

Redim lasColumns(6)
lasColumns(0) = "ID"
lasColumns(1) = "Vendor"
lasColumns(2) = "VRF Name"
lasColumns(3) = "VRF Contact Name"
lasColumns(4) = "VRF Contact Number"
lasColumns(5) = "Paetec Reference"
lasColumns(6) = "Region"
lsColspan = 8

sSqlDependent= "Select Count(CktHalf.Id) from CktHalf Inner Join CKtadmin On CktHalf.CktHalfID = CKtadmin.CktHalfID Where CktAdmin.statusid <> 2 and IsNull(MPLSVRFID,-1) = " & lnID

''------------------------------------------------------------------------------------------------------------------
Case "DEVINFO" '' DevInfo Maintenance
lsSQL = " select ID, TypeID As DevTypeID, VendorID As DevVendorID, ModelID, DevRepID, ISNull(AdminVisible,0) AdminVisible, ISNULL(DevMgmtProtocol,0) As DevMgmtProtocolID, IsVSS, IsVstack, IsNexusStack From Devinfo WHERE ID = " & lnID

If lnID = 0 Then
lsHeader = "New DevInfo Maintainance"
Else
lsHeader = "Edit Devinfo Maintainance"
End If

Redim lasColumns(9)
lasColumns(0) = "ID"
lasColumns(1) = "Type"
lasColumns(2) = "Vendor"
lasColumns(3) = "Model Name"
lasColumns(4) = "Device Category"
lasColumns(5) = "Admin Visible"
lasColumns(6) = "Management Protocol"
lasColumns(7) = "VSS Stackable"
lasColumns(8) = "Virtual Stackable"
lasColumns(9) = "Nexus Stackable"

lsColspan = 11

'' Reason for not using Device Status is It may create issues with the Device Recommission activity.
sSqlDependent= " Select Count(ID) from DevBaseData Where DeviceInfoID = " & lnID

''------------------------------------------------------------------------------------------------------------------
Case "DEVGZZONEAUTOLOOKUP"
Dim sSelGreenZoneID
lsSQL = "select ID, GZZoneID, Region, CountryID, ComponentArchID, NetworkID, Network2ID, ModelID, BLDGAddressID from DevGZZoneAutoLookup where Id = " & lnID

If lnID = 0 Then
lsHeader = "New GreenZone AutoLookup "
sRegionSm=request("SelRegion")
sSelGreenZoneID=request("SelGreenZoneID")

if cstr(BLDGAddressID) <> "-1" then
sTmpLBRegion =GetRegionName(BLDGAddressID)
END if

Else
lsHeader = "Edit GreenZone AutoLookup "
End If

Redim lasColumns(8)
lasColumns(0) = "ID"
lasColumns(1) = "GreenZone"
lasColumns(2) = "Region"
lasColumns(3) = "Country"
lasColumns(4) = "Component Architecture"
lasColumns(5) = "GNO Primary Business"
lasColumns(6) = "GNO Secondary Business"
lasColumns(7) = "Device Model"
lasColumns(8) = "LB Code"
lsColspan = 10

''------------------------------------------------------------------------------------------------------------------

Case Else
Call ShowMessage("WAR", "Invalid Lookup, Can not Continue...", "OK", "../SelectOption.asp", Err, "", "", False)
Response.End
End Select
lobjRS.Open lsSQL, dbConnPubs

'' Response.Write "
" & lsSQL

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK href="../includes/NetInfoMain.css" type="text/css" rel="stylesheet">
<Title>Edit LookUp Table</Title>
<STYLE>
A {text-decoration: none;};
COLOR: black;
</STYLE>
<Script language=javascript>
//-------------------------------------------------------------------------------------------------------

function checkStacSelIsVSS()
{
// alert( 'A-> ' + document.frmEditNewLookUpLong.SelIsNexusStack.selectedIndex + ' \nB -> ' + document.frmEditNewLookUpLong.SelIsVstack.selectedIndex + ' \nC -> ' + document.frmEditNewLookUpLong.SelIsVSS.selectedIndex)
if(document.frmEditNewLookUpLong.SelIsVSS.selectedIndex==1)
{
document.frmEditNewLookUpLong.SelIsVstack.selectedIndex=0;
document.frmEditNewLookUpLong.SelIsNexusStack.selectedIndex=0;
}
}

function checkStacSelIsVstack()
{
if(document.frmEditNewLookUpLong.SelIsVstack.selectedIndex==1)
{
document.frmEditNewLookUpLong.SelIsVSS.selectedIndex=0;
document.frmEditNewLookUpLong.SelIsNexusStack.selectedIndex=0;
}

}

function checkStacSelIsNexusStack()
{
if (document.frmEditNewLookUpLong.SelIsNexusStack.selectedIndex==1)
{
document.frmEditNewLookUpLong.SelIsVSS.selectedIndex=0;
document.frmEditNewLookUpLong.SelIsVstack.selectedIndex=0;
}

}
/////////////////////DevInfo

function alertme()
{
alert("Unable to change the value as device association were found.\nClick the dependencies link to view details.")
}
function mfuncSubmit(sMode) {

<% If lsLookUp = "DEVMONITORING" Then %>
var varColMonitoredBy
varColMonitoredBy = alltrim(document.frmEditNewLookUpLong.ColMonitoredBy.value);
if (varColMonitoredBy == "")
{
alert("Please enter Monitored By");
document.frmEditNewLookUpLong.ColMonitoredBy.value = "";
document.frmEditNewLookUpLong.ColMonitoredBy.focus();
return false;
}

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}

if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
}

<% End If %>

<% If lsLookUp = "DEVTYPE" Then %>
var varColType
varColType = alltrim(document.frmEditNewLookUpLong.ColType.value);
if (varColType == "")
{
alert("Please enter Device Type");
document.frmEditNewLookUpLong.ColType.value = "";
document.frmEditNewLookUpLong.ColType.focus();
return false;
}

///Umar 5201
//alert(document.frmEditNewLookUpLong.chkGnccManageable.value == "1")
if (document.frmEditNewLookUpLong.chkGnccManageable.checked)
{
document.frmEditNewLookUpLong.ColGnccManageable.value = "1";
}
else
{
document.frmEditNewLookUpLong.ColGnccManageable.value = "0";
}

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}
if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}

}

<% End If %>

<% If lsLookUp = "DEVVENDOR" Then %>
var varColVendor
varColVendor = alltrim(document.frmEditNewLookUpLong.ColVendor.value);
if (varColVendor == "")
{
alert("Please enter Device Vendor");
document.frmEditNewLookUpLong.ColVendor.value = "";
document.frmEditNewLookUpLong.ColVendor.focus();
return false;
}

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}
if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}

}

<% End If %>

<% If lsLookUp = "DEVCOMPONENTARCH" Then %>
var varColArchitecture
varColVendor = alltrim(document.frmEditNewLookUpLong.ColArchitecture.value);
if (varColVendor == "")
{
alert("Please enter Device Vendor");
document.frmEditNewLookUpLong.ColArchitecture.value = "";
document.frmEditNewLookUpLong.ColArchitecture.focus();
return false;
}

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}
if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
}

<% End If %>

<% If lsLookUp = "DEVNETWORKTIER" Then %>
var varColTier
var varColDescription

varColTier = alltrim(document.frmEditNewLookUpLong.ColTier.value);
varColDescription = alltrim(document.frmEditNewLookUpLong.ColDescription.value);

if (varColTier == "")
{
alert("Please enter Tier information");
document.frmEditNewLookUpLong.ColTier.value = "";
document.frmEditNewLookUpLong.ColTier.focus();
return false;
}

if (varColDescription == "")
{
alert("Please enter Description");
document.frmEditNewLookUpLong.ColDescription.value = "";
document.frmEditNewLookUpLong.ColDescription.focus();
return false;
}

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}
if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
}

<% End If %>

<% If lsLookUp = "DEVMODEL" Then %>
var varColModel, varColTrueModelName
varColModel = alltrim(document.frmEditNewLookUpLong.ColModel.value);
if (varColModel == "")
{
alert("Please enter Device Model");
document.frmEditNewLookUpLong.ColModel.value = "";
document.frmEditNewLookUpLong.ColModel.focus();
return false;
}

varColTrueModelName = alltrim(document.frmEditNewLookUpLong.ColTrueModelName.value);
if (varColTrueModelName == "")
{
alert("Please enter Device True Model Name");
document.frmEditNewLookUpLong.ColTrueModelName.value = "";
document.frmEditNewLookUpLong.ColTrueModelName.focus();
return false;
}

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}
if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
}

<% End If %>

<% If lsLookUp = "DEVNETWORK" Then %>
var varColNetwork, varColLegacy, varColType
varColNetwork = alltrim(document.frmEditNewLookUpLong.ColNetwork.value);
if (varColNetwork == "")
{
alert("Please enter Network Model");
document.frmEditNewLookUpLong.ColNetwork.value = "";
document.frmEditNewLookUpLong.ColNetwork.focus();
return false;
}

varColLegacy = alltrim(document.frmEditNewLookUpLong.ColLegacy.value);
if (varColLegacy == "")
{
alert("Please enter Legacy");
document.frmEditNewLookUpLong.ColLegacy.value = "";
document.frmEditNewLookUpLong.ColLegacy.focus();
return false;
}
// alert (document.frmEditNewLookUpLong.SelNetworkType.selectedIndex);
varColType = alltrim(document.frmEditNewLookUpLong.SelNetworkType.selectedIndex);
if (varColType == "0")
{
alert("Please Select Network Type");
document.frmEditNewLookUpLong.SelNetworkType.focus();
return false;
}
<% End If %>

<% If lsLookUp = "DEVBUSINESSNWREGIONMAPPING" Then %>
var varColNetwork, varColLegacy, varColType

varColType = alltrim(document.frmEditNewLookUpLong.SelDevRegion.selectedIndex);
if (varColType == "0")
{
alert("Please Select Region");
document.frmEditNewLookUpLong.SelDevRegion.focus();
return false;
}

varColType = alltrim(document.frmEditNewLookUpLong.SelBusinessNw.selectedIndex);
if (varColType == "0")
{
alert("Please Select GNO Business (Network) ");
document.frmEditNewLookUpLong.SelBusinessNw.focus();
return false;
}

<% End If %>

<% If lsLookUp = "DEVMGMTAUTOLOOKUP" Then %>

var varSelMgmtDisplayID, varSelRegion, varSelCountry, VarSelComponentArch
var varSelBusinessNw1, varSelBusinessNw2, varSelModel, vartxtLBCode

varSelMgmtDisplayID = document.frmEditNewLookUpLong.SelMgmtDispID.selectedIndex ;
varSelRegion = document.frmEditNewLookUpLong.SelRegion.selectedIndex ;
varSelCountry = document.frmEditNewLookUpLong.SelCountry.selectedIndex ;
VarSelComponentArch = document.frmEditNewLookUpLong.SelComponentArch.selectedIndex ;
varSelBusinessNw1 = document.frmEditNewLookUpLong.SelBusinessNw1.selectedIndex ;
varSelBusinessNw2 = document.frmEditNewLookUpLong.SelBusinessNw2.selectedIndex ;
varSelModel = document.frmEditNewLookUpLong.SelModelID.selectedIndex ;
vartxtLBCode = document.frmEditNewLookUpLong.txtBldgAddressID.value ;

if (varSelMgmtDisplayID == "0")
{
alert("Please Select management Display");
document.frmEditNewLookUpLong.SelMgmtDispID.focus();
return false;
}

if ((varSelRegion == "0")&&( vartxtLBCode == ""))
{
alert("Please Select Region");
document.frmEditNewLookUpLong.SelRegion.focus();
return false;
}

var valLBRegion="<%=sTmpLBRegion%>";
var valRegion=document.frmEditNewLookUpLong.SelRegion[document.frmEditNewLookUpLong.SelRegion.selectedIndex].value
var checkLBSelRegion=true;

if (((document.frmEditNewLookUpLong.SelRegion.selectedIndex)== -1)||(valLBRegion=="")||(valRegion="-1"))
{
checkLBSelRegion=false
}

if (checkLBSelRegion==true)
{
if (valRegion!=valLBRegion)
{
alert("Selected region [" + valRegion + "] and selected LB code region ["+ valLBRegion +"] do not match.!\n\t\t\t cannot proceed.")
return false;
}
}

if ( ( varSelCountry == "0") && ( VarSelComponentArch == "0") && (varSelBusinessNw1 == "0") && ( varSelBusinessNw2 == "0") && ( varSelModel == "0") && ( vartxtLBCode == "") )
{
alert("At least one other condition in addition or region is mandatory");
document.frmEditNewLookUpLong.SelCountry.focus();
return false;
}

<% End If %>

<% If lsLookUp = "CKTVRF" Then %>
var varSelCktVendorID, varSelRegion, varVRFName, varVRFContactName, varVRFContactNumber
var varPaetecReference

varSelCktVendorID = document.frmEditNewLookUpLong.SelCktVendorID.selectedIndex ;
varSelRegion = document.frmEditNewLookUpLong.SelRegion.selectedIndex ;
varVRFName = document.frmEditNewLookUpLong.ColVRFName.value ;
varVRFContactName = document.frmEditNewLookUpLong.ColVRFContactName.value ;
varVRFContactNumber = document.frmEditNewLookUpLong.ColVRFContactNumber.value ;
varPaetecReference = document.frmEditNewLookUpLong.ColPaetecReference.value ;

if (varSelCktVendorID == "0")
{
alert("Please Select Circuit Vendor");
document.frmEditNewLookUpLong.SelMgmtDispID.focus();
return false;
}

if (varVRFName == "")
{
alert ("Please Enter VRF Name");
document.frmEditNewLookUpLong.ColVRFName.focus();
return false;
}

if (varVRFContactName == "")
{
alert ("Please Enter VRF Contact Name");
document.frmEditNewLookUpLong.ColVRFContactName.focus();
return false;
}

if (varVRFContactNumber == "")
{
alert ("Please Enter VRF Contact Number");
document.frmEditNewLookUpLong.ColVRFContactNumber.focus();
return false;
}

if (varSelRegion == "0")
{
alert("Please Select Region");
document.frmEditNewLookUpLong.SelCktVendorID.focus();
return false;
}

<% End If %>

<% If lsLookUp = "DEVINFO" Then %>
var varSelDevType, varSelDevVendor, varSelDevModelName, varSelDevCategory, varSelDevAdminVisible, varSelDevManagementProtocol, varDeviceRepID

varSelDevType = document.frmEditNewLookUpLong.SelDevTypeID.selectedIndex ;
varVendorID = document.frmEditNewLookUpLong.SelDevVendorID.selectedIndex ;
varModelID = document.frmEditNewLookUpLong.SelModelID.selectedIndex ;
varDeviceRepID = document.frmEditNewLookUpLong.SelDevRepID.selectedIndex ;
varAdminvisible = document.frmEditNewLookUpLong.SelAdminVisible.selectedIndex ;
varMgmtProtocol = document.frmEditNewLookUpLong.SelDevMgmtProtocolID.selectedIndex ;

if (varSelDevType == "0")
{
alert("Please Select TypeID ");
document.frmEditNewLookUpLong.SelDevTypeID.focus();
return false;
}
if (varVendorID == "0")
{
alert("Please Select VendorID ");
document.frmEditNewLookUpLong.SelDevVendorID.focus();
return false;
}
if (varModelID == "0")
{
alert("Please Select Model Name ");
document.frmEditNewLookUpLong.SelModelID.focus();
return false;
}
if (varDeviceRepID == "0")
{
alert("Please Select Category ");
document.frmEditNewLookUpLong.SelDevRepID.focus();
return false;
}

if (varAdminvisible == "0")
{
alert("Please Select Admin Visible ");
document.frmEditNewLookUpLong.SelAdminVisible.focus();
return false;
}

if (varMgmtProtocol == "0")
{
alert("Please Select Management Protocol ");
document.frmEditNewLookUpLong.SelDevMgmtProtocolID.focus();
return false;
}

<% End If %>

<% If lsLookUp = "DEVGZZONEAUTOLOOKUP" Then %>

var varSelGreenZoneID, varSelRegion, varSelCountry, VarSelComponentArch
var varSelBusinessNw1, varSelBusinessNw2, varSelModel, vartxtLBCode

varSelGreenZoneID = document.frmEditNewLookUpLong.SelGreenZoneID.selectedIndex ;
varSelRegion = document.frmEditNewLookUpLong.SelRegion.selectedIndex ;
varSelCountry = document.frmEditNewLookUpLong.SelCountry.selectedIndex ;
VarSelComponentArch = document.frmEditNewLookUpLong.SelComponentArch.selectedIndex ;
varSelBusinessNw1 = document.frmEditNewLookUpLong.SelBusinessNw1.selectedIndex ;
varSelBusinessNw2 = document.frmEditNewLookUpLong.SelBusinessNw2.selectedIndex ;
varSelModel = document.frmEditNewLookUpLong.SelModelID.selectedIndex ;
vartxtLBCode = document.frmEditNewLookUpLong.txtBldgAddressID.value ;

if (varSelGreenZoneID == "0")
{
alert("Please Select GreenZone ");
document.frmEditNewLookUpLong.SelGreenZoneID.focus();
return false;
}

if ((varSelRegion == "0")&&( vartxtLBCode == ""))
{
alert("Please Select Region");
document.frmEditNewLookUpLong.SelRegion.focus();
return false;
}

var valLBRegion="<%=sTmpLBRegion%>";
var valRegion=document.frmEditNewLookUpLong.SelRegion[document.frmEditNewLookUpLong.SelRegion.selectedIndex].value
var checkLBSelRegion=true;

if (((document.frmEditNewLookUpLong.SelRegion.selectedIndex)== -1)||(valLBRegion=="")||(valRegion="-1"))
{
checkLBSelRegion=false
}

if (checkLBSelRegion==true)
{
if (valRegion!=valLBRegion)
{
alert("Selected region [" + valRegion + "] and selected LB code region ["+ valLBRegion +"] do not match.!\n\t\t\t cannot proceed.")
return false;
}
}

if ( ( varSelCountry == "0") && ( VarSelComponentArch == "0") && (varSelBusinessNw1 == "0") && ( varSelBusinessNw2 == "0") && ( varSelModel == "0") && ( vartxtLBCode == "") )
{
alert("At least one other condition in addition or region is mandatory");
document.frmEditNewLookUpLong.SelCountry.focus();
return false;
}

<% End If %>

if(sMode == "S")
{
// validations
document.frmEditNewLookUpLong.action = "./AdminLookupLongSave.asp";
document.frmEditNewLookUpLong.submit();
}

}

function refreshforcountry()
{

<% If lsLookUp = "DEVMGMTAUTOLOOKUP" Then %>
var valsMode = "<%=lsMode%>"
document.frmEditNewLookUpLong.Mode.value = valsMode
document.frmEditNewLookUpLong.action = "./AdminLookupLongNewEdit.asp?QChanged=T";
document.frmEditNewLookUpLong.method = "Post";
document.frmEditNewLookUpLong.submit();
<% End If %>
<% If lsLookUp = "DEVGZZONEAUTOLOOKUP" Then %>
var valsMode = "<%=lsMode%>"
document.frmEditNewLookUpLong.Mode.value = valsMode
document.frmEditNewLookUpLong.action = "./AdminLookupLongNewEdit.asp?QChanged=T";
document.frmEditNewLookUpLong.method = "Post";
//document.frmEditNewLookUpLong.SelGreenZoneID.value=greenZone
document.frmEditNewLookUpLong.submit();

<% End If %>
}

//-------------------------------------------------------------------------------------------------------
function OpenNewWindow(sName, sUrl,sWidth,sHeight,sLeft,sTop, bresize) {
var objWind;

if (bresize) {
objWind = window.open(sUrl,sName,'width='+ sWidth + ',height='+ sHeight + ',left=' + sLeft + ',top=' + sTop + ',resizable=yes,scrollbars=yes');
}
else {
objWind = window.open(sUrl,sName,'width='+ sWidth + ',height='+ sHeight + ',left=' + sLeft + ',top=' + sTop + ',resizable=no');
}
if(objWind.opener == null) {
objWind.opener = window
}
else {
objWind.focus();
}
onerror = null;
return objWind;
}
//-------------------------------------------------------------------------------------------------------
function alltrim(obj) {
var myStr = new String(obj);

var trimmedstring="";
startpos=0;
endpos=myStr.length - 1;
// find start position of string
while (startpos<=myStr.length && myStr.substring(startpos, startpos+1)==" ") {
startpos++
}
// null string
if (endpos == -1) {
endpos=0;
}
// find end position of string
while (endpos >= 0 && myStr.substring(endpos,endpos+1)==" ") {
endpos--;
}
// replace value with trimmed string
if (startpos == myStr.length) {
myStr = "";
}
else{
myStr = myStr.substring(startpos,endpos+1);
}
return myStr;
}

//-------------------------------------------------------------------------------------------------------

function ShowDependencies(valLookup,valID)
{
objWind = OpenNewWindow("ShowDependencies","./AdminLookupLongNewEditReference.asp?Mode=R&Lookup=" + valLookup + "&ID=" + valID + "&PopUpWindow=1&OriginScreen=AdminLookupEdit",400,400,50,50,"yes");
}
//-------------------------------------------------------------------------------------------------------
function SelectLocation()
{
objWind = OpenNewWindow("SelectLocation","../AddressLookUp.asp?PopUpWindow=1&OriginScreen=AdminLookupEdit",850,550,50,50,"yes");
}
//-------------------------------------------------------------------------------------------------------

function AddLocationFromPopup(nBuildingId) {

<% If lsLookUp = "DEVMONITORING" Then %>
document.frmEditNewLookUpLong.ColGroupLocation.value = nBuildingId;

if (document.frmEditNewLookUpLong.HidnVisibleOK.value == "1")
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
else
{
if (document.frmEditNewLookUpLong.chkVisible.checked == false)
{
document.frmEditNewLookUpLong.ColVisible.value = 0;
}
if (document.frmEditNewLookUpLong.chkVisible.checked == true)
{
document.frmEditNewLookUpLong.ColVisible.value = 1;
}
}

document.frmEditNewLookUpLong.action = "./AdminLookupLongNewEdit.asp?Mode=R";

<% End If %>

<% If lsLookUp = "DEVMGMTAUTOLOOKUP" Then %>
document.frmEditNewLookUpLong.hAddressID.value = nBuildingId ;
document.frmEditNewLookUpLong.action = "./AdminLookupLongNewEdit.asp";

<% End If %>

<% If lsLookUp = "DEVGZZONEAUTOLOOKUP" Then %>
document.frmEditNewLookUpLong.hAddressID.value = nBuildingId ;
document.frmEditNewLookUpLong.action = "./AdminLookupLongNewEdit.asp";

<% End If %>

document.frmEditNewLookUpLong.method = "Post";
document.frmEditNewLookUpLong.submit();

}

//-------------------------------------------------------------------------------------------------------

</Script>
</HEAD>
<% call MenuDisplay(1000) %>
<BODY>

<Form Name=frmEditNewLookUpLong Action="./AdminLookupLongEdit.asp" Method=Post>
<Center>
<Br>
<Table Width=80% cellpadding=1 cellspacing=1 border=0 Align=center>
<Tr>
<Td align=center Colspan="<%=lsColspan%>">
<%call ProcHeader(lsHeader)%>
</Td>
</Tr>
<Tr class="TableNormalRow">
<Td Colspan="<%=lsColspan%>">

</Td>
</Tr>
<%
'' -------------------------------------- New Record/Row Mode --------------------------------------
If lsMode = "N" Then
If IsArray(lasColumns) Then
For lnCounter = 0 To UBound(lasColumns)
If Ucase(Trim(lasColumns(lnCounter))) <> "ID" Then
Response.Write(VbCrLf & "<Tr class=""TableNormalRow"">")
Response.Write(VbCrLf & "<Td Align=Right><Font face=verdana size=2><B>" & Trim(lasColumns(lnCounter)) & " : </B></Font></Td>")
lnRecordCounter = lnRecordCounter + 1
lnFieldCounter = lnCounter
lnFieldCounter = lnFieldCounter + 1
Response.Write(VbCrLf & "<Td Align=Left Width=""50%""> ")

Select Case lobjRS(lnCounter).Name

Case "Visible"
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"" checked>")
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""1"">")

''Umar 5201
Case "GnccManageable"
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"" checked>")
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""1"">")

Case "GroupLocation"
Response.Write(VbCrLf & "<Input Type=Button Name=Button" & lobjRS(lnCounter).Name & " Value=""Get Address "" OnClick=""javascript:SelectLocation();"">")
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value="""">")

''------------------------------------------------------------------------------------------------------------------
Case "DEVNETWORKTYPE" '' GNO Primary/Seconday Business (Network)
''Response.Write(VbCrLf & "<select NAME=""SelNetworkType" & lobjRS(lnCounter).Name & """ style=""WIDTH: 200px"" >")
''<select NAME="SelNetworkType" WIDTH="223" style="WIDTH: 200px" ID="Select2">
%>
<select NAME="SelNetworkType" WIDTH="223" style="WIDTH: 200px">
<OPTION VALUE="">Network Type</option>
<%
lsNwTypeSQL = "select DevNetworkType.ID, DevNetworkType.Type from DevNetworkType order by Type"
set mysetNwType = dbConnSubs.Execute (lsNwTypeSQL)
While Not mysetNwType.Eof %>
<OPTION VALUE="<%=mysetNwType("ID")%>"><%=mysetNwType("Type")%></option>
<%
mysetNwType.movenext
Wend
mysetNwType.close()
set mysetNwType= Nothing
%>
</select>

<%
''------------------------------------------------------------------------------------------------------------------

Case "DevRegion" '' Device Region Column
%>
<select NAME="SelDevRegion" WIDTH="223" style="WIDTH: 200px" >
<OPTION VALUE="">Region</option>
<%
lsRegionSQL = "Select Distinct Region from BldgCountry Order by Region"
set mysetRegion = dbConnSubs.Execute (lsRegionSQL)
While Not mysetRegion.Eof %>
<OPTION VALUE="<%=mysetRegion("Region")%>"><%=mysetRegion("Region")%></option>
<%
mysetRegion.movenext
Wend
mysetRegion.close()
set mysetRegion= Nothing
%>
</select>

<%
''------------------------------------------------------------------------------------------------------------------

Case "DevBusinessNwID" '' Device Region Column
%>
<select NAME="SelBusinessNw" WIDTH="223" style="WIDTH: 200px">
<OPTION VALUE="">GNO Business (Network)</option>
<%
lsNetworkSQL = "Select Id, Network from DevNetwork Order by Network Asc"
set mysetNetwork = dbConnSubs.Execute (lsNetworkSQL)
While Not mysetNetwork.Eof %>
<OPTION VALUE="<%=mysetNetwork("Id")%>"><%=mysetNetwork("Network")%></option>
<%
mysetNetwork.movenext
Wend
mysetNetwork.close()
set mysetNetwork = Nothing
%>
</select>
<%
''------------------------------------------------------------------------------------------------------------------

Case "ManagementDispID" '' WORKING %>
<select NAME="SelMgmtDispID" WIDTH="223" style="WIDTH: 300px" ID="SelMgmtDispID">
<% Response.Write (PopulateComboForNewOld ("MANAGEMENTDISPLAY", MgmtdisplayID)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "GZZoneID" '' WORKING %>
<select NAME="SelGreenZoneID" WIDTH="223" style="WIDTH: 300px" ID="Select1" >
<% Response.Write (PopulateComboForNewOld ("GREENZONE", GreenZoneId)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------

Case "Region" ''Region

%>
<select NAME="SelRegion" WIDTH="223" style="WIDTH: 300px" ID="SelRegion" onchange=refreshforcountry()>
<%Response.Write (PopulateComboForNewOld ("REGION", sRegionSm ))%>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "CountryID" '' %>
<select NAME="SelCountry" WIDTH="223" style="WIDTH: 300px" ID="SelCountry">
<% Response.Write (PopulateComboForNewOld ("BLDGCOUNTRY", sRegionSm)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "ComponentArchID" '' %>
<select NAME="SelComponentArch" WIDTH="223" style="WIDTH: 300px" ID="SelComponentArch">
<% Response.Write (PopulateComboForNewOld ("COMPONENTARCH", 0)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "NetworkID" ''
%>
<select NAME="SelBusinessNw1" WIDTH="223" style="WIDTH: 300px" ID="SelBusinessNw1">
<% Response.Write (PopulateComboForNewOld ("DEVNETWORK", 0)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "Network2ID" ''
%>
<select NAME="SelBusinessNw2" WIDTH="223" style="WIDTH: 300px" ID="SelBusinessNw2">
<% Response.Write (PopulateComboForNewOld ("DEVNETWORK", 0)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "ModelID" ''
%>
<select NAME="SelModelID" WIDTH="223" style="WIDTH: 300px" ID="SelModelID">
<% Response.Write (PopulateComboForNewOld ("DEVMODEL", 0)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "BLDGAddressID" ''
%>
<%
If BLDGAddressID <> -1 Then
sLBCode=GetLbCode(BLDGAddressID)
End If
Response.Write(VbCrLf & "<Input Type=Text disabled=true Size=30 MaxLength=50 Name=txtBldgAddressID Id=txtBldgAddressID Value=""" & sLBCode & """>")
%>
<A href="#" onclick = "SelectLocation(); return false;" >
<IMG src=../Images/Lens.gif border=0 alt="LB Code lookup">
</A>
<A href="#" onclick = "document.frmEditNewLookUpLong.txtBldgAddressID.value=''; document.frmEditNewLookUpLong.hAddressID.value=''; return false;" >
<IMG src=../Images/delete_sm.gif border=0 alt="Clear LB Code ">
</A>

<%
''------------------------------------------------------------------------------------------------------------------
Case "CktVendorID" ''
%>
<select NAME="SelCktVendorID" WIDTH="223" style="WIDTH: 300px" ID="SelCktVendorID">
<% Response.Write (PopulateComboForNewOld ("CKTVENDOR", 0)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevVendorID" ''
%>
<select NAME="SelDevVendorID" WIDTH="223" style="WIDTH: 300px" ID="SelDevVendorID">
<% Response.Write (PopulateComboForNewOld ("DEVVENDOR", 0)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevTypeID" ''
%>
<select NAME="SelDevTypeID" WIDTH="223" style="WIDTH: 300px" ID="SelDevTypeID">
<% Response.Write (PopulateComboForNewOld ("DEVTYPE", 0)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevMgmtProtocolID" ''
%>
<select NAME="SelDevMgmtProtocolID" WIDTH="223" style="WIDTH: 300px" ID="SelDevMgmtProtocolID">
<% Response.Write (PopulateComboForNewOld ("DEVMANAGEMENTPROTOCOL", 0)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevRepID" '' Device Category
%>
<select NAME="SelDevRepID" WIDTH="223" style="WIDTH: 300px" ID="SelDevRepID">
<% Response.Write (PopulateComboForNewOld ("DEVINFOREPCATEGORY", 0)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "AdminVisible" '' DevInfo
%>
<select NAME="SelAdminVisible" WIDTH="223" style="WIDTH: 300px" ID="SelAdminVisible">
<option value = "" >-Select One-</option>
<option value = 0 >No</option>
<option value = 1 >Yes</option>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "IsVSS" '' DevInfo
%>
<select NAME="SelIsVSS" WIDTH="223" style="WIDTH: 300px" ID="SelIsVSS" onchange = checkStacSelIsVSS()>
<option value = 0 >No</option>
<option value = 1 >Yes</option>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "IsVstack" '' DevInfo
%>
<select NAME="SelIsVstack" WIDTH="223" style="WIDTH: 300px" ID="SelIsVstack" onchange= checkStacSelIsVstack()>
<option value = 0 >No</option>
<option value = 1 >Yes</option>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "IsNexusStack" '' DevInfo
%>
<select NAME="SelIsNexusStack" WIDTH="223" style="WIDTH: 300px" ID="SelIsNexusStack" onchange= checkStacSelIsNexusStack()>
<option value = 0 >No</option>
<option value = 1 >Yes</option>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case Else
Response.Write(VbCrLf & "<Input Type=Text Size=30 MaxLength=50 Name=Col" & lobjRS(lnCounter).Name & " Value="""">")
End Select
Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnVisibleOK Value=""0"">")
Response.Write(VbCrLf & "</Td>")
Response.Write(VbCrLf & "</Tr>")
Else
Response.Write(VbCrLf & "<Input Type=Hidden Name=""ID"" Value="""">")
End If
Next
End If
'' -------------------------------------- Existing Records/Rows --------------------------------------
ElseIf lsMode = "E" Then
If Not lobjRS.EOF Then
If IsArray(lasColumns) Then
For lnCounter = 0 To UBound(lasColumns)
If Ucase(Trim(lasColumns(lnCounter))) <> "ID" Then
Response.Write(VbCrLf & "<Tr class=""TableNormalRow"">")
Response.Write(VbCrLf & "<Td Align=Right><Font face=verdana size=2><B>" & Trim(lasColumns(lnCounter)) & " : </B></Font></Td>")
lnRecordCounter = lnRecordCounter + 1
lnFieldCounter = lnCounter
lnFieldCounter = lnFieldCounter + 1
Response.Write(VbCrLf & "<Td Align=Left Width=""50%""> ")
Select Case lobjRS(lnCounter).Name

Case "Visible"
Dim nVisible
Dim nDependent
nDependent=0
If lobjRS(lnCounter).Value = True OR lobjRS(lnCounter).Value = "1" then '' TO HANDLE vISIBLE FIELDS WITH BIT AND INTEGR TYPE..
nVisible = "1"
Else
nVisible = "0"
End If
nDependent=DependecnyCheck()
''checkedbox.gif
''delete99Dim.gif
''chek.gif
''''Logic: if dependecies found and the box is checked do not allow the uncheck the box.
'''' to achieve this show the checked box image instead.
'Response.Write(VbCrLf & lsLookUp & "Dependencies check............ dependent devices" & nDependent )

If nVisible = "1" Then

If nDependent>0 then
Response.Write(VbCrLf & "<IMG src=../Images/checkedbox.gif border=0 alt='Unable to check. Device association found!' OnClick='javascript: alertme()'>")
Response.Write(VbCrLf & "<a href='javascript: ShowDependencies("""& lsLookUp & """," & lnID & " )' title='" & nDependent & " Device(s) association found. Click here for more details'><U><font size=1 color=brown>Dependencies<IMG src=../Images/chek3.gif border=0></font></U></a>")
''''
Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnVisibleOK Value=""1"">")

else
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"" checked>")
Response.Write(VbCrLf & "<font size=1 color=brown>Dependencies<IMG src=../Images/delete99Dim.gif border=0 alt='No dependencies found.'></font>")

Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnVisibleOK Value=""0"">")
End if

Else
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"">")

Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnVisibleOK Value=""0"">")
End If

'' Hidden variable
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""1"">")

''''Umar 5201
Case "GnccManageable"
Dim nGnccManageable

If lobjRS(lnCounter).Value = True OR lobjRS(lnCounter).Value = "1" then '' TO HANDLE GNCCmanageable FIELDS WITH BIT AND INTEGR TYPE..
nGnccManageable = "1"
Else
nGnccManageable= "0"
End If

If nGnccManageable = "1" Then
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"" checked>")
Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnGnccManageableOK Value=""1"">")
Else
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"">")
Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnGnccManageableOK Value=""0"">")
End if
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""1"">")

Case "GroupLocation"
If Trim(lobjRS(lnCounter).Value) <> "" Then
Response.Write(VbCrLf & "<Input Type=Button Name=Button" & lobjRS(lnCounter).Name & " Value=""Change Address "" OnClick=""javascript:SelectLocation();"">")
Call DisplayAddress(Trim(lobjRS(lnCounter).Value))
Else
Response.Write(VbCrLf & "<Input Type=Button Name=Button" & lobjRS(lnCounter).Name & " Value=""Get Address "" OnClick=""javascript:SelectLocation();"">")
End If
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""" & lobjRS(lnCounter).Value & """>")

''------------------------------------------------------------------------------------------------------------------

Case "DEVNETWORKTYPE" '' GNO Primary/Seconday Business (Network)

''Response.Write(VbCrLf & "<select NAME=""SelNetworkType" & lobjRS(lnCounter).Name & """ WIDTH=""223"" style=""WIDTH: 200px"">")
%>
<select NAME="SelNetworkType" WIDTH="223" style="WIDTH: 200px">
<OPTION VALUE="">Network Type</option>
<%
lsNwTypeSQL = "select DevNetworkType.ID, DevNetworkType.Type from DevNetworkType order by Type"
set mysetNwType = dbConnSubs.Execute (lsNwTypeSQL)
While Not mysetNwType.Eof %>
<OPTION VALUE="<%=mysetNwType("ID")%>" <%if mysetNwType("ID") = lobjRS(lnCounter) then%>Selected<%End if%>><%=mysetNwType("Type")%></option>
<%
mysetNwType.movenext
Wend
mysetNwType.close()
set mysetNwType= Nothing
%>
</select>

<%
''------------------------------------------------------------------------------------------------------------------

Case "DevRegion" '' Device Region Column
%>
<select NAME="SelDevRegion" WIDTH="223" style="WIDTH: 200px">
<OPTION VALUE="">Region</option>
<%
lsRegionSQL = "Select Distinct Region from BldgCountry Order by Region"
set mysetRegion = dbConnSubs.Execute (lsRegionSQL)
While Not mysetRegion.Eof %>
<OPTION VALUE="<%=mysetRegion("Region")%>" <%if mysetRegion("Region") = lobjRS(lnCounter) then%>Selected<%End if%>><%=mysetRegion("Region")%></option>
<%
mysetRegion.movenext
Wend
mysetRegion.close()
set mysetRegion= Nothing
%>
</select>

<%
''------------------------------------------------------------------------------------------------------------------

Case "DevBusinessNwID" '' Device Region Column
%>
<select NAME="SelBusinessNw" WIDTH="223" style="WIDTH: 200px">
<OPTION VALUE="">GNO Business (Network)</option>
<%
lsNetworkSQL = "Select Id, Network from DevNetwork Order by Network Asc"
set mysetNetwork = dbConnSubs.Execute (lsNetworkSQL)
While Not mysetNetwork.Eof %>
<OPTION VALUE="<%=mysetNetwork("Id")%>" <%if mysetNetwork("ID") = lobjRS(lnCounter) then%>Selected<%End if%> ><%=mysetNetwork("Network")%></option>
<%
mysetNetwork.movenext
Wend
mysetNetwork.close()
set mysetNetwork = Nothing
%>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
'''VISHAL WORKING.....
Case "ManagementDispID" '' WORKING

If request("QChanged")="T" then
sSelMgmtDispID=request("SelMgmtDispID")
Else
sSelMgmtDispID=lobjRS(lnCounter)
End if
%>
<select NAME="SelMgmtDispID" WIDTH="223" style="WIDTH: 300px" >
<% Response.Write (PopulateComboForNewOld ("MANAGEMENTDISPLAY",sSelMgmtDispID)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------

Case "GZZoneID"
If request("QChanged")="T" then
sSelGreenZoneID=request("SelGreenZoneID")
Else
sSelGreenZoneID=lobjRS(lnCounter)
End if
%>
<select NAME="SelGreenZoneID" WIDTH="223" style="WIDTH: 300px" ID="Select2">
<% Response.Write (PopulateComboForNewOld ("GREENZONE", sSelGreenZoneID)) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------

Case "Region" ''Region %>
<%

If request("QChanged")="T" then
sRegionSm=request("SelRegion")

Else
sRegionSm=lobjRS(lnCounter)
End if

if cstr(BLDGAddressID) <> "-1" then
sRegionSm=GetRegionName(BLDGAddressID)
END if

%>
<select NAME="SelRegion" WIDTH="223" style="WIDTH: 300px" onchange=refreshforcountry()>
<% Response.Write (PopulateComboForNewOld ("REGION", sRegionSm)) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "CountryID" '' %>
<select NAME="SelCountry" WIDTH="223" style="WIDTH: 300px" >
<%Response.Write (PopulateComboForNewOldforEdit ("BLDGCOUNTRY", sRegionSm,lobjRS(lnCounter))) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "ComponentArchID" '' %>
<select NAME="SelComponentArch" WIDTH="223" style="WIDTH: 300px" >
<% Response.Write (PopulateComboForNewOld ("COMPONENTARCH", lobjRS(lnCounter))) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "NetworkID" ''
%>
<select NAME="SelBusinessNw1" WIDTH="223" style="WIDTH: 300px" >
<% Response.Write (PopulateComboForNewOld ("DEVNETWORK", lobjRS(lnCounter))) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "Network2ID" ''
%>
<select NAME="SelBusinessNw2" WIDTH="223" style="WIDTH: 300px" >
<% Response.Write (PopulateComboForNewOld ("DEVNETWORK", lobjRS(lnCounter))) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "ModelID" ''
%>

<select NAME="SelModelID" <% If lsLookUp = "DEVINFO" Then Response.Write ("disabled") End IF %> WIDTH="223" style="WIDTH: 300px" >
<% Response.Write (PopulateComboForNewOld ("DEVMODEL", lobjRS(lnCounter))) %>
</select>
<%
''------------------------------------------------------------------------------------------------------------------
Case "BLDGAddressID" ''
%>
<%

If BLDGAddressID = -1 Then
BLDGAddressID=lobjRS(lnCounter)
End if
'If BLDGAddressID <> -1 Then
' lsNetworkSQL = " Select LBCode from Bldgaddress (NOLOCK) where ID = " & BLDGAddressID
'else
' lsNetworkSQL = " Select LBCode from Bldgaddress (NOLOCK) where ID = " & lobjRS(lnCounter)
'End If

lsNetworkSQL = " Select LBCode from Bldgaddress (NOLOCK) where ID = " & BLDGAddressID

set mysetNetwork = dbConnSubs.Execute (lsNetworkSQL)
While Not mysetNetwork.Eof
sLBCode = mysetNetwork("LBCode")
mysetNetwork.movenext
Wend
mysetNetwork.close()
set mysetNetwork = Nothing

Response.Write(VbCrLf & "<Input Type=Text disabled=true Size=30 MaxLength=50 Name=txtBldgAddressID Id=txtBldgAddressID Value=""" & sLBCode & """>")
%>
<A href="#" onclick = "SelectLocation(); return false;" >
<IMG src=../Images/Lens.gif border=0 alt="LB Code lookup">
</A>
<A href="#" onclick = "document.frmEditNewLookUpLong.txtBldgAddressID.value=''; document.frmEditNewLookUpLong.hAddressID.value=-1; return false;" >
<IMG src=../Images/delete_sm.gif border=0 alt="Clear LB Code ">
</A>

<%

%>

<%
''------------------------------------------------------------------------------------------------------------------
Case "CktVendorID" ''
%>
<select NAME="SelCktVendorID" WIDTH="223" style="WIDTH: 300px" ID="SelCktVendorID">
<% Response.Write (PopulateComboForNewOld ("CKTVENDOR", lobjRS(lnCounter))) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevVendorID" ''
%>
<select NAME="SelDevVendorID" <% If lsLookUp = "DEVINFO" Then Response.Write ("disabled") End IF %> WIDTH="223" style="WIDTH: 300px" ID="SelDevVendorID">
<% Response.Write (PopulateComboForNewOld ("DEVVENDOR", lobjRS(lnCounter))) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevTypeID" ''
%>
<select NAME="SelDevTypeID" <% If lsLookUp = "DEVINFO" Then Response.Write ("disabled") End IF %> WIDTH="223" style="WIDTH: 300px" ID="SelDevTypeID">
<% Response.Write (PopulateComboForNewOld ("DEVTYPE", lobjRS(lnCounter))) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevMgmtProtocolID" ''
%>
<select NAME="SelDevMgmtProtocolID" WIDTH="223" style="WIDTH: 300px" ID="SelDevMgmtProtocolID">
<% Response.Write (PopulateComboForNewOld ("DEVMANAGEMENTPROTOCOL", lobjRS(lnCounter))) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "DevRepID" '' Device Category
%>
<select NAME="SelDevRepID" <% If lsLookUp = "DEVINFO" Then Response.Write ("disabled") End IF %> WIDTH="223" style="WIDTH: 300px" ID="SelDevRepID">
<% Response.Write (PopulateComboForNewOld ("DEVINFOREPCATEGORY", lobjRS(lnCounter))) %>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "AdminVisible" ''
%>
<select NAME="SelAdminVisible" WIDTH="223" style="WIDTH: 300px" ID="SelAdminVisible">
<option value = "" >-Select One-</option>
<option value = 0 <% If lobjRS(lnCounter)="0" Then Response.Write ("Selected") End IF %> >No</option>
<option value = 1 <% If lobjRS(lnCounter)="1" Then Response.Write ("Selected") End IF %> >Yes</option>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "IsVSS" '' DevInfo
%>
<select NAME="SelIsVSS" WIDTH="223" style="WIDTH: 300px" ID="SelIsVSS" onchange= checkStacSelIsVSS()>
<option value = 0 <% If lobjRS(lnCounter)= false Then Response.Write ("Selected") End IF %> >No</option>
<option value = 1 <% If lobjRS(lnCounter)= true Then Response.Write ("Selected") End IF %> >Yes</option>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "IsVstack" '' DevInfo
%>
<select NAME="SelIsVstack" WIDTH="223" style="WIDTH: 300px" ID="SelIsVstack" onchange= checkStacSelIsVstack()>
<option value = 0 <% If lobjRS(lnCounter)= false Then Response.Write ("Selected") End IF %> >No</option>
<option value = 1 <% If lobjRS(lnCounter)= true Then Response.Write ("Selected") End IF %> >Yes</option>
</select>
<%

''------------------------------------------------------------------------------------------------------------------
Case "IsNexusStack" '' DevInfo
%>
<select NAME="SelIsNexusStack" WIDTH="223" style="WIDTH: 300px" ID="SelIsNexusStack" onchange= checkStacSelIsNexusStack()>
<option value = 0 <% If lobjRS(lnCounter)= false Then Response.Write ("Selected") End IF %> >No</option>
<option value = 1 <% If lobjRS(lnCounter)= true Then Response.Write ("Selected") End IF %> >Yes</option>
</select>
<%

'''VISHAL WORKING END...........

Case Else
Response.Write(VbCrLf & "<Input Type=Text Size=30 MaxLength=50 Name=Col" & lobjRS(lnCounter).Name & " Value=""" & lobjRS(lnCounter).Value & """>")
End Select

Response.Write(VbCrLf & "</Td>")
Response.Write(VbCrLf & "</Tr>")
Else
Response.Write(VbCrLf & "<Input Type=Hidden Name=""ID"" Value=""" & lobjRS(lnCounter).Value & """>")
End If
Next
End If
'' -------------------------------------- No Records Found in System -----------------------------------
Else
lsColspan=6
Response.Write(VbCrLf & "<Tr class=""TableNormalRow""><Td Colspan=""" & lsColspan & """> </Td></Tr><Tr class=""TableNormalRow""><Td Colspan=""2"" Align=Center><Font face=verdana size=2>No Records Found.</Font></Td></Tr>")
End If
Else
If IsArray(lasColumns) Then
For lnCounter = 0 To UBound(lasColumns)
If Ucase(Trim(lasColumns(lnCounter))) <> "ID" Then
Response.Write(VbCrLf & "<Tr class=""TableNormalRow"">")
Response.Write(VbCrLf & "<Td Align=Right><Font face=verdana size=2><B>" & Trim(lasColumns(lnCounter)) & " : </B></Font></Td>")
lnRecordCounter = lnRecordCounter + 1
lnFieldCounter = lnCounter
lnFieldCounter = lnFieldCounter + 1
Response.Write(VbCrLf & "<Td Align=Left Width=""50%""> ")

Select Case lobjRS(lnCounter).Name

Case "Visible"
If Request("Col" & lobjRS(lnCounter).Name) = "1" Then
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"" checked>")
Else
Response.Write(VbCrLf & "<Input Type=CheckBox class=""NoBorder"" Name=chk" & lobjRS(lnCounter).Name & " Value=""1"">")
End If
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""1"">")

Case "GroupLocation"
Response.Write(VbCrLf & "<Input Type=Hidden class=""NoBorder"" Name=Col" & lobjRS(lnCounter).Name & " Value=""" & Request("Col" & lobjRS(lnCounter).Name) & """>")
If Trim(Request("Col" & lobjRS(lnCounter).Name)) <> "" Then
Response.Write(VbCrLf & "<Input Type=Button Name=Button" & lobjRS(lnCounter).Name & " Value=""Change Address "" OnClick=""javascript:SelectLocation();"">")
Call DisplayAddress(Request("Col" & lobjRS(lnCounter).Name))
Else
Response.Write(VbCrLf & "<Input Type=Button Name=Button" & lobjRS(lnCounter).Name & " Value=""Get Address "" OnClick=""javascript:SelectLocation();"">")
End If

Case Else
Response.Write(VbCrLf & "<Input Type=Text Size=30 MaxLength=50 Name=Col" & lobjRS(lnCounter).Name & " Value=""" & Request("Col" & lobjRS(lnCounter).Name) & """>")
End Select
Response.Write(VbCrLf & "<Input Type=Hidden Name=HidnVisibleOK Value=""0"">")
Response.Write(VbCrLf & "</Td>")
Response.Write(VbCrLf & "</Tr>")
Else
Response.Write(VbCrLf & "<Input Type=Hidden Name=""ID"" Value=""" & Request("ID") & """>")
End If
Next
End If
End If
%>
<Tr class="TableNormalRow">
<Td Colspan="<%=lsColspan%>">

</Td>
</Tr>
<Tr>
<Td valign=top Colspan="<%=lsColspan%>">
<%call ProcFooter()%>
</Td>
</Tr>
</Table>

<Br>
<Table Width=70% Align=Center border=0>
<Tr>
<Td Align=Left Width=50%>
<Input Type=button Name=CmdSave Value=" Save " OnClick='javascript:mfuncSubmit("S");'>
</Td>
<Td Align=Right>
<Input Type=Button Name=CmdCancel Value="Cancel" OnClick="window.location.href='./AdminLookupLongEdit.asp?LookUp=<%=lsLookUp%>';">
</Td>
</Tr>
</Table>
<Br>
</Center>

<Input Type=Hidden Name=LookUp Value="<%=lsLookUp%>">
<Input Type=Hidden Name=Mode Value="<%=lsMode%>">
<Input Type=Hidden Name=RecordCount Value="<%=lnRecordCounter%>">
<Input Type=Hidden Name=FieldCount Value="<%=lnFieldCounter%>">
<Input Type=Hidden Name=hAddressID Value="<%=BldgaddressID%>" ID="hAddressID">
<Input Type=Hidden Name=GreenZoneID Value="<%=GreenZoneId%>" >

<Input Type=Hidden Name=MgmtDispID Value="<%=MgmtdisplayID%>" >
</Form>

</BODY>
</HTML>
<%
Set lobjRS = Nothing
Set dbConnPubs = Nothing
Set dbConnSubs = Nothing

Sub DisplayAddress(nBuildingId)
''Response.Write nBuildingId
''Response.End

Dim lbAddressPresent
Dim lsAddressSQL, rsAddress
Dim lsRegion, lsCountry, lsCountryName, lsCounty, lsCity, lsLBCode, lsAddress, lsBuilding

lbAddressPresent = False

If Not nBuildingId = "" then

lsAddressSQL = "Select BldgAddress.ID BldgAddressID , LoisBuildingCode , BuildingName , Address1 , City , CountryID , Country , County, Region, LBCode " &_
"From BldgAddress Inner Join BldgCountry on BldgCountry.ID = CountryID And BldgAddress.ID=" & nBuildingId

set rsAddress = dbConnSubs.Execute(lsAddressSQL)

lsRegion = Trim(rsAddress("Region"))
lsCountry = Trim(rsAddress("CountryID"))
lsCountryName = Trim(rsAddress("Country"))
lsCounty = Trim(rsAddress("County"))
lsCity = Trim(rsAddress("City"))
lsLBCode = Trim(rsAddress("LBCode"))
lsAddress = Trim(rsAddress("Address1"))
lsBuilding = Trim(rsAddress("BuildingName"))

rsAddress.Close
Set rsAddress = Nothing

lbAddressPresent = True
End if

if lbAddressPresent then %>
<TABlE border=0 cellspacing=1 cellpadding=1 width=100% class="TableNormalRow">
<% If lsRegion <> "" AND Not IsNull(lsRegion) Then %>
<TR>
<TD class=fntlabels valign=Top height=25 align=Right nowrap><b>Region: </TD>
<TD class=fntlabels valign=Top height=25 wrap><%=lsRegion%> </TD>
</TR>
<% End If %>
<% If lsCountry <> "" AND Not IsNull(lsCountry) Then %>
<TR>
<TD class=fntlabels valign=Top align=Right height=25><b>Country: </TD>
<TD class=fntlabels valign=Top height=25><%=lsCountryName%> </TD>
</TR>
<% End If %>
<% If lsCounty <> "" AND Not IsNull(lsCounty) Then %>
<TR>
<TD class=fntlabels valign=Top height=25 align=Right><b>County: </TD>
<TD class=fntlabels valign=Top height=25><%=lsCounty%> </TD>
</TR>
<% End If %>
<% If lsCity <> "" AND Not IsNull(lsCity) Then %>
<TR>
<TD class=fntlabels valign=Top align=Right height=25><b>City: </TD>
<TD class=fntlabels valign=Top height=25><%=lsCity%> </TD>
</TR>
<% End If %>
<% If lsLBCode <> "" AND Not IsNull(lsLBCode) Then %>
<TR>
<TD class=fntlabels valign=Top align=Right height=25><b>LB Code: </TD>
<TD class=fntlabels valign=Top height=25><%=lsLBCode%> </TD>
</TR>
<% End If %>
<% If lsAddress <> "" AND Not IsNull(lsAddress) Then %>
<TR>
<TD class=fntlabels valign=Top height=25 align=Right><b>Address: </TD>
<TD class=fntlabels valign=Top height=25><%=lsAddress%> </TD>
</TR>
<% End If %>
<% If lsBuilding <> "" AND Not IsNull(lsBuilding) Then %>
<TR>
<TD class=fntlabels valign=Top height=25 align=Right Nowrap><b>Building Name: </TD>
<TD class=fntlabels valign=Top height=25><%=lsBuilding%> </TD>
</TR>
<% End If %>
</TABLE>
<%End If

End Sub
Function DependecnyCheck()
Dim lrsRecset01
Dim lnrecordCount
lnrecordCount=0
Set lrsRecset01= Server.CreateObject("ADODB.RecordSet")
lrsRecset01.CursorLocation = 3
lrsRecset01.CursorType = 0
lrsRecset01.Open sSqlDependent, dbConnPubs

If not lrsRecset01.EOF then
lnrecordCount=lrsRecset01(0)
End if
lrsRecset01.Close
Set lrsRecset01=nothing
DependecnyCheck=lnrecordCount
End Function

Function GetLbCode(strBLDGAddressID)
dim lsLBCode, mysetNetwork, lsNetworkSQL
lsNetworkSQL = " Select LBCode from Bldgaddress (NOLOCK) where ID = " & strBLDGAddressID
set mysetNetwork = dbConnSubs.Execute (lsNetworkSQL)
While Not mysetNetwork.Eof
lsLBCode = mysetNetwork("LBCode")
mysetNetwork.movenext
Wend
mysetNetwork.close()
set mysetNetwork = Nothing

GetLbCode=lsLBCode
End Function

Function GetRegionName(strBLDGAddressID)
dim ls_Region, mysetNetwork, lsNetworkSQL
lsNetworkSQL = " Select C.Region from Bldgaddress B (NOLOCK) Inner join BldgCountry C on B.CountryID=c.ID where B.ID = " & strBLDGAddressID
set mysetNetwork = dbConnSubs.Execute (lsNetworkSQL)
While Not mysetNetwork.Eof
ls_Region = mysetNetwork("REGION")
mysetNetwork.movenext
Wend
mysetNetwork.close()
set mysetNetwork = Nothing
GetRegionName=ls_Region
End Function

%>

Attachments

Responses

#446036 Author: Nathan Member Level: Gold Member Rank: 54 Date: 23/Nov/2009 Rating: Points: 2
You call this script at the end of the page... means... After creating the control... By Nathan Direction is important than speed For your reference

#446039 Author: soniumesh Member Level: Gold Member Rank: 109 Date: 23/Nov/2009 Rating: Points: 2
HI, You define JavaScript first and define variable after that so js not able to get a control value. Regard, umesh Ahmedabad

#446182 Author: Manindra Kumar Upadhyay Member Level: Gold Member Rank: 185 Date: 23/Nov/2009 Rating: Points: 2
Define JavaScript first and then define controls.

Post Reply

This thread is locked for new responses. Please post your comments and questions as a separate thread.
If required, refer to the URL of this page in your new post.

	Next : Insert datetime from textbox to sql table fields
	Previous : Please answer to my questions
	Return to Discussion Forum
	Post New Message
	Category:

Related Messages