<% Set myDB=Server.CreateObject("ADODB.Connection") myDB.open "Provider=MSDAORA.1;Password=lambrg;User ID=lambrg;Data Source=konfig;Persist Security Info=True" set UUI = CreateObject("ADODB.Recordset") mySQL = "SELECT MAX(UUI) FROM UUI_OBJ_MAP" UUI.open mySQL, myDB, adOpenStatic NewUUI = Cint(UUI(0)) DeviceUUI = NewUUI + 1 set ObjectClassName = CreateObject("ADODB.Recordset") mySQL = "SELECT DISTINCT(OBJECT_CLASS.NAME) FROM OBJECT_CLASS, OBJECT_CLASS_MAP, DEVICE_TYPE, OBJECT WHERE OBJECT_CLASS.NAME = OBJECT_CLASS_MAP.OBJECT_CLASS_NAME AND OBJECT_CLASS_MAP.OBJECT_ID = OBJECT.ID AND OBJECT.ID = DEVICE_TYPE.OBJECT_ID AND OBJECT_CLASS.OBJECT_CATEGORY_NAME='device'" ObjectClassName.open mySQL, myDB, adOpenStatic set ObjectClassType = CreateObject("ADODB.Recordset") mySQL = "SELECT OBJECT_CLASS.NAME, OBJECT.NAME, DEVICE_TYPE.DEVICE_TYPE, OBJECT.ID, DEVICE_TYPE.ID,OBJECT.ASSET_FLAG,OBJECT.LOCATION_FLAG FROM OBJECT_CLASS, OBJECT_CLASS_MAP, DEVICE_TYPE, OBJECT WHERE OBJECT_CLASS.NAME = OBJECT_CLASS_MAP.OBJECT_CLASS_NAME AND OBJECT_CLASS_MAP.OBJECT_ID = OBJECT.ID AND OBJECT.ID = DEVICE_TYPE.OBJECT_ID AND OBJECT_CLASS.OBJECT_CATEGORY_NAME='device'" ObjectClassType.open mySQL, myDB, adOpenStati set List = CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM LIST" List.open mySQL, myDB, adOpenStatic set Building = CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM BUILDING" Building.open mySQL, myDB, adOpenStatic set kSpace = CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM SPACES" kSpace.open mySQL, myDB, adOpenStatic set Networks = CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM NETWORKS" Networks.open mySQL, myDB, adOpenStatic set Device_Containment = CreateObject("ADODB.Recordset") mySQL = "SELECT DISTINCT(DEVICE.NAME),DEVICE.UUI,DEVICE.DEVICE_TYPE_ID,DEVICE_TYPE.DEV_CAPACITY,DEVICE_TYPE.DEV_ST_POSN,MEMBERSHIP.NET_UUI FROM DEVICE_TYPE,DEVICE,DEVICE_CONTAINMENT,MEMBERSHIP WHERE DEVICE.UUI = DEVICE_CONTAINMENT.DEV_CNTD_TOP_UUI AND MEMBERSHIP.MEMBER_UUI=DEVICE.UUI AND DEVICE_TYPE.ID=DEVICE.DEVICE_TYPE_ID" Device_Containment.open mySQL, myDB, adOpenStatic set Contained_Devices = CreateObject("ADODB.Recordset") mySQL = "SELECT DEVICE.NAME,DEVICE_CONTAINMENT.DEV_CNTD_TOP_UUI FROM DEVICE,DEVICE_CONTAINMENT WHERE DEVICE.UUI=DEVICE_CONTAINMENT.DEV_CNTD_TOP_UUI" Contained_Devices.open mySQL, myDB, adOpenStatic %>

Device - Insert
Identification
Ownership
Asset ID:
Organization
Serial NO:
Project:
Parent Asset ID:
Location
Workflow ID:
Building ID:
UUI:
Level:
Object Selection
Room:
Object Class:
Space:
Object Type:
  
Model:
Membership
Name:
Network:
     
Status
Parent Device
Overall:
Device Name:
Maintenance:
  
Ownership:
Notes:
Implementation:
  
Operational:
Install Date:
 
<% UUI.Close ObjectClassType.Close ObjectClassName.Close %>