Forums
This topic is locked
Help With Dependent Listboxes..
Posted 07 Jan 2003 12:51:15
1
has voted
07 Jan 2003 12:51:15 Forrest Gray posted:
Im using a Dependent list box setup from Macromedia.. It was working till now I have a problem.. My second list box will not work and the error Im recieving is arrDL2 is Undefined but it is as far as I can see.. Code below..Code
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/connCRNSQL.asp" -->
<%
set rsOriginatorOrg = Server.CreateObject("ADODB.Recordset"
rsOriginatorOrg.ActiveConnection = MM_connCRNSQL_STRING
rsOriginatorOrg.Source = "SELECT * FROM dbo.Org WHERE Valid = '1' ORDER BY OrgCode ASC"
rsOriginatorOrg.CursorType = 0
rsOriginatorOrg.CursorLocation = 2
rsOriginatorOrg.LockType = 3
rsOriginatorOrg.Open()
rsOriginatorOrg_numRows = 0
%>
<%
set rsOrigninatorName = Server.CreateObject("ADODB.Recordset"
rsOrigninatorName.ActiveConnection = MM_connCRNSQL_STRING
rsOrigninatorName.Source = "SELECT * FROM dbo.Person WHERE valid = '1' ORDER BY LastFirst ASC"
rsOrigninatorName.CursorType = 0
rsOrigninatorName.CursorLocation = 2
rsOrigninatorName.LockType = 3
rsOrigninatorName.Open()
rsOrigninatorName_numRows = 0
%>
<%
set rsSatellites = Server.CreateObject("ADODB.Recordset"
rsSatellites.ActiveConnection = MM_connCRNSQL_STRING
rsSatellites.Source = "SELECT * FROM dbo.SatLists"
rsSatellites.CursorType = 0
rsSatellites.CursorLocation = 2
rsSatellites.LockType = 3
rsSatellites.Open()
rsSatellites_numRows = 0
%>
<%
Dim rsSystemID
Dim rsSystemID_numRows
Set rsSystemID = Server.CreateObject("ADODB.Recordset"
rsSystemID.ActiveConnection = MM_connCRNSQL_STRING
rsSystemID.Source = "SELECT * FROM dbo.System"
rsSystemID.CursorType = 0
rsSystemID.CursorLocation = 2
rsSystemID.LockType = 1
rsSystemID.Open()
rsSystemID_numRows = 0
%>
<%
Dim rsSubsystemID
Dim rsSubsystemID_numRows
Set rsSubsystemID = Server.CreateObject("ADODB.Recordset"
rsSubsystemID.ActiveConnection = MM_connCRNSQL_STRING
rsSubsystemID.Source = "SELECT * FROM dbo.SubSystem"
rsSubsystemID.CursorType = 0
rsSubsystemID.CursorLocation = 2
rsSubsystemID.LockType = 1
rsSubsystemID.Open()
rsSubsystemID_numRows = 0
%>
<%
Dim rsSubsystem2ID
Dim rsSubsystem2ID_numRows
Set rsSubsystem2ID = Server.CreateObject("ADODB.Recordset"
rsSubsystem2ID.ActiveConnection = MM_connCRNSQL_STRING
rsSubsystem2ID.Source = "SELECT * FROM dbo.Subsystem2"
rsSubsystem2ID.CursorType = 0
rsSubsystem2ID.CursorLocation = 2
rsSubsystem2ID.LockType = 1
rsSubsystem2ID.Open()
rsSubsystem2ID_numRows = 0
%>
<html>
<head>
<title>CRN NEW CIR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"
)>0&&parent.frames.length) {d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function YY_checkform() { //v4.07
//copyright (c)1998,2001 Yaromat.com
var args = YY_checkform.arguments,myDot=true,myV='',myErr='',addErr=false,myReq,rx,myObj1,myMa,myAt;
for (var i=1; i<args.length;i=i+4){
if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""
);myV=myObj.value;if (myObj.type=='text'||myObj.type=='password'){
if (myReq&&myObj.value.length==0)addErr=true;
if ((myV.length>0)&&(args[i+2]==1)){ //fromto
if (!(myV/1)||myV<args[i+1].split('_')[0]/1||myV > args[i+1].split('_')[1]/1){addErr=true}
}
if ((myV.length>0)&&(args[i+2]==2)){ // email
rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$"
;if(!rx.test(myV))addErr=true;}
if ((myV.length>0)&&(args[i+2]==3)){ // date
myMa=args[i+1].split("#"
;myAt=myV.match(myMa[0]);if(myAt){
var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
var myDate=new Date(myY,myM,myD);
if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
}else{addErr=true}
}
if ((myV.length>0)&&(args[i+2]==4)){myMa=args[i+1].split("#"
;myAt=myV.match(myMa[0]);if(!myAt)addErr=true}// timeif (myV.length>0&&args[i+2]==5){ // check this 2
var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""
);if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,""
];if(!myObj1.checked)addErr=true;
}
if (myV.length>0&&args[i+2]==6){myObj1=MM_findObj(args[i+1]);if(myV!=myObj1.value)addErr=true;}// the same
}else
if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
if (args[i+2]==2){
var myDot=false;
for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
if(!myDot){myErr+='* ' +args[i+3]+'\n'}
}
}else
if (myObj.type=='checkbox'){
if(args[i+2]==1&&myObj.checked==false){addErr=true}
if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
}else
if (myObj.type=='select-one'||myObj.type=='select-multiple'){
if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
}else
if (myObj.type=='textarea'){
if(myV.length<args[i+1]){addErr=true}
}
if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
}
if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
document.MM_returnValue = (myErr=='');
}
function GP_AdvOpenWindow(theURL,winName,features,popWidth,popHeight,winAlign,ignorelink,alwaysOnTop,autoCloseTime,borderless) { //v2.0
var leftPos=0,topPos=0,autoCloseTimeoutHandle, ontopIntervalHandle, w = 480, h = 340;
if (popWidth > 0) features += (features.length > 0 ? ',' : '') + 'width=' + popWidth;
if (popHeight > 0) features += (features.length > 0 ? ',' : '') + 'height=' + popHeight;
if (winAlign && winAlign != "" && popWidth > 0 && popHeight > 0) {
if (document.all || document.layers || document.getElementById) {w = screen.availWidth; h = screen.availHeight;}
if (winAlign.indexOf("center"
!= -1) {topPos = (h-popHeight)/2;leftPos = (w-popWidth)/2;}if (winAlign.indexOf("bottom"
!= -1) topPos = h-popHeight; if (winAlign.indexOf("right" != -1) leftPos = w-popWidth;if (winAlign.indexOf("left"
!= -1) leftPos = 0; if (winAlign.indexOf("top" != -1) topPos = 0;features += (features.length > 0 ? ',' : '') + 'top=' + topPos+',left='+leftPos;}
if (document.all && borderless && borderless != "" && features.indexOf("fullscreen"
!= -1) features+=",fullscreen=1";if (window["popupWindow"] == null) window["popupWindow"] = new Array();
var wp = popupWindow.length;
popupWindow[wp] = window.open(theURL,winName,features);
if (popupWindow[wp].opener == null) popupWindow[wp].opener = self;
if (document.all || document.layers || document.getElementById) {
if (borderless && borderless != ""
{popupWindow[wp].resizeTo(popWidth,popHeight); popupWindow[wp].moveTo(leftPos, topPos);}if (alwaysOnTop && alwaysOnTop != ""
{ontopIntervalHandle = popupWindow[wp].setInterval("window.focus();", 50);
popupWindow[wp].document.body.onload = function() {window.setInterval("window.focus();", 50);}; }
if (autoCloseTime && autoCloseTime > 0) {
popupWindow[wp].document.body.onbeforeunload = function() {
if (autoCloseTimeoutHandle) window.clearInterval(autoCloseTimeoutHandle);
window.onbeforeunload = null; }
autoCloseTimeoutHandle = window.setTimeout("popupWindow["+wp+"].close()", autoCloseTime * 1000); }
window.onbeforeunload = function() {for (var i=0;i<popupWindow.length;i++) popupWindow[i].close();}; }
document.MM_returnValue = (ignorelink && ignorelink != ""
? false : true;}
//-->
</script>
<!-- Dynamic Dependent List box Code for *** VBScript *** Server Model //-->
<script language="JavaScript">
<!--
var arrDynaList = new Array();
var arrDL1 = new Array();
arrDL1[1] = "txtSystemID"; // Name of parent list box
arrDL1[2] = "New_CIR"; // Name of form containing parent list box
arrDL1[3] = "txtSubsystemID"; // Name of child list box
arrDL1[4] = "New_CIR"; // Name of form containing child list box
arrDL1[5] = arrDynaList;
<%
Dim txtDynaListRelation, txtDynaListLabel, txtDynaListValue, oDynaListRS
txtDynaListRelation = "SystemID" ' Name of recordset field relating to parent
txtDynaListLabel = "SubSystemCode" ' Name of recordset field for child Item Label
txtDynaListValue = "SubSystemID" ' Name of recordset field for child Value
Set oDynaListRS = rsSubsystemID ' Name of child list box recordset
Dim varDynaList
varDynaList = -1
Dim varMaxWidth
varMaxWidth = "1"
Dim varCheckGroup
varCheckGroup = oDynaListRS.Fields.Item(txtDynaListRelation).Value
Dim varCheckLength
varCheckLength = 0
Dim varMaxLength
varMaxLength = 0
While (NOT oDynaListRS.EOF)
If (varCheckGroup <> oDynaListRS.Fields.Item(txtDynaListRelation).Value) Then
If (varCheckLength > varMaxLength) Then
varMaxLength = varCheckLength
End If
varCheckLength = 0
End If
%>
arrDynaList[<%=(varDynaList+1)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListRelation).Value)%>"
arrDynaList[<%=(varDynaList+2)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListLabel).Value)%>"
arrDynaList[<%=(varDynaList+3)%>] = "<%=(oDynaListRS.Fields.Item(txtDynaListValue).Value)%>"
<%
If (len(oDynaListRS.Fields.Item(txtDynaListLabel).Value) > len(varMaxWidth)) Then
varMaxWidth = oDynaListRS.Fields.Item(txtDynaListLabel).Value
End If
varCheckLength = varCheckLength + 1
varDynaList = varDynaList + 3
oDynaListRS.MoveNext()
Wend
If (varCheckLength > varMaxLength) Then
varMaxLength = varCheckLength
End If
%>
//-->
</script>
<!-- Dynamic Dependent List box Code for *** VBScript *** Server Model //-->
<script language="JavaScript">
<!--
var arrDynaList2 = new Array();
var arrDL2 = new Array();
arrDL1[1] = "txtSubsystemID"; // Name of parent list box
arrDL1[2] = "New_CIR"; // Name of form containing parent list box
arrDL1[3] = "txtSubsystem2ID"; // Name of child list box
arrDL1[4] = "New_CIR"; // Name of form containing child list box
arrDL1[5] = arrDynaList2;
<%
Dim txtDynaListRelation2, txtDynaListLabel2, txtDynaListValue2, oDynaListRS2
txtDynaListRelation2 = "SubSystemID" ' Name of recordset field relating to parent
txtDynaListLabel2 = "Subsystem2Code" ' Name of recordset field for child Item Label
txtDynaListValue2 = "Subsystem2ID" ' Name of recordset field for child Value
Set oDynaListRS2 = rsSubsystem2ID ' Name of child list box recordset
Dim varDynaList2
varDynaList2 = -1
Dim varMaxWidth2
varMaxWidth2 = "1"
Dim varCheckGroup2
varCheckGroup2 = oDynaListRS2.Fields.Item(txtDynaListRelation2).Value
Dim varCheckLength2
varCheckLength2 = 0
Dim varMaxLength2
varMaxLength2 = 0
While (NOT oDynaListRS2.EOF)
If (varCheckGroup2 <> oDynaListRS2.Fields.Item(txtDynaListRelation2).Value) Then
If (varCheckLength2 > varMaxLength2) Then
varMaxLength2 = varCheckLength2
End If
varCheckLength2 = 0
End If
%>
arrDynaList2[<%=(varDynaList2+1)%>] = "<%=(oDynaListRS2.Fields.Item(txtDynaListRelation2).Value)%>"
arrDynaList2[<%=(varDynaList2+2)%>] = "<%=(oDynaListRS2.Fields.Item(txtDynaListLabel2).Value)%>"
arrDynaList2[<%=(varDynaList2+3)%>] = "<%=(oDynaListRS2.Fields.Item(txtDynaListValue2).Value)%>"
<%
If (len(oDynaListRS2.Fields.Item(txtDynaListLabel2).Value) > len(varMaxWidth2)) Then
varMaxWidth2 = oDynaListRS2.Fields.Item(txtDynaListLabel2).Value
End If
varCheckLength2 = varCheckLength2 + 1
varDynaList2 = varDynaList2 + 3
oDynaListRS2.MoveNext()
Wend
If (varCheckLength2 > varMaxLength2) Then
varMaxLength2 = varCheckLength2
End If
%>
//-->
</script>
<!-- End of object/array definitions, beginning of generic functions -->
<script language="JavaScript">
<!--
function setDynaList(arrDL){
var oList1 = document.forms[arrDL[2]].elements[arrDL[1]];
var oList2 = document.forms[arrDL[4]].elements[arrDL[3]];
var arrList = arrDL[5];
clearDynaList(oList2);
if (oList1.selectedIndex == -1){
oList1.selectedIndex = 0;
}
populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);
return true;
}
function clearDynaList(oList){
for (var i = oList.options.length; i >= 0; i--){
oList.options[i] = null;
}
oList.selectedIndex = -1;
}
function populateDynaList(oList, nIndex, aArray){
for (var i = 0; i < aArray.length; i= i + 3){
if (aArray[i] == nIndex){
oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);
}
}
if (oList.options.length == 0){
oList.options[oList.options.length] = new Option("Please Select One",0);
}
oList.selectedIndex = 0;
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
</head>
<body onLoad="MM_callJS('setDynaList(arrDL2)');MM_callJS('setDynaList(arrDL2)')" bgcolor="#99FFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form action="CIR_Insert.asp" method="post" name="New_CIR">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#009999">
<tr>
<td> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><b>CRN
-- Incident Report </b></font></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" height="18"> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="hidden" name="SubmittedDate">
</font></td>
<td width="75%" height="18"> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="hidden" name="Sequence" value="NEW-">
<input type="hidden" name="editdate" value="<%=date%> ">
<input type="hidden" name="owner" value="Intranet User">
<input type="hidden" name="state" value="2">
<input type="hidden" name="WebIR" value="Yes">
</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41%"><font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif"><b>Fields
with a * are required.</b></font></td>
<td width="59%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2"><b>Originators
Section</b></font></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Incident
Date (MM/DD/YYYY):</font></div></td>
<td> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="IncidentDate" value="<%=date%> ">
<font color="#FF0000"><b>*</b></font></font></td>
<td> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Incident
Time:</font></div></td>
<td> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="IncidentTime">
Z </font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><font face="Arial, Helvetica, sans-serif" size="2"> IR Title
(100 characters or less):</font></td>
</tr>
<tr>
<td> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="Title" size="100" maxlength="100">
<b><font color="#FF0000"> *</font></b></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%" height="33"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Severity
of this Incident:</font></div></td>
<td width="81%" height="33"> <font face="Arial, Helvetica, sans-serif" size="2">
<select name="OrigSeverity">
<option>Please Select One</option>
<option value="1">1 - Critical -- Risk/Potential loss of Product;
High Priority</option>
<option value="2">2 - Urgent -- High Impact on Operations/Potential
Loss of Product - but Work around is in Place; High Priority</option>
<option value="3">3 - Routine -- Fix when schedule permits; Moderate
Priority</option>
<option value="4">4 - Minor -- Minor Problem</option>
<option value="5">5 - Enhancement -- Minor enhancement; Moderate
Priority</option>
</select>
<font color="#FF0000"> *</font></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%" height="24">
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Site
Specific Problem?</font></div></td>
<td width="37%"><font face="Arial, Helvetica, sans-serif" size="2">
<select name="SpaceCraftIR">
<option>Please Select One</option>
<option value="Yes">Yes</option>
<option value="No">No</option>
<option value="Unknown">Unknown</option>
</select>
<font color="#FF0000"> *</font></font></td>
<td width="14%"> <div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Formal
Test?</font></div></td>
<td width="30%"> <font face="Arial, Helvetica, sans-serif" size="2">
<select name="Formal_Test">
<option>Please Provide a Value</option>
<option value="Yes">Yes</option>
<option value="No">No</option>
</select>
</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Originator
Organization:</font></div></td>
<td width="37%"> <font face="Arial, Helvetica, sans-serif" size="2">
<select name="OriginateOrgID">
<option value="">Please Select One</option>
<%
While (NOT rsOriginatorOrg.EOF)
%>
<option value="<%=(rsOriginatorOrg.Fields.Item("OrgID"
.Value)%>"><%=(rsOriginatorOrg.Fields.Item("OrgCode".Value)%></option><%
rsOriginatorOrg.MoveNext()
Wend
If (rsOriginatorOrg.CursorType > 0) Then
rsOriginatorOrg.MoveFirst
Else
rsOriginatorOrg.Requery
End If
%>
</select>
<b><font color="#FF0000"> *</font></b> <font color="#0000FF"><a href="help.asp"><b onClick="GP_AdvOpenWindow('Help.asp#Organization','HelpScreen','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=yes',300,300,'center','ignoreLink','',0,'');return document.MM_returnValue">Help</b></a></font>
</font></td>
<td width="14%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Originator
Name:</font></div></td>
<td width="30%"> <font face="Arial, Helvetica, sans-serif" size="2">
<select name="OriginatePersonID">
<option value="0">Please Select One</option>
<%
While (NOT rsOrigninatorName.EOF)
%>
<option value="<%=(rsOrigninatorName.Fields.Item("PersonID"
.Value)%>" ><%=(rsOrigninatorName.Fields.Item("LastFirst".Value)%></option><%
rsOrigninatorName.MoveNext()
Wend
If (rsOrigninatorName.CursorType > 0) Then
rsOrigninatorName.MoveFirst
Else
rsOrigninatorName.Requery
End If
%>
</select>
<b><font color="#FF0000"> *</font></b> <font color="#0000FF"><a href="help.asp"><b onClick="GP_AdvOpenWindow('Help.asp#Originator','HelpScreen','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=yes',300,300,'center','ignoreLink','',0,'');return document.MM_returnValue">Help</b></a></font></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="19%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Location:</font></div></td>
<td width="37%"><font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="location" size="35" maxlength="20">
<font color="#FF0000"><b> *</b></font> <font color="#0000FF"><a href="help.asp"><b onClick="GP_AdvOpenWindow('Help.asp#Location','HelpScreen','fullscreen=no,toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=yes',300,300,'center','ignoreLink','',0,'');return document.MM_returnValue">Help</b></a></font></font></td>
<td width="14%"> <div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Site
ID:</font></div></td>
<td width="30%"> <font size="2" face="Arial, Helvetica, sans-serif">
<select name="satellite">
<option>Please Select a Site</option>
<%
While (NOT rsSatellites.EOF)
%>
<option value="<%=(rsSatellites.Fields.Item("SatNum"
.Value)%>" ><%=(rsSatellites.Fields.Item("Full_Sat".Value)%></option><%
rsSatellites.MoveNext()
Wend
If (rsSatellites.CursorType > 0) Then
rsSatellites.MoveFirst
Else
rsSatellites.Requery
End If
%>
</select>
<font color="#FF0000"> *</font></font> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#CCCCCC" width="51%" valign="top"> <div align="center"><font face="Arial, Helvetica, sans-serif" size="2">System
Descriptions : </font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">
System Affected:</font></div></td>
<td width="59%"> <font face="Arial, Helvetica, sans-serif" size="2">
<select name="txtSystemID" id="txtSystemID" onchange="MM_callJS('setDynaList(arrDL1)');MM_callJS('setDynaList(arrDL2)')">
<option value="">Please Select One</option>
<%
While (NOT rsSystemID.EOF)
%>
<option value="<%=(rsSystemID.Fields.Item("SystemID"
.Value)%>"><%=(rsSystemID.Fields.Item("SystemCode".Value)%></option><%
rsSystemID.MoveNext()
Wend
If (rsSystemID.CursorType > 0) Then
rsSystemID.MoveFirst
Else
rsSystemID.Requery
End If
%>
</select>
<b><font color="#FF0000"> *</font></b></font></td>
</tr>
<tr>
<td width="41%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2"> Unit
Affected:</font></div></td>
<td width="59%"> <font face="Arial, Helvetica, sans-serif" size="2">
<select name="txtSubsystemID" id="txtSubsystemID" onChange="MM_callJS('setDynaList(arrDL2)')">
<option value="">Please Select One</option>
</select>
</font></td>
</tr>
<tr>
<td width="41%"><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Lowest
Replaceable Unit:</font></div></td>
<td width="59%"> <font size="2" face="Arial, Helvetica, sans-serif">
<select name="txtSubsystem2ID" id="txtSubsystem2ID">
<option value="">Please Select One</option>
</select>
</font></td>
</tr>
</table>
</div></td>
<td width="5%"> </td>
<td bgcolor="#CCCCCC" width="44%" valign="top"> <div align="center"><font face="Arial, Helvetica, sans-serif" size="2">If
you are performing a formal test, describe the test environment
below:<br>
</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="27%" height="18"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Test
Phase:</font></div></td>
<td width="73%" height="18"> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="Phase" size="35">
</font></td>
</tr>
<tr>
<td width="27%" height="18"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Test
Title:</font></div></td>
<td width="73%" height="18"> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="Test" size="35">
</font></td>
</tr>
<tr>
<td width="27%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Test
#:</font></div></td>
<td width="73%"> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="TestNumber" size="35">
</font></td>
</tr>
<tr>
<td width="27%"> <div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Step
#:</font></div></td>
<td width="73%"> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="text" name="StepNumber" size="35">
</font></td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><font face="Arial, Helvetica, sans-serif" size="2">Description
of Incident:<b> <font color="#FF0000"> *</font></b></font></td>
</tr>
<tr>
<td> <font face="Arial, Helvetica, sans-serif" size="2">
<textarea name="Description" rows="10" cols="100"></textarea>
</font></td>
</tr>
</table>
<p><font face="Arial, Helvetica, sans-serif" size="2">Please verify all
information and that all fields that are applicable have been filled
out fully before submitting IR! </font></p>
<p><font face="Arial, Helvetica, sans-serif" size="2">Attachments may
be added on the following pages.</font></p>
<p> <font face="Arial, Helvetica, sans-serif" size="2">
<input type="submit" name="Submit" value="Submit IR" onClick="YY_checkform('New_GIR','Title','#q','0','Please Provide a Title.','location','#q','0','Please provide a Location. Click help if needed!','OrigSeverity','q','1','Please provide an assessment of severity.','OriginateOrgID','q','1','Please provide an Originator Organization. See Help','OriginatePersonID','q','1','Please provide an Orignator Name. See Help','Application','q','1','Please Choose an Assessment of System');return document.MM_returnValue">
</font></p></td>
</tr>
</table>
<p> </p>
<p> </p>
</form>
<p> </p>
</body>
</html>
<%
rsOriginatorOrg.Close()
%>
<%
rsOrigninatorName.Close()
%>
<%
rsSatellites.Close()
%>
<%
rsSystemID.Close()
Set rsSystemID = Nothing
%>
<%
rsSubsystemID.Close()
Set rsSubsystemID = Nothing
%>
<%
rsSubsystem2ID.Close()
Set rsSubsystem2ID = Nothing
%>
Edited by - forrestgray on 07 Jan 2003 12:54:39