• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 942
  • Last Modified:

Need to populate input boxes based on item selected from select list.



This question is PART TWO of a previous posting. Asked by JA67 (me) on 05/01/2005 06:11PM PDT)
(Previous Solution Title: "Need to populate four input boxes with values that are determined by the selected item from an ASP populated select list.")

Expert Exchange user, "nschafer" primarily helped me with the previous posting, with "SnowFlake" providing very useful commentary as well.  Both of these experts have been extremely helpful to me thus far.  It's merely my lack of knowledge and my dim wittedness that's keeping me from implementing their wonderful examples...
 
In this posting I am attempting to past in my entire web page, (not sure what the character limit is) so that you can better understand what I am talking about. It is an asp page but if you save it as an html page you should be able to view it. The only things that won't work will be the drop downs, etc., which are populated by a database.

The version of my web page that I've pasted below, includes my pathetic attempt to implement nschafer's "[OPTION 3]" solution, posted in the Solution Title denoted above. I understood from nscharfer's [OPTION 3] example,  that I needed to create two additional web pages to go along with my main page, and I have done so, but I havn't made all the chages or edits correctly, because I'm getting a little lost...

Now for a reiteration of my question/problem/objective:

*******************************************************************************
OBJECTIVE:

1.  I have a select list that is populated by the following ASP:

<tr><td>Technical name:</td>
       <td><select name="txtTechName" class="clsInputTextTechName" type="text"  ID="txtTechName"/>
                        <option value=""></option>
                                <%
                                    Do Until oRstADW_COL.EOF
                                    Response.Write("<option value='" & oRstADW_COL.Fields("mdo_nm") & "'>" & oRstADW_COL.Field("mdo_nm") & "</option>")
                                    oRstADW_COL.MoveNext
                                    Loop
                                 %>
                  </select>
        </td>
</tr>

2. If an item is selected from select list "txtTechName," then a query is ran using the ID of the selected item to create another recordset, "rst".
   

3. The ID mentioned above, (in my MS Access version of this web page) is stored in a variable named, "txtRFRNC_MDO_ID". That is the way I do it in VBA. The ID is stored in the second column of a  combo box and is hidden. I then assign this value to txtRFRNC_MDO_ID. That's just they way I did it. Because it worked. That's the only reason...
 

4.   Here is the SQL used to create rst (in my Access database version) The actual tables are on an SQL server. My database is a front end.
     
      Set rst = CurrentDb.OpenRecordset("select * from MDI Where MDO_ID=" & txtRFRNC_MDO_ID, dbOpenDynaset, dbSeeChanges)


5.   Recordset "rst" will generally only contain 3 to 5 rows, and look somthing like the below table (only showing relavant columns in my example).
     
      MDO_ID      MDI_TYPE_CD            MDI_TXT
      100100      busn                  Birth Date
      100100      desc                   The member's date of birth.
      100100      rfmt                  Date


6.  I then loop through this recordset with the following code (in VBA).
     
rst.MoveFirst
    Do Until rst.EOF
        Select Case rst.Fields("mdi_type_cd").Value
            Case "BUSN"                                                          
                txtFieldName = rst.Fields("mdi_txt").Value    ' On my web page this line corrolates with "Field Name" on tab3.
            Case "DESC"                                                          
                txtFieldDescription = rst.Fields("mdi_txt").Value  ' On my web page this line corrolates with "Field Description" on tab3.
            Case "ELMTYP"                                                      
                cmbObjectType = rst.Fields("mdi_txt").Value   ' On my web page this line corrolates with "Object Type" on tab3.
            Case "EXMP"                                                          
                txtExample = rst.Fields("mdi_txt").Value   ' On my web page this line corrolates with "Example" on tab3.
            Case "RFMT"                                                          
                cmbFieldFormat = rst.Fields("mdi_txt").Value   ' On my web page this line corrolates with "Field Format" on tab3.
           
            End Select
      rst.MoveNext
Loop

****************************************************************************************************************
My web page is below:  Approximately 1,220 lines. Not sure if it will paste in...  The formating will likely be messed up a little, but the various sections of the code are documented pretty well. It is "Tab3" on the web page that my question is concerned with, so you can do a search for "Tab3" in the code to find the right section of the code...
************************************************************************************


<%@ language="vbscript" %>
<%

'  ******************** Make connection to  database. *******************

Set oCon = Server.CreateObject("ADODB.Connection")


'  ******************* Create recordsets to populate select lists on tab1. **************

Set oRst = Server.CreateObject("ADODB.recordset")
      oRst.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'USR' ORDER BY MDO_NM", oCon
Set oRstAppOwnr = Server.CreateObject("ADODB.recordset")
      oRstAppOwnr.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPOWNR' ORDER BY MDO_NM", oCon
Set oRstAppContact = Server.CreateObject("ADODB.recordset")
      oRstAppContact.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'USR' ORDER BY MDO_NM", oCon
Set oRstSBJA = Server.CreateObject("ADODB.recordset")
      oRstSBJA.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPSBJA' ORDER BY MDO_NM", oCon
Set oRstDATASRC = Server.CreateObject("ADODB.recordset")
      oRstDATASRC.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPDATASRC' ORDER BY MDO_NM", oCon
Set oRstBUSFCT = Server.CreateObject("ADODB.recordset")
      oRstBUSFCT.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'APPBUSFCT' ORDER BY MDO_NM", oCon
Set oRstPRGTOOL = Server.CreateObject("ADODB.recordset")
      oRstPRGTOOL.Open "SELECT MDO_NM FROM MDO WHERE MDO_TYPE_CD = 'PRGTOOL' ORDER BY MDO_NM", oCon
      
'  ******************* Create recordsets to populate select list on tab6. **************

Set oRstADW_COL = Server.CreateObject("ADODB.recordset")
      oRstADW_COL.Open "SELECT MDO.MDO_NM, MDO.MDO_TYPE_CD, MDO.MDO_ID, MDI.MDI_TXT, MDI.MDI_TYPE_CD FROM MDO INNER JOIN MDI ON MDO.MDO_ID=MDI.MDO_ID WHERE (((MDO.MDO_TYPE_CD)='col') AND ((MDI.MDI_TYPE_CD)='busn')) ORDER BY MDO.MDO_NM", oCon
            
%>

<html>
<head>
<title>Application Documentation Capture Tool </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<style id="pageStyle">
      /* ******* DHTML tab control  ******************* */
      .clsActiveTab {font-family: verdana;font-size: 11px;font-weight: bold;background-color:#d7d7d7;border-top:1px solid; border-right:3px solid; border-left:1px solid; cursor:hand; height:5px; padding:3px;width:5px;}
      .clsTab {background-color:#d7d7d7; border:1px solid; cursor:hand; height:5px; padding:3px;}
      .clsTabSpacer {border-bottom:1px solid; height:5px; width:1px}
      .clsText {display:none}
      .clsButton {font:menu; width:50px;}
      
      /* ******* Input boxes on tabs 3 and 4  ******************* */
      .clsInputTextTab3  {font-family:verdana; font-size:10px;width:100%;}
      .clsInputTextTechName  {font-family:verdana; font-size:10px;width:200px;}
      .clsInputTextOther  {font-family:verdana; font-size:10px;width:178px;}
      .clsInputTextTab4  {font-family:verdana; font-size:10px;width:100%;}
      
    /* ******* Align check box and text box LABLES to the right. ******************* */
      td {font-family: verdana;font-size: 10px;color: black;verticle-align:baseline;padding:0px;}
      td.textright {font-family: verdana;font-size: 10px;color: black;text-align:right;verticle-align:baseline;padding:0px;}
      
      /* *******  Align check boxes and text boxes  to the left. ************************ */
      td.textleft {font-family: verdana;font-size: 10px;color: black;text-align: left;padding: 0px;vertical-align: top;}
      
      /* ******* Produces dividing lines between the differecnt sections of a form.  Used on every tab.  ************** */
      td.HeaderRidgeBottom {font-family: verdana;font-size: 10px;color: black;font-weight: bold;text-align: left;border-bottom:  thin ridge;padding-left: 3px;padding-right: 6px;padding-top: 4px;padding-bottom: 2px;}
      td.HeaderRidgeTop {font-family: verdana;font-size: 10px;color: black;text-align: left;border-top: thin ridge;padding-left: 3px;}
      td.HeaderNoRidge {font-family: verdana;font-size: 10px;color: black; font-weight: normal;text-align: left;padding-left: 3px;}
      td.SpaceBetweenRows {font-family: verdana;font-size: 6px;color: black; font-weight: normal;text-align: left;padding-left: 3px;}
      
      /* ******* Formats text within text boxes and buttons. ********************************* */
      input {font-family: verdana;font-size: 10px;color: black;text-align: left;}
      
      /* ******* Formats Select boxes on tab3. ********************************* */
      SELECT.Style1{font-family: verdana;font-size: 10px;color: black;width: 133px;text-align: left;padding: 0px;}
      SELECT.Style2{font-family: verdana;font-size: 10px;color: black;width: 200px;text-align: left;padding: 0px;}

    INPUT.Style1 {font-family: verdana;font-size: 10px;color: black;text-align: left;padding: 0px;}
      
      </style>
      <script type="text/javascript">
      
/******* Auto check /uncheck, check boxes on tab2  ***** */

      function AutoCheck(oForm, cClass, lChecked) {
            var oElements = oForm.elements;
                        for (var i=0; i<oElements.length; i++) {  
                              if (oElements[i].className==cClass)
                              oElements[i].checked=lChecked;      
                              }
                              }
                                                
/* ****** Declare and Initialize variables for each Data Island  ****** */

                              var oDoc = new XMLDocument();
                              var oDoc2 = new XMLDocument();
                              var oDoc3 = new XMLDocument();
                              var oDoc4 = new XMLDocument();
                  
                              var oRoot = new IXMLDOMElement();
                              var oRoot2 = new IXMLDOMElement();                  
                              var oRoot3 = new IXMLDOMElement();
                              var oRoot4 = new IXMLDOMElement();
                                    
                  function initVariables() {
                              oDoc = apps.XMLDocument;
                              oDoc2 = appsPRMPT.XMLDocument;
                              oDoc3 = appsRECIP.XMLDocument;
                              oDoc4 = appsAddInfo.XMLDocument;
                              
                              oRoot = oDoc.selectSingleNode('/applications');
                              oRoot2 = oDoc2.selectSingleNode('/applications');      
                              oRoot3 = oDoc3.selectSingleNode('/applications');      
                              oRoot4 = oDoc4.selectSingleNode('/applications');                                    
                  }

/* ****** Populate the "Additional info applies to:" combo box with values from: Data Source, Fields, Prompts, and Recipients.   *** */

                  function popAddInfoAppliesTo() {
                              var oApplicationNodes  = document.getElementById('apps').XMLDocument.selectNodes('/applications/application/*[0]');
                              var oApplicationNodes2 = document.getElementById('appsPRMPT').XMLDocument.selectNodes('/applications/application/*[0]');      
                              var oApplicationNodes3 = document.getElementById('appsRECIP').XMLDocument.selectNodes('/applications/application/*[0]');            
                  
                              document.forms['frmAddInfo'].txtAddInfoApplies.options.length = 0; // Clear select list before building the list of items. Prevents duplicates in the list.
                              
                              for(var i=0;i<oApplicationNodes.length;i++) {
                              //alert(oApplicationNodes.item(i).text);
                              var oOption = document.createElement("OPTION");
                              document.all.txtAddInfoApplies.options.add(oOption);
                              oOption.innerText = oApplicationNodes.item(i).text;
                              oOption.value = "apps_" + oApplicationNodes.item(i).text                  
                  }
                              for(var i=0;i<oApplicationNodes2.length;i++) {
                              //alert(oApplicationNodes2.item(i).text);
                              if (oApplicationNodes2.item(i).text.length>0) {            // <--- Don't add blank lines. Without this, a blank line is placed between, e.g. Fields & Prompts.
                              var oOption = document.createElement("OPTION");
                              document.all.txtAddInfoApplies.options.add(oOption);
                              oOption.innerText = oApplicationNodes2.item(i).text;
                              oOption.value = "appsPRMPT_" + oApplicationNodes2.item(i).text;
                  }
                  }
                          for(var i=0;i<oApplicationNodes3.length;i++) {
                              //alert(oApplicationNodes3.item(i).text);
                              if (oApplicationNodes2.item(i).text.length>0) {            
                              var oOption = document.createElement("OPTION");
                              document.all.txtAddInfoApplies.options.add(oOption);
                              oOption.innerText = oApplicationNodes3.item(i).text;
                              oOption.value = "appsRECIP_" + oApplicationNodes3.item(i).text;
                  }
                  }
                              
                  }
                  
/* ****** Toggle between the "Technical name" Select list, and the, "Other" Input box. Tab3   *** */      
                  
            function test(oTxt, oSel) {
                  if(oTxt.value.length >= 1)
                  {   document.all.item('txtTechName').value = ""
                        oSel.disabled = true;  }
                  else
                        oSel.disabled = false;
            }
                  
/* ****** Functions & variable common to each listview / Data Island)  *** */

                  //  ===== Reference this to see what the XML looks like for the apps, i.e., "Fields" data island. Educational only... Not used. =======
                  function checkXML() {
                              alert(apps.xml);
                  }
                  
                  //  ===== Delete listview table row & clear form fields =======
                  function deleteNode(tNode, lstView, text) {
                              tNode.removeChild(tNode.childNodes.item(text));
                              switch (lstView) {
                                    case "FLDS": clearFormFLDS();
                                    case "PRMPT": clearFormPRMPT();      
                                    case "RECIP": clearFormRECIP();      
                                    case "AddInfo": clearFormAddInfo();
                  }
                  }
                  
                  //  ======  Add new  listview table row =======
                  function addDetail(tDoc, oNode, cElement, cText) {
                              var oTxt = tDoc.createTextNode(cText);
                              var oElement = tDoc.createElement(cElement);
                              oElement.appendChild(oTxt);
                              var oNewNode = oNode.appendChild(oElement);
                              return oNewNode;      
                  }
                  
/* ******** Tab3, Field specific functions ********  */
            
            //  ======  Add new  listview table row =======
            function addValuesFLDS() {
                        var oNode = addDetail(oDoc, oRoot, 'application', '');
                       
                        if(document.all.item('txtTechName').value.length !=0) {
                        addDetail(oDoc, oNode, 'TechName', document.all.item('txtTechName').value);
            }
                        if(document.all.item('txtTechNameOther').value.length !=0) {
                        addDetail(oDoc, oNode, 'TechName', document.all.item('txtTechNameOther').value);
            }
                        addDetail(oDoc, oNode, 'FieldName', document.all.item('txtFieldName').value);
                        addDetail(oDoc,oNode, 'Description', document.all.item('txtDescription').value);
                        addDetail(oDoc, oNode, 'Example', document.all.item('txtExample').value);
                        addDetail(oDoc, oNode, 'ObjectType', document.all.item('txtObjectType').value);
                        addDetail(oDoc, oNode, 'FieldFormat', document.all.item('txtFieldFormat').value);
                        addDetail(oDoc, oNode, 'Limitation', document.all.item('txtLimitation').value);
                        addDetail(oDoc, oNode, 'Disp_Ord', document.all.item('txtFieldDispOrd').value);
                        document.all.item('txtTechName').disabled=false;
                        clearFormFLDS();
            }
      
                  //  ======  Update existing  listview table row =======
                  function updateValuesFLDS() {
                              var oNode = oRoot.childNodes.item(document.all.item('txtID_FLD').value);
                              /*  Left side of  "=" references listview table columns. Right side of "=" references the form fields. */
                              oNode.selectSingleNode('TechName').text = document.all.item('txtTechName').value;
                              oNode.selectSingleNode('FieldName').text = document.all.item('txtFieldName').value;
                              oNode.selectSingleNode('Description').text = document.all.item('txtDescription').value;
                              oNode.selectSingleNode('Example').text = document.all.item('txtExample').value;
                              oNode.selectSingleNode('ObjectType').text = document.all.item('txtObjectType').value;
                              oNode.selectSingleNode('FieldFormat').text = document.all.item('txtFieldFormat').value;
                              oNode.selectSingleNode('Limitation').text = document.all.item('txtLimitation').value;
                              oNode.selectSingleNode('Disp_Ord').text = document.all.item('txtFieldDispOrd').value;
                              clearFormFLDS();
                  }
                  
                  //  ======  Populate form fields with content of a selected row, for editing the selected row  =======
                  function getValuesFLDS(oRow) {
                              var oNode = oRoot.childNodes.item(oRow.recordNumber - 1);
                              document.all.item('txtID_FLD').value = (oRow.recordNumber - 1);
                              document.all.item('txtTechName').value = oNode.selectSingleNode('TechName').text;
                              document.all.item('txtFieldName').value = oNode.selectSingleNode('FieldName').text;
                              document.all.item('txtDescription').value = oNode.selectSingleNode('Description').text;
                              document.all.item('txtExample').value = oNode.selectSingleNode('Example').text;
                              document.all.item('txtObjectType').value = oNode.selectSingleNode('ObjectType').text;
                              document.all.item('txtFieldFormat').value = oNode.selectSingleNode('FieldFormat').text;
                              document.all.item('txtLimitation').value = oNode.selectSingleNode('Limitation').text;
                              document.all.item('txtFieldDispOrd').value = oNode.selectSingleNode('Disp_Ord').text;
                  }
                  
                  //  ======  Clear form fields after a row is added or when the "Clear" button is clicked.  =======
                  function clearFormFLDS() {
                              document.all.item('txtID_FLD').value = ""
                              document.all.item('txtTechName').value = ""
                              document.all.item('txtTechNameOther').value = ""
                              document.all.item('txtFieldName').value = ""
                              document.all.item('txtDescription').value = ""
                              document.all.item('txtExample').value = ""
                              document.all.item('txtObjectType').value = ""
                              document.all.item('txtFieldFormat').value = ""
                              document.all.item('txtLimitation').value = ""
                              document.all.item('txtFieldDispOrd').value = ""
                  }
                  function updateFields(key) {
                              window.frames[0].location="updateFields.asp?key=" + key
                  }
                  
/* *********** Tab4, Prompt specific functions ************ */

                   //  ======  Add new  listview table row =======
                  function addValuesPRMPT() {
                              var oNode = addDetail(oDoc2, oRoot2, 'application', '');
                              addDetail(oDoc2, oNode, 'TechPrompt', document.all.item('txtTechPrompt').value);
                              addDetail(oDoc2, oNode, 'PromptVerbiage', document.all.item('txtPromptVerbiage').value);
                              addDetail(oDoc2, oNode, 'PromptNotes', document.all.item('txtPromptNotes').value);
                              addDetail(oDoc2, oNode, 'PromptFormat', document.all.item('txtPromptFormat').value);
                              addDetail(oDoc2, oNode, 'PromptType', document.all.item('txtPromptType').value);
                              addDetail(oDoc2, oNode, 'Disp_Ord', document.all.item('txtPromptDispOrd').value);
                              clearFormPRMPT();
                  }
                  
                  //  ======  Update existing  listview table row =======
                  function updateValuesPRMPT() {
                              var oNode = oRoot2.childNodes.item(document.all.item('txtID_PRMPT').value);
                              <!--  Left side of  "=" references listview table columns. Right side of "=" references the form fields. -->
                              oNode.selectSingleNode('TechPrompt').text = document.all.item('txtTechPrompt').value;
                              oNode.selectSingleNode('PromptVerbiage').text = document.all.item('txtPromptVerbiage').value;
                              oNode.selectSingleNode('PromptNotes').text = document.all.item('txtPromptNotes').value;
                              oNode.selectSingleNode('PromptFormat').text = document.all.item('txtPromptFormat').value;
                              oNode.selectSingleNode('PromptType').text = document.all.item('txtPromptType').value;
                              oNode.selectSingleNode('Disp_Ord').text = document.all.item('txtPromptDispOrd').value;
                              clearFormPRMPT();
                  }
                  
                  //  ======  Populate form fields with content of a selected row, for editing the selected row  =======
                  function getValuesPRMPT(oRow) {
                              var oNode = oRoot2.childNodes.item(oRow.recordNumber - 1);
                              document.all.item('txtID_PRMPT').value = (oRow.recordNumber - 1);
                              document.all.item('txtTechPrompt').value = oNode.selectSingleNode('TechPrompt').text;
                              document.all.item('txtPromptVerbiage').value = oNode.selectSingleNode('PromptVerbiage').text;
                              document.all.item('txtPromptNotes').value = oNode.selectSingleNode('PromptNotes').text;
                              document.all.item('txtPromptFormat').value = oNode.selectSingleNode('PromptFormat').text;
                              document.all.item('txtPromptType').value = oNode.selectSingleNode('PromptType').text;
                              document.all.item('txtPromptDispOrd').value = oNode.selectSingleNode('Disp_Ord').text;
                  }
                  
                  //  ======  Clear form fields after a row is added or when the "Clear" button is clicked.  =======
                  function clearFormPRMPT() {
                              document.all.item('txtID_PRMPT').value = ""
                              document.all.item('txtTechPrompt').value = ""
                              document.all.item('txtPromptVerbiage').value = ""
                              document.all.item('txtPromptNotes').value = ""
                              document.all.item('txtPromptFormat').value = ""
                              document.all.item('txtPromptType').value = ""
                              document.all.item('txtPromptDispOrd').value = ""
                  }

/* *********** Tab5, Recipient specific functions ************ */  
                  
                  //  ======  Add new  listview table row =======
                  function addValuesRECIP() {
                              var oNode = addDetail(oDoc3, oRoot3, 'application', '');
                              addDetail(oDoc3, oNode, 'Recipient', document.all.item('txtRecip').value);
                              addDetail(oDoc3, oNode, 'Intern_Extern_Ind', document.all.item('txtIntExtInd').value);
                              addDetail(oDoc3, oNode, 'Frequency', document.all.item('txtFreq').value);
                              clearFormRECIP();
                  }
                  
                  //  ======  Update existing  listview table row =======
                  function updateValuesRECIP() {
                              var oNode = oRoot3.childNodes.item(document.all.item('txtID_RECIP').value);
                              oNode.selectSingleNode('Recipient').text = document.all.item('txtRecip').value;
                              oNode.selectSingleNode('Intern_Extern_Ind').text = document.all.item('txtIntExtInd').value;
                              oNode.selectSingleNode('Frequency').text = document.all.item('txtFreq').value;
                              clearFormRECIP();
                  }
                  
                  //  ======  Populate form fields with content of a selected row, for editing the selected row  =======
                  function getValuesRECIP(oRow) {
                              var oNode = oRoot3.childNodes.item(oRow.recordNumber - 1);
                              document.all.item('txtID_RECIP').value = (oRow.recordNumber - 1);
                              document.all.item('txtRecip').value = oNode.selectSingleNode('Recipient').text;
                              document.all.item('txtIntExtInd').value = oNode.selectSingleNode('Intern_Extern_Ind').text;
                              document.all.item('txtFreq').value = oNode.selectSingleNode('Frequency').text;
                  }
                  
                  //  ======  Clear form fields after a row is added or when the "Clear" button is clicked.  =======
                  function clearFormRECIP() {
                              document.all.item('txtID_RECIP').value = ""
                              document.all.item('txtRecip').value = ""
                              document.all.item('txtIntExtInd').value = ""
                              document.all.item('txtFreq').value = ""
                  }

/* *********** Tab6, Additional Info specific functions ************ */  
                  
                  //  ======  Add new  listview table row =======
                  function addValuesAddInfo() {
                              var oNode = addDetail(oDoc4, oRoot4, 'application', '');
                              addDetail(oDoc4, oNode, 'AddInfo', document.all.item('txtAddInfo').value);
                              addDetail(oDoc4, oNode, 'Add_Info_Applies_To', document.all.item('txtAddInfoApplies').value);
                              addDetail(oDoc4, oNode, 'Disp_Ord', document.all.item('txtFLDDispOrd').value);
                              clearFormAddInfo();
                  }
                  
                  //  ======  Update existing  listview table row =======
                  function updateValuesAddInfo() {
                              var oNode = oRoot4.childNodes.item(document.all.item('txtID_AddInfo').value);
                              oNode.selectSingleNode('AddInfo').text = document.all.item('txtAddInfo').value;
                              oNode.selectSingleNode('Add_Info_Applies_To').text = document.all.item('txtAddInfoApplies').value;
                              oNode.selectSingleNode('Disp_Ord').text = document.all.item('txtFLDDispOrd').value;
                              clearFormAddInfo();
                  }
                  
                  //  ======  Populate form fields with content of a selected row, for editing the selected row  =======
                  function getValuesAddInfo(oRow) {
                              var oNode = oRoot4.childNodes.item(oRow.recordNumber - 1);
                              document.all.item('txtID_AddInfo').value = (oRow.recordNumber - 1);
                              document.all.item('txtAddInfo').value = oNode.selectSingleNode('AddInfo').text;
                              document.all.item('txtAddInfoApplies').value = oNode.selectSingleNode('Add_Info_Applies_To').text;
                              document.all.item('txtFLDDispOrd').value = oNode.selectSingleNode('Disp_Ord').text;
                  }
                  
                  //  ======  Clear form fields after a row is added or when the "Clear" button is clicked.  =======
                  function clearFormAddInfo() {
                              document.all.item('txtID_AddInfo').value = ""
                              document.all.item('txtAddInfo').value = ""
                              document.all.item('txtAddInfoApplies').value = ""
                              document.all.item('txtFLDDispOrd').value = ""
                  }
                  
/* **********  END -- Tab specific functions ************ */

</script>
</head>
<body onLoad="javascript:setDefaults();javascript:initVariables();" style="font-family:Verdana; font-size:8px">
      
      <!-- ------------ Begin DHTML tab control ----------  -->
      <table style="background-color: #d7d7d7;position: absolute; top: 2px; left: 150px;"border="0" cellpadding="0" cellspacing="0" height="425px" width="625px">
            <tr id="headerRow">
                  <td class="clsTabSpacer">&nbsp;</td>
                  <td class="clsActiveTab" id="Tab1" onClick="javascript:changeTabs(this, Tab1Text);">General_Info</td>
                  <td class="clsTabSpacer">&nbsp;</td>
                  <td class="clsTab" id="Tab2" onClick="javascript:changeTabs(this, Tab2Text);">Scope</td>
                  <td class="clsTabSpacer">&nbsp;</td>
                  <td class="clsTab" id="Tab3" onClick="javascript:changeTabs(this, Tab3Text);">Fields</td>
                  <td class="clsTabSpacer">&nbsp;</td>
                  <td class="clsTab" id="Tab4" onClick="javascript:changeTabs(this, Tab4Text);">Prompts</td>
                  <td class="clsTabSpacer">&nbsp;</td>
                  <td class="clsTab" id="Tab5" onClick="javascript:changeTabs(this, Tab5Text);">Recipients</td>
                  <td class="clsTabSpacer">&nbsp;</td>
                  <td class="clsTab" id="Tab6" onClick="javascript:changeTabs(this, Tab6Text);">Additional Info</td>
                  <td class="clsTabSpacer">&nbsp;</td>
            </tr>
            <tr>
                  <td colspan="13" style="border-left:1px solid black; border-right:1px solid black; height:10px;"}>&nbsp;</td>
            </tr>
            <tr>
                  <td width="100%" colspan="13" style="border-left:1px solid black; border-right:1px solid black; padding:5px; vertical-align:top">
                        <table border="0" cellpadding="0" cellspacing="0" class="" id="Tab1Text">
                              <tr>
                      <td>
                      
<!-- ----- BEGIN -- Tab1 content  -----------------  -->
            
                              <form name="frmReportInputPage1" method="post" action="ASPpageGoesHere?func=add" ID=frmPage1>
            <tr>  
                  <td class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td>
            </tr>
            <tr>  
                  <td class="SpaceBetweenRows" colspan="3">&nbsp;</td>
            </tr>
            <tr>  
                  <td class="textleft">Submitted  by: <b>*</b></td>
                  <td class="textleft">Submitter e-mail: </td>
                  <td class="textleft">Date application submitted: </td>
            </tr>
            <tr>  
                  <td class="textleft">
                  <select required="true" name="cboUser" ID=cboUser style="width: 187px;font-size: 9px;"><option value=""></option>
                  <%
                  Do Until oRst.EOF
                        Response.Write("<option value='" & oRst.Fields("mdo_nm") & "'>" & oRst.Fields("mdo_nm") & "</option>")
                        oRst.MoveNext
                  Loop
                  %>
                  </select>
                  </td>
                  <td class="textleft"><input  type="text" style="font-family: verdana;font-size: 10px;background-color: #d7d7d7;border-color:#A9A9A9;border-style:solid;border-width:1px;width: 187px;"  name="txtEmail" id="txtEmail" readonly /></td>
                  <td class="textleft"><input  type="text" style="font-family: verdana;font-size: 10px;background-color: #d7d7d7;border-color:#A9A9A9; border-style:solid;border-width:1px" size="35" name="txtDTMSBMT" id="txtDTMSBMT" readonly /></td>
            </tr>
<tr>  
   <td class="textleft" colspan="2">Application name:<b>*</b></td>
   <td class="textleft">Technical application name:<b>*</b></td>
</tr>
<tr>
   <td class="textleft" colspan="2"><input style="font-family: verdana;font-size: 10px;width: 376px;" required="true" type="text"  name="txtRPT_NAME" id="txtRPT_NAME" /></td>
   <td class="textleft"><input style="font-family: verdana;font-size: 10px;"  required="true" type="text" size="35" name="txtTCHNM" id="txtTCHNM" /></td>
</tr>
<tr>  
   <td class="textleft">Application owner: </td>
   <td class="textleft">Application contact: </td>
   <td class="textleft">Subject area: </td>
</tr>
<tr>
   <td class="textleft">
            <select  name="cboOWNRAPPS" ID=cboOWNRAPPS style="width: 187px;font-size: 9px;"><option value=""></option>
                  <%
                  Do Until oRstAppOwnr.EOF
                        Response.Write("<option value='" & oRstAppOwnr.Fields("mdo_nm") & "'>" & oRstAppOwnr.Fields("mdo_nm") & "</option>")
                        oRstAppOwnr.MoveNext
                  Loop
                  %>
            </select>
      </td>
   <td class="textleft">
            <select  name="cboRPTCN" ID=cboRPTCN style="width: 188px;font-size: 9px;"><option value=""></option>
                  <%
                  Do Until oRstAppContact.EOF
                        Response.Write("<option value='" & oRstAppContact.Fields("mdo_nm") & "'>" & oRstAppContact.Fields("mdo_nm") & "</option>")
                        oRstAppContact.MoveNext
                  Loop
                  %>
            </select>
      </td>
  <td class="textleft">
            <select  name="cboSBJA" ID=cboSBJA style="width: 190px;font-size: 9px;"><option value=""></option>
                  <%
                  Do Until oRstSBJA.EOF
                        Response.Write("<option value='" & oRstSBJA.Fields("mdo_nm") & "'>" & oRstSBJA.Fields("mdo_nm") & "</option>")
                        oRstSBJA.MoveNext
                  Loop
                  %>
            </select>
      </td>
</tr>
<tr>
    <td class="textleft" colspan="2">Application Summary:</td>      
    <td class="textleft">Business function:</td>
</tr>
<tr>
   <td class="textleft" colspan="2"><textarea  name="txtSUMM" style="width:378px;height:58px;" ID=Textarea1></textarea></td>
   <td class="textleft">
            <select  NAME="lstBUSFCT" MULTIPLE SIZE=5 ID=lstBUSFCT style="width:190px;font-size:9px;height:60px;">
                  <%
                  Do Until oRstBUSFCT.EOF
                        Response.Write("<option value='" & oRstBUSFCT.Fields("mdo_nm") & "'>" & oRstBUSFCT.Fields("mdo_nm") & "</option>")
                        oRstBUSFCT.MoveNext
                  Loop
                  %>
            </select>
      </td>
</tr>
<tr>  
   <td class="textleft">PHI catagory:</td>
   <td class="textleft">Application data source:</td>
   <td class="textleft">Programming tool:</td>
</tr>
<tr>
   <td class="textleft">
            <SELECT  NAME="lstPHI" MULTIPLE SIZE=5 ID="lstPHI" style="width:188px;font-size:9px;height:60px;">
                  <Option>None
                  <Option value="Test">Accident Cd
                  <Option value="Test">Admision Src
                  <Option value="Test">Admission type
                  <Option value="Test">Admitting Privileges cd/desc
                  <Option value="Test">Agent Name / ID
                  <Option value="Test">Area Code / desc
                  <Option value="Test">Bill Type
                  <Option value="Test">Block Cd / desc
                  <Option value="Test">Canncellation Date
                  <Option value="Test">Certification Cd / desc
                  <Option value="Test">City of Residence
                  <Option value="Test">Claim Payment Post Dt
                  <Option value="Test">Claim Status/Type Cd/desc
                  <Option value="Test">Class Cd / desc
                  <Option value="Test">Cliam Payment Amt
                  <Option value="Test">Contract Anniversary Date
                  <Option value="Test">Contract Code
                  <Option value="Test">Contract type cd/desc
                  <Option value="Test">Copayments
                  <Option value="Test">County of Residence
                  <Option value="Test">Coverage type
                  <Option value="Test">CPT Cd / desc
                  <Option value="Test">Credit/Bill Amt
                  <Option value="Test">Deductibles
                  <Option value="Test">Department Name / Number
                  <Option value="Test">Device ID/Seriaql Nbr
                  <Option value="Test">Dignosis Cd / desc
                  <Option value="Test">Discharge Dt
                  <Option value="Test">Discharge Status
                  <Option value="Test">Disenrollment Code
                  <Option value="Test">Dt of Service
                  <Option value="Test">Effective Date
                  <Option value="Test">Employee Id Number
                  <Option value="Test">Employee Payroll Nbr
                  <Option value="Test">Group Address
                  <Option value="Test">Group Name / Number
                  <Option value="Test">Guarantee renew flag
                  <Option value="Test">HCPS Cd / desc / Rate
                  <Option value="Test">Hospital Affiliation cd/desc
                  <Option value="Test">In/Out of Network Copayment
                  <Option value="Test">Ineligible Payment Amt/Reason
                  <Option value="Test">License ID
                  <Option value="Test">Lifetime Max
                  <Option value="Test">Line of Business cd/desc
                  <Option value="Test">Medicare ID
                  <Option value="Test">Member ACH Routing Nbr
                  <Option value="Test">Member Age Bracher
                  <Option value="Test">Member Bank Acct #
                  <Option value="Test">Member Claim #
                  <Option value="Test">Member Class Code/Desc
                  <Option value="Test">Member Contract #
                  <Option value="Test">Member Credit Card #
                  <Option value="Test">Member Email Address
                  <Option value="Test">Member Enrollment Status
                  <Option value="Test">Member Gender
                  <Option value="Test">Member Marital Status
                  <Option value="Test">Member Name
                  <Option value="Test">Member Relationship
                  <Option value="Test">Member SSN
                  <Option value="Test">Member Street Address
                  <Option value="Test">Member/Spouse Date of Death
                  <Option value="Test">Member/Spouse DOB
                  <Option value="Test">Network Cd / desc
                  <Option value="Test">Out-of-Pocket Max
                  <Option value="Test">Outpatient Visit Max
                  <Option value="Test">Paid Amt
                  <Option value="Test">Payment Method
                  <Option value="Test">Photo
                  <Option value="Test">Physician SSN
                  <Option value="Test">Place of Service
                  <Option value="Test">Pre-Certification Info
                  <Option value="Test">Pre-Determinition Info
                  <Option value="Test">Premium Amt
                  <Option value="Test">Procedure Cd / desc
                  <Option value="Test">Product desc / Cd
                  <Option value="Test">Product Name
                  <Option value="Test">Provider Address
                  <Option value="Test">Provider DOB
                  <Option value="Test">Provider Name / ID
                  <Option value="Test">Referral Info
                  <Option value="Test">Referral Req Ind
                  <Option value="Test ">Referring Provider
                  <Option value="Test">Revenue Code / desc
                  <Option value="Test">RVU Ind
                  <Option value="Test">Specialty Cd / desc
                  <Option value="Test">State of Residence
                  <Option value="Test">Sub_group Name / Number
                  <Option value="Test">Subscriber/Spouse Smoke Ind
                  <Option value="Test">Telephone Number
                  <Option value="Test">Terminination Cd / desc
                  <Option value="Test">Total Claim Charges
                  <Option value="Test">Units/Type of Service
                  <Option value="Test">UPIN/TIN/DEA nbr
                  <Option value="Test">Waiver Cd / desc
                  <Option value="Test">Zip Code
            </SELECT>
      </td>
   <td class="textleft">
            
            <select  NAME="lstDATASRC" MULTIPLE SIZE=5 ID=lstDATASRC style="width:189px;font-size:9px;height:60px;">
                  <%
                  Do Until oRstDATASRC.EOF
                        Response.Write("<option value='" & oRstDATASRC.Fields("mdo_nm") & "'>" & oRstDATASRC.Fields("mdo_nm") & "</option>")
                        oRstDATASRC.MoveNext
                  Loop
                  %>
            </select>
            
      </td>
      <td class="textleft">
            <select  NAME="lstPRGTOOL" MULTIPLE SIZE=5 ID=lstPRGTOOL style="width:189px;font-size:9px;height:60px;">
                  <%
                  Do Until oRstPRGTOOL.EOF
                        Response.Write("<option value='" & oRstPRGTOOL.Fields("mdo_nm") & "'>" & oRstPRGTOOL.Fields("mdo_nm") & "</option>")
                        oRstPRGTOOL.MoveNext
                  Loop
                  %>
            </select>
      </td>
</tr>
<tr>  
   <td class="textleft">Application styles:</td>
   <td class="textleft">Security level required:</td>
   <td class="textleft">Application time frames:</td>
</tr>
<tr>
   <td class="textleft">
            <SELECT  NAME="lstRPTSTYL" MULTIPLE SIZE=5 ID=lstRPTSTYL style="width:187px;font-size:9px;height:60px;">
                  <option>None
                  <OPTION value="charts">charts
                  <OPTION value="columnar">columnar
                  <OPTION value="cross-tab">cross-tab
                  <OPTION value="crosstab-multiple breaks">crosstab-multiple breaks
                  <OPTION value="exploded pivot">exploded pivot
                  <OPTION value="free form">free form
                  <OPTION value="graph">graph
                  <OPTION value="multiple sections">multiple sections
                  <OPTION value="other">other
                  <OPTION value="pivot">pivot
                  <OPTION value="tabular">tabular
                  <OPTION value="tabular-multiple breaks">tabular-multiple breaks
                  <OPTION value="tabular-multiple breaks">tabular-multiple breaks
                  <OPTION value="tabular-multiple tabs">tabular-multiple tabs
            </SELECT>                  
      </td>
   <td class="textleft">
            <select name="cboSECUR" ID=cboSECUR style="width: 189px;font-size: 9px;">
                  <option>
                  <option value="ADW_1">ADW_1
                  <option value="ADW_2">ADW_2
                  <option value="ADW_3">ADW_3
                  <option value="ADW_4">ADW_4
            </select><br>

      Disastor recovery:<br>
   
            <select name="cboDISREC" ID=cboDISREC style="width: 189px;font-size: 9px;">
                  <option>
                  <option value="High">High
                  <option value="Medium">Medium
                  <option value="Low">Low
                  <option value="Not Critical">Not Critical
            </select></td>
 
 <td class="textleft">
            <select name="cboTIMEFRAM" ID=cboTIMEFRAM style="width: 189px;font-size: 9px;">
                  <option>
                  <option value="Prompt Driven">Prompt Driven
                  <option value="1 Week">1 Week
                  <option value="2 Weeks">2 Weeks
                  <option value="1 Month">1 Month
                  <option value="3 Months">3 Months
                  <option value="6 Months">6 Months
                  <option value="YTD">YTD
                  <option value="12 Months">12 Months
                  <option value="24 Months">24 Months
                  <option value="36 Months">36 Months
                  <option value="Other">Other
            </select></td>
<tr>
   <td class="HeaderRidgeTop" colspan="3">&nbsp;</td>
</tr>      
</tr>
</table>
</form>

<!-- -----BEGIN -- Tab2 content -- Application Scope -->      
                  
<table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab2Text">  
                              <tr>
                                    <td>
                                    
                                    <form name="frmReportScope" method="post" action="ASPpageGoesHere?func=add" ID=frmScope>
<table>
<tr>
   <td class="HeaderRidgeBottom" colspan="11" style="font-size: 12px;">Application Documentation Screen</td>
</tr>
<tr>  <!-- -------------------------------------------------------------- COVERAGE TYPES --------------------  -->
   <td class="HeaderNoRidge" colspan="11">
      Specify <b>Coverage Type(s)</b>  
   </td>
</tr>
<tr>
   <td class=textright>All</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovTypALL" id="chkCovALL" onclick="AutoCheck(frmReportScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
   <td class=textright> Medical</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovMedical" id="chkCovMedical" value="Uncheck Checkbox" /></td>
   <td class=textright> Drug</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovDrug" id="chkCovDrug"  value="Uncheck Checkbox" /></td>
   <td class=textright>Dental</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovDental" id="chkCovDental"  value="Uncheck Checkbox" /></td>
   <td class=textright>Vision</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovVision" id="chkCovVision"  value="Uncheck Checkbox" />
      MedCarv<input class="clsCov" type="checkbox" name="chkCovMedCarv" id="chkCovMedCarv"  value="Uncheck Checkbox" /></td>
</tr>
<tr>
   <td class=textright>MedHMO</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovMedHMO" id="chkCovMedHMO"  value="Uncheck Checkbox" /></td>
   <td class=textright>Mental</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovMental" id="chkCovMental"  value="Uncheck Checkbox" /></td>
   <td class=textright>Medicare</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovMedicare" id="chkCovMedicare"  value="Uncheck Checkbox" /></td>
   <td class=textright>MedSup</td><td class="textleft">&nbsp;<input class="clsCov" type="checkbox" name="chkCovMedSup" id="chkCovMedSup"  value="Uncheck Checkbox" /></td>
   <td class=textright>Other</td>
   <td class="textleft" colspan="1" >&nbsp;<input class="clsCov" type="text" size="10" name="txtCovOther" id="txtCovOther" />
</tr>            
<tr>  <!-- ----------------------------------------------------------- PROCESSING SYSTEMS ----------------------  -->
   <td class="HeaderRidgeTop" colspan="11">
      Specify <b>Processing System(s)</b>  
   </td>
</tr>
<tr>      
   <td class=textright>All</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysAll" id="chkProSysAll" onclick="AutoCheck(frmReportScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
   <td class=textright>FACETS</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysFACETS" id="chkProSysFACETS"  value="Uncheck Checkbox" /></td>
   <td class=textright>NASCO</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysNASCO" id="chkProSysNASCO"  value="Uncheck Checkbox" /></td>
   <td class=textright>CPRO</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysCPRO" id="chkProSysCPRO" value="Uncheck Checkbox" /></td>
   <td class=textright>PRO</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysPRO" id="chkProSysPRO"  value="Uncheck Checkbox" /></td>
</tr>
<tr>  
   <td class=textright>STEPS</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkGlBus" id="chkGlBus" value="Uncheck Checkbox" /></td>
   <td class=textright>AMMS</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysAMMS" id="chkProSysAMMS"  value="Uncheck Checkbox" /></td>
   <td class=textright>ADD</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysADD" id="chkProSysADD" value="Uncheck Checkbox" /></td>
   <td class=textright>ACSC</td><td class="textleft">&nbsp;<input class="clsPro" type="checkbox" name="chkProSysACSC" id="chkProSysACSC"  value="Uncheck Checkbox" /></td>
   <td class=textright>Other</td>
   <td class="textleft">&nbsp;<input class="clsPro" type="text" size="10" name="chkProSysOther" id="chkProSysOther" />
</tr>      
<tr>   <!-- --------------------------------------------------------- BLOCK OF BUSINESS -----------------  -->
   <td class="HeaderRidgeTop" colspan="11">
      Specify <b>Block of Business(s)</b>
   </td>
</tr>      
<tr>  <!-- ------------------------------------------- GL BUSINESS UNIT -----------------------------  -->
   <td class="HeaderNoRidge" colspan="11"><b>GL Business Unit</b>---------------------------------------------------------------------------
   </td>
</tr>
<tr>      
   <td class=textright>All</td>
   <td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusAll" id="chkGlBusAll" onclick="AutoCheck(frmReportScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
   <td class=textright>AICI</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusAICI" id="chkGlBusAICI" value="Uncheck Checkbox" /></td>
   <td class=textright>CIC</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusCIC" id="chkGlBusCIC" value="Uncheck Checkbox" /></td>
   <td class=textright>SGI</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusSGI" id="chkGlBusSGI" value="Uncheck Checkbox" /></td>
   <td class=textright>SUMI</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusSUMI" id="chkGlBusSUMI" value="Uncheck Checkbox" />
      CO<input class="clsGlBus" type="checkbox" name="chkGlBusCO" id="chkGlBusCO" value="Uncheck Checkbox" /></td>
</tr>
<tr>
   <td class=textright>CN</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusCN" id="chkGlBusCN" value="Uncheck Checkbox" /></td>
   <td class=textright>ME</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusME" id="chkGlBusME" value="Uncheck Checkbox" /></td>
   <td class=textright>NH</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusNH" id="chkGlBusNH" value="Uncheck Checkbox" /></td>
   <td class=textright>LIFE</td><td class="textleft">&nbsp;<input class="clsGlBus" type="checkbox" name="chkGlBusLIFE" id="chkGlBusLIFE" value="Uncheck Checkbox" /></td>
   <td class=textright>Other</td>
   <td class="textleft">&nbsp;<input class="clsGlBus" type="text" size="10" name="txtGlBusOther" id="txtGlBusOther" />
</tr>      
<tr>  <!-- ------------------------------------- GL DIVISION UNIT ---------------------------------  -->
   <td class="HeaderNoRidge" colspan="11"><b>GL Division Unit</b>----------------------------------------------------------------------------
   </td>
</tr>
<tr>      
   <td class=textright>All</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivAll" id="chkGlDivAll" onclick="AutoCheck(frmReportScope, this.className, this.checked)" value="Uncheck Checkbox" /></td>
   <td class=textright>LGGP</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivLGGP" id="chkGlDivLGGP" value="Uncheck Checkbox" /></td>
   <td class=textright>SMGP</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivSMGP" id="chkGlDivSMGP" value="Uncheck Checkbox" /></td>
   <td class=textright>AUTO</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivAUTO" id="chkGlDivAUTO" value="Uncheck Checkbox" /></td>
   <td class=textright>FEP</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivFEP" id="chkGlDivFEP" value="Uncheck Checkbox" /></td>
</tr>      
<tr>
   <td class=textright>CTRL</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivCTRL" id="chkGlDivCTRL" value="Uncheck Checkbox" /></td>
   <td class=textright>PAR</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivPAR" id="chkGlDivPAR" value="Uncheck Checkbox" /></td>
   <td class=textright>MGCP</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivMGCP" id="chkGlDivMGCP" value="Uncheck Checkbox" /></td>        
   <td class=textright>MCI</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivMCI" id="chkGlDivMCI" value="Uncheck Checkbox" /></td>
</tr>
<tr>
   <td class=textright>BLUE</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivBLUE" id="chkGlDivBLUE" value="Uncheck Checkbox" /></td>
   <td class=textright>PERS</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivPERS" id="chkGlDivPERS" value="Uncheck Checkbox" /></td>
   <td class=textright>SENR</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivSENR" id="chkGlDivSENR" value="Uncheck Checkbox" /></td>
   <td class=textright>OTHR</td><td class="textleft">&nbsp;<input class="clsGlDiv" type="checkbox" name="chkGlDivOTHR" id="chkGlDivOTHR" value="Uncheck Checkbox" /></td>      
   <td class=textright>Other</td>
   <td class="textleft">&nbsp;<input type="text" size="10" name="txtGlDivOther" id="txtGlDivOther" />
</tr>      
<tr>  <!-- ------------------------------------- CUSTOMER FINANCIAL ------------------------  -->
   <td class="HeaderNoRidge" colspan="11"><b>Customer Financial</b>------------------------------------------------------------------------
   </td>
</tr>
<tr>      
   <td class=textright>All</td>
   <td class="textleft">&nbsp;<input class="clsFIN" type="checkbox" name="chkCustFinAll" id="chkCustFinAll" onclick="AutoCheck(frmReportScope, this.className, this.checked)" value="Uncheck Checkbox"  /></td>
   <td class=textright>ASO</td><td class="textleft">&nbsp;<input class="clsFIN" type="checkbox" name="chkCustFinASO" id="chkCustFinASO" value="Uncheck Checkbox" /></td>
   <td class=textright>Full Ins</td><td class="textleft">&nbsp;<input class="clsFIN" type="checkbox" name="CustFinFullIns" id="CustFinFullIns" value="Uncheck Checkbox" /></td>
   <td class=textright>Alt Fund</td><td class="textleft">&nbsp;<input class="clsFIN" type="checkbox" name="CustFinAltFund" id="CustFinAltFund" value="Uncheck Checkbox" /></td>
   <td class=textright>Other</td>
   <td class="textleft">&nbsp;<input type="text"  size="10" name="txtCustFinOther" id="txtCustFinOther" />
</tr>      
<tr>
   <td class="HeaderRidgeTop" colspan="11">&nbsp;</td>
</tr>      
</table>  
</td>
</tr>
</table>  
</form>
      
<!-- ------ BEGIN -- Tab3 content for FIELDS -->      

            <table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab3Text">
                              <tr>
                                    <td>      
<!-- ------BEGIN -- XML Data Island for Tab3 FIELDS -->
            <form name="frmFields" ID=Form1>
            <xml id="apps">
                  <applications>
                        <application>
                              <TechName></TechName>
                              <FieldName></FieldName>
                              <Description></Description>
                              <Example></Example>
                              <ObjectType></ObjectType>
                              <FieldFormat></FieldFormat>
                              <Limitation></Limitation>
                              <Disp_Ord></Disp_Ord>
                        </application>
                  </applications>
            </xml>
<!-- ------- END -- XML Data Island for Tab3 FIELDS -->

<!-- --------BEGIN -- Input fields -- Tab3 Application Fields -->      
            <table border="0" cellpadding="0" cellspacing="1">
               <tr><td  class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_FLD" ID=Text1/></td></tr>
               <tr><td>Technical name:</td>
                          <td><select name="txtTechName" class="clsInputTextTechName" type="text"  ID="txtTechName" onchange="updateFields(this.value);"><option value=""></option>
                                       <%
                                          do until oRstADW_COL.eof
                                                 if ltrim(rtrim(oRstADW_COL.Fields("mdo_nm"))) = request.form("txtTechName") then
                                                Response.Write("<option selected value='" & ltrim(rtrim(oRstADW_COL.Fields("mdo_id"))) & "'>" & ltrim(rtrim(oRstADW_COL.Fields("mdo_nm"))) & "</option>")
                                          else
                                                Response.Write("<option value='" & ltrim(rtrim(oRstADW_COL.Fields("mdo_id"))) & "'>" & ltrim(rtrim(oRstADW_COL.Fields("mdo_nm"))) & "</option>")
                                          end if    
                                                oRstADW_COL.MoveNext
                                          Loop
                                    %>
                                    </select>
                                    
               </td><td>&nbsp;Other:&nbsp;<input name="txtTechNameOther" class="clsInputTextOther" type="text"  ID="txtTechNameOther" onKeyUp="javascript:test(this, txtTechName);"  /></td></tr>
               <tr><td>Field name:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtFieldName" ID=Text3/></td></tr>
               <tr><td>Field Description:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtDescription" ID=Text4/></td></tr>
               <tr><td>Example:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtExample" ID=Text5/></td></tr>
               <tr><td>Object Type:</td>
                        <td>
                                 <SELECT class=Style2 name="txtObjectType" ID=Select1>
                                          <OPTION value=Detail selected>Detail</OPTION>
                                          <OPTION value=Dimension>Dimension</OPTION>
                                          <OPTION value=Measure>Measure</OPTION>
                                          <OPTION value=Other>Other</OPTION>
                                     </SELECT>
                              </td>
                              <td>&nbsp; Field format:&nbsp;
                                    <SELECT class=Style1 name="txtFieldFormat" ID=Select2>
                                          <OPTION value=Autonumber selected>Autonumber</OPTION>
                                          <OPTION value=Binary>Binary</OPTION>
                                          <OPTION value=Character>Character</OPTION>
                                          <OPTION value="Currency ">Currency</OPTION>
                                          <OPTION value=Date>Date</OPTION>
                                    </SELECT>
                   </td></tr>
                   <tr><td>Limitation:</td><td colspan="2"><input class="clsInputTextTab3" type="text" name="txtLimitation" ID=Text11/></td></tr>
                   <tr><td>Field Display Order:&nbsp;</td><td><input  class=Style1 style="width:50px;" type="text" name="txtFieldDispOrd" ID=Text12/></td></tr>
                   <tr><td colspan="3" class="HeaderRidgeTop">
                        <input class="clsButton" type="button" name="btnAdd" value="    Add" onClick="javascript:addValuesFLDS();" ID=Button2/>
                        <input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:updateValuesFLDS();" ID=Button1/>
                        <input class="clsButton" type="button" name="btnDelete" value="  Delete" onClick="javascript:deleteNode(oRoot, 'FLDS', document.all.item('txtID_FLD').value);" ID=Button3/>
                        <input class="clsButton" type="button" name="btnClear" value="   Clear" onClick="javascript:clearFormFLDS();" ID=Button4/>
                  </td></tr>            
             </table>
<!-- -----------END -- Input fields -- Tab3 Application Fields -->

<!-- ----------BEGIN -- Listview table, for Tab3 Application Fields -->      
            <div style="overflow:auto; height:100px; width:600px">
                  <table border="0" cellpadding="0" cellspacing="1" datasrc="#apps" style="width:600px">
                        <thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-family: verdana;font-size: 10px;">
                              <tr style="position:relative; top:-1px; background-color:#000000">
                                    <th>TechName</th>
                                    <th>FieldName</th>
                                    <th>Description</th>
                                    <th>Example</th>
                                    <th>ObjectType</th>
                                    <th>FieldFormat</th>
                                    <th>Limitation</th>
                                    <th>Disp_Ord</th>
                              </tr>
                        </thead>
                        <tbody style="background-color:#FFFFFF">
                              <tr onClick="javascript:getValuesFLDS(this);" style="cursor:hand" onMouseOver="javascript:this.style.backgroundColor='#CCCCCC'" onMouseOut="javascript:this.style.backgroundColor='#ffffff'">
                                    <td><span datafld="TechName"></span></td>
                                    <td><span datafld="FieldName"></span></td>
                                    <td><span datafld="Description"></span></td>
                                    <td><span datafld="Example"></span></td>
                                    <td><span datafld="ObjectType"></span></td>
                                    <td><span datafld="FieldFormat"></span></td>
                                    <td><span datafld="Limitation"></span></td>
                                    <td><span datafld="Disp_Ord"></span></td>
                              </tr>
                        </tbody>
                  </table>
            </div>
            <p/>
            </td></tr></table></form>
<iframe name=I1 id=I1 src=blank.htm style="display:none;" ></iframe>
<!-- --------END -- Listview table, for Tab3 Application Fields -->      

<!--  ------ END -- Tab3 content -->
      
                        
<!-- ------- BEGIN -- Tab4 content for PROMPTS  -->
                  <table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab4Text">
                              <tr>
                                    <td>      
                              <form name="frmPrompts" ID=Form4>
<!-- ------- BEGIN -- XML Data Island for PROMPTS -->                  
            <xml id="appsPRMPT">
                  <applications>
                        <application>
                              <TechPrompt></TechPrompt>
                              <PromptVerbiage></PromptVerbiage>
                              <PromptNotes      ></PromptNotes>
                              <PromptFormat></PromptFormat>
                              <PromptType></PromptType>
                              <Disp_Ord></Disp_Ord>
                        </application>                  
                  </applications>
            </xml>
<!-- --------- END -- XML Data Island for PROMPTS -->

<!-- ----------BEGIN -- Input fields -- Tab4 Application Prompts -->      
            <table border="0" >
               <tr><td  class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_PRMPT" ID=Hidden1/></td></tr>
               <tr><td>Tech prompt name:&nbsp;</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtTechPrompt" ID=Text6/></td></tr>
               <tr><td>Prompt verbiage:</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtPromptVerbiage" ID=Text7/></td></tr>
               <tr><td>Prompt notes:</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtPromptNotes" ID=Text8/></td></tr>
               <tr><td>Prompt format:</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtPromptFormat" ID=Text9/></td></tr>
               <tr>
               <td>Prompt Type:</td>
                  <td>
                              <SELECT class=Style1 style="width:145px;" name="txtPromptType" ID=Select3>
                                    <OPTION value=Fill_In selected>Fill In</OPTION>
                                    <OPTION value=Pick_Lists_One_Value>Pick List: One Value</OPTION>
                                    <OPTION value=Pick_List_Multiple_Values>Pick List: Multiple Value</OPTION>
                                    <OPTION value=Other>Other</OPTION>
                              </select>
                            </td>
                  <td>&nbsp;Prompt Display Order:&nbsp;<input  class=Style1 style="width:50px;" type="text" name="txtPromptDispOrd" ID=Text10/></td>
                  </tr>        
          <tr><td colspan="3" class="HeaderRidgeTop">
                        <input class="clsButton" type="button" name="btnAdd" value="    Add" onClick="javascript:addValuesPRMPT();" ID=Button5/>
                        <input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:updateValuesPRMPT();" ID=Button6/>
                        <input class="clsButton" type="button" name="btnDelete" value="  Delete" onClick="javascript:deleteNode(oRoot2, 'PRMPT', document.all.item('txtID_PRMPT').value);" ID=Button7/>                                                                                                                                                                                                                                      
                        <input class="clsButton" type="button" name="btnClear" value="   Clear" onClick="javascript:clearFormPRMPT();" ID=Button8/>
                  </td></tr>            
             </table>
<!-- ---------END -- Input fields -- Tab4 Application Prompts -->      

<!-- ---------BEGIN -- Listview table, for Tab4 Application Prompts -->      
            <div style="overflow:auto; height:100px; width:600px">
                  <table border="0" cellpadding="0" cellspacing="1" datasrc="#appsPRMPT" style="width:600px">
                        <thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-family: verdana;font-size: 10px;">
                              <tr style="position:relative; top:-1px; background-color:#000000">
                                    <th>TechPrompt</th>
                                    <th>PromptVerbiage</th>
                                    <th>PromptNotes</th>
                                    <th>PromptFormat</th>
                                    <th>PromptType</th>
                                    <th>Disp_Ord</th>
                              </tr>
                        </thead>
                        <tbody style="background-color:#FFFFFF;">
                              <tr onClick="javascript:getValuesPRMPT(this);" style="cursor:hand; " onMouseOver="javascript:this.style.backgroundColor='#CCCCCC'" onMouseOut="javascript:this.style.backgroundColor='#ffffff'">
                                    <td><span datafld="TechPrompt"></span></td>
                                    <td><span datafld="PromptVerbiage"></span></td>
                                    <td><span datafld="PromptNotes"></span></td>
                                    <td><span datafld="PromptFormat"></span></td>
                                    <td><span datafld="PromptType"></span></td>
                                    <td><span datafld="Disp_Ord"></span></td>
                              </tr>
                        </tbody>
                  </table>
            </div>
            <p/>
            </td></tr></table>
      </form>
<!--  ----------END -- Listview table, for Tab4 Application Prompts -->            
      
<!-- ---------- END -- Tab4 content -->
      
<!-- ------- BEGIN -- Tab5 content for Recipients  -->
                  <table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab5Text">
                              <tr>
                                    <td>      
                              <form name="frmRecipient" ID=frmRecipient      
<!-- ------- BEGIN -- XML Data Island for Recipents -->                  
            <xml id="appsRECIP">
                  <applications>
                        <application>
                              <Recipient></Recipient>
                              <Intern_Extern_Ind></Intern_Extern_Ind>
                              <Frequency></Frequency>
                        </application>
                        
                  </applications>
            </xml>
<!-- --------- END -- XML Data Island for Recipients -->

<!-- ----------BEGIN -- Input fields -- Tab5 Application Recipients -->      
            <table border="0" >
               <tr><td  class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_RECIP" ID=txtID_RECIP/></td></tr>
               <tr><td>Application recipient:&nbsp;</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtRecip" ID=Text13/></td></tr>
              <tr><td>Dept., Intern/Extern Indicator:&nbsp;</td>
                        <td>
                                 <SELECT class=Style1 name="txtIntExtInd" ID=txtIntExtInd>
                                          <OPTION value=Internal selected>Internal</OPTION>
                                          <OPTION value=External>External</OPTION>
                                          <OPTION value=Departmental>Departmental</OPTION>
                                          <OPTION value=Other>Other</OPTION>
                                     </SELECT>
                              </td>
                              <td>&nbsp; Frequency:&nbsp;
                                    <SELECT class=Style1 name="txtFreq" ID=txtFreq>
                                          <OPTION value=Once selected>Once</OPTION>
                                          <OPTION value=On_Demand>On Demand</OPTION>
                                          <OPTION value=Weekly>Weekly</OPTION>
                                          <OPTION value="Monthly ">Monthly</OPTION>
                                          <OPTION value=Quarterly>Quarterly</OPTION>
                                          <OPTION value="Semi-annual ">Semi-annual</OPTION>
                                          <OPTION value=Annual>Annual</OPTION>
                                          <OPTION value=Other>Other</OPTION>
                                    </SELECT>
                   </td></tr>
          <tr><td colspan="3" class="HeaderRidgeTop">
                        <input class="clsButton" type="button" name="btnAdd" value="    Add" onClick="javascript:addValuesRECIP();" ID=Button9/>
                        <input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:updateValuesRECIP();" ID=Button10/>
                        <input class="clsButton" type="button" name="btnDelete" value="  Delete" onClick="javascript:deleteNode(oRoot3, 'RECIP', document.all.item('txtID_RECIP').value);" ID=Button10/>                                                                                                                                                                                                                                      
                        <input class="clsButton" type="button" name="btnClear" value="   Clear" onClick="javascript:clearFormRECIP();" ID=Button10/>
                  </td></tr>            
             </table>
<!-- ---------END -- Input fields -- Tab5 Application Recipients -->      

<!-- ---------BEGIN -- Listview table, for Tab5 Application Recipients -->      
            <div style="overflow:auto; height:100px; width:600px">
                  <table border="0" cellpadding="0" cellspacing="1" datasrc="#appsRECIP" style="width:600px">
                        <thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-family: verdana;font-size: 10px;">
                              <tr style="position:relative; top:-1px; background-color:#000000">
                                    <th>Recipient</th>
                                    <th>Intern_Extern_Ind</th>
                                    <th>Frequency</th>
                          </tr>
                        </thead>
                        <tbody style="background-color:#FFFFFF;">
                              <tr onClick="javascript:getValuesRECIP(this);" style="cursor:hand; " onMouseOver="javascript:this.style.backgroundColor='#CCCCCC'" onMouseOut="javascript:this.style.backgroundColor='#ffffff'">
                                    <td><span datafld="Recipient"></span></td>
                                    <td><span datafld="Intern_Extern_Ind"></span></td>
                                    <td><span datafld="Frequency"></span></td>
                              </tr>
                        </tbody>
                  </table>
            </div>
            <p/>
            </td></tr></table>
      </form>
<!--  ----------END -- Listview table, for Tab5 Application Recipients -->            
      
<!-- ---------- END -- Tab5 content -->
                  
<!-- ---------- BEGIN -- Tab6 content for Additional Info  -->
                                    <table border="0" cellpadding="0" cellspacing="0" class="clsText" id="Tab6Text">
                              <tr>
                                    <td>      
                              <form name="frmAddInfo" ID=frmAddInfot>
<!-- ------- BEGIN -- XML Data Island for Tab6 Additional Info -->                  
            <xml id="appsAddInfo">
                  <applications>
                        <application>
                              <AddInfo></AddInfo>
                              <Add_Info_Applies_To></Add_Info_Applies_To>
                              <Disp_Ord></Disp_Ord>
                        </application>
                        
                  </applications>
            </xml>
<!-- --------- END -- XML Data Island for Tab6 Additional Info -->

<!-- ----------BEGIN -- Input fields -- Tab6 Additional Info -->      
            <table border="0" >
               <tr><td  class="HeaderRidgeBottom" colspan="3" style="font-size: 12px;">Application Documentation Screen</td><td><input type="hidden" name="txtID_AddInfo" ID=Hidden2/></td></tr>
               <tr><td>Additional information:&nbsp;</td><td colspan="2"><input class="clsInputTextTab4" type="text" name="txtAddInfo" ID=Text14/></td></tr>
              <tr><td>Add info applies to:&nbsp;</td>
                        <td>
                                 <SELECT class=Style1 name="txtAddInfoApplies"  ID=Select4 >
                                                
                                     </SELECT>
                              </td>
                              <td>&nbsp; Field display Order:&nbsp; <input  class=Style1 style="width:50px;" type="text" name="txtFLDDispOrd" ID=Text15/></td>
            </tr>
          <tr><td colspan="3" class="HeaderRidgeTop">
                        <input class="clsButton" type="button" name="btnAdd" value="    Add" onClick="javascript:addValuesAddInfo();" ID=Button11/>
                        <input class="clsButton" type="button" name="btnUpdate" value=" Update" onClick="javascript:updateValuesAddInfo();" ID=Button11/>
                        <input class="clsButton" type="button" name="btnDelete" value="  Delete" onClick="javascript:deleteNode(oRoot4, 'AddInfo', document.all.item('txtID_AddInfo').value);" ID=Button12/>                                                                                                                                                                                                                                      
                        <input class="clsButton" type="button" name="btnClear" value="   Clear" onClick="javascript:clearFormAddInfo();" ID=Button13/>
                  </td></tr>            
             </table>
<!-- ---------END -- Input fields -- for Tab6 Additional Info -->      

<!-- ---------BEGIN -- Listview table, for Tab6 Additional Information -->      
            <div style="overflow:auto; height:100px; width:600px">
                  <table border="0" cellpadding="0" cellspacing="1" datasrc="#appsAddInfo" style="width:600px">
                        <thead style="color:#ffffff; padding:3px 0px 3px 0px; text-align:left;font-family: verdana;font-size: 10px;">
                              <tr style="position:relative; top:-1px; background-color:#000000">
                                    <th>AddInfo</th>
                                    <th>Add_Info_Applies_To</th>
                                    <th>Disp_Ord</th>
                          </tr>
                        </thead>
                        <tbody style="background-color:#FFFFFF;">
                              <tr onClick="javascript:getValuesAddInfo(this);" style="cursor:hand; " onMouseOver="javascript:this.style.backgroundColor='#CCCCCC'" onMouseOut="javascript:this.style.backgroundColor='#ffffff'">
                                    <td><span datafld="AddInfo"></span></td>
                                    <td><span datafld="Add_Info_Applies_To"></span></td>
                                    <td><span datafld="Disp_Ord"></span></td>
                              </tr>
                        </tbody>
                  </table>
            </div>
            <p/>
            </td></tr></table>
      </form>
                  
<!-- --------- END -- Tab6 content for Additional Info  -->
                              
                              

</body>
<script language="javascript">

/* ***Start script for tabbed control **** */

      function setDefaults() {
            var cls = ['.clsActiveTab','.clsTab','.clsTabSpacer'];
            
            for(i=0; i<document.styleSheets['pageStyle'].rules.length; i++) {
                  for(x=0; x<cls.length; x++) {
                        if(document.styleSheets['pageStyle'].rules[i].selectorText == cls[x]) {
                              document.styleSheets['pageStyle'].rules[i].style.borderColor = 'black';
                        }
                  }
            }
            
            //document.styleSheets['pageStyle'].rules[0].style.borderColor = 'red';
            //document.styleSheets['pageStyle'].rules[1].style.borderColor = 'red';
            //document.styleSheets['pageStyle'].rules[2].style.borderColor = 'red';
            //for(i in document.styleSheets['pageStyle'].rules[2])
               //      alert(i + ":   " + document.styleSheets['pageStyle'].rules[2][i]);

      }
      
      function changeTabs(activeTab, activeText) {
            var parent = activeTab.parentNode;
            for(i=1; i<parent.childNodes.length; i++) {
                  if(parent.childNodes[i].className!='clsTabSpacer') {
                        parent.childNodes[i].className = 'clsTab';
                  }
            }
            activeTab.className = 'clsActiveTab';  // This causes the active tab to be displayed by changing the class.  Non active tabs have a class of  ".clsText {display:none}."
            
            Tab1Text.className = 'clsText';
            Tab2Text.className = 'clsText';
            Tab3Text.className = 'clsText';
            Tab4Text.className = 'clsText';
            Tab5Text.className = 'clsText';
            Tab6Text.className = 'clsText';
            activeText.className = '';
            popAddInfoAppliesTo();
      }
      /* *** End script for tabbed control **** */
</script>

</html>
<%
oRst.Close
Set oRst = Nothing
oRstAppOwnr.Close
Set oRstAppOwnr = Nothing
oRstAppContact.Close
Set oRstAppContact = Nothing
oRstSBJA.Close
Set oRstSBJA = Nothing
oRstDATASRC.Close
Set oRstDATASRC = Nothing
oRstBUSFCT.Close
Set oRstBUSFCT = Nothing
oRstPRGTOOL.Close
Set oRstPRGTOOL = Nothing

oRstADW_COL.Close
Set oRstADW_COL = Nothing

oCon.Close
Set oCon = Nothing
%>




 
     

0
JA67
Asked:
JA67
  • 11
  • 9
1 Solution
 
JA67Author Commented:
FYI:  

<!-- --------BEGIN -- Input fields -- Tab3 Application Fields -->  
About nine or 10 lines below the above comment line, (in the code I pasted above) you will find the below code...  The column reference, "mdo_id" should be "mdo_nm".  I changed this to "mdo_id" while playing around with implementing the [OPTION 3] solution. If you don't change it back to "mdo_nm" in these lines, then when you enter a field on tab3, it puts the ID number in the first column of the listview table instead of the mdo_nm.

Thanks,
JA67

Response.Write("<option selected value='" & ltrim(rtrim(oRstADW_COL.Fields("mdo_id"))) & "'>" & ltrim(rtrim(oRstADW_COL.Fields("mdo_nm"))) & "</option>")
                 else
                                        Response.Write("<option value='" & ltrim(rtrim(oRstADW_COL.Fields("mdo_id"))) & "'>" & ltrim(rtrim(oRstADW_COL.Fields("mdo_nm"))) & "</option>")
0
 
SnowFlakeCommented:
o.k., this is A lot of code.

I will try and guide you throught a series of steps which will end up with you having
your desired result based on nschafer's option 3.

First we will start by creating a page that can ask the server for the additional Information.
lets create a page and name get GetInfo.ASP.

this page should have a for now a text box for entering the selected mdo_nm
and it will write the other parameter values.

so here goes GetInfo.ASP, you will probably have to change it to make it work better (or at all :) )

<%@ language="vbscript" %>
<%

'  ******************** Make connection to  database. *******************

     Set oCon = Server.CreateObject("ADODB.Connection")

'Add oCon information to connect to you database with appropriate permissions.

     Set oRst = Server.CreateObject("ADODB.recordset")
     oRst.Open "select * from MDI Where MDO_ID=" & Request("RFRNC_MDO_ID") , oCon
   
    dim txtFieldName
    dim txtFieldDescription
    dim cmbObjectType
    dim txtExample
    dim cmbFieldFormat

    oRst.MoveFirst
    Do Until rst.EOF
        Select Case rst.Fields("mdi_type_cd").Value
            Case "BUSN"                                                          
                txtFieldName = rst.Fields("mdi_txt").Value    ' On my web page this line corrolates with "Field Name" on tab3.
            Case "DESC"                                                          
                txtFieldDescription = rst.Fields("mdi_txt").Value  ' On my web page this line corrolates with "Field Description" on tab3.
            Case "ELMTYP"                                                      
                cmbObjectType = rst.Fields("mdi_txt").Value   ' On my web page this line corrolates with "Object Type" on tab3.
            Case "EXMP"                                                          
                txtExample = rst.Fields("mdi_txt").Value   ' On my web page this line corrolates with "Example" on tab3.
            Case "RFMT"                                                          
                cmbFieldFormat = rst.Fields("mdi_txt").Value   ' On my web page this line corrolates with "Field Format" on tab3.
           
            End Select
      rst.MoveNext
Loop

%>
<HTML>
<BODY>
<FORM id="frm">
<INPUT type="text" id="RFRNC_MDO_ID" name="RFRNC_MDO_ID">
<INPUT type="submit" name="go" id="go" value="Submit">
</FORM>

The answer fields for RFRNC_MDO_ID="<%=RFRNC_MDO_ID%>" are <br>
txtFieldName = "<%=txtFieldName%>"<br>
txtFieldDescription "<%=txtFieldName%>"<br>
cmbObjectType "<%=txtFieldName%>"<br>
txtExample "<%=txtFieldName%>"<br>
cmbFieldFormat "<%=txtFieldName%>"<br>

</BODY>
</HTML>    

now please make sure that this works properly so we can go to the next step,
you should make sure that when you open this page in a browser,
enter a valid RFRNC_MDO_ID in the text box and press submit
it returns with the appropriate field values.


0
 
SnowFlakeCommented:
I just wanted to appologize for the delay,

our next steps after the page I described above will work will be
1)  to embed it inside an Ifrma on your main page
2) create a function inside my page that can be called by the parent when the combo box changes
3) to create a function in the main page that my page can call back when it returns with the results
4) tie up all the loose ends.

I hope this won't take too long (we are on different time zones).

SnowFlake
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
JA67Author Commented:

SnowFlake, you genius! I am amazed and thrilled with the results!

I would have got back with you earlier but I had an unexpected interruption today and did not get back to work until later this afternoon. Sorry about that. Thank you so much for helping me. I understand that you can't just drop everything to help me though. I am extremely appreciative for your help. My whole family knows who SnowFlake is now!

I have pasted your code below, with the modifications needed to obtain some of the desired results. We seem to be extremely close to getting this step working as expected. I am VERY hopeful and excited.

HERE IS MY QUESTION
I don't know how to get the code you just gave me, to work in conjunction with the input box and the Submit button. If you look in the code below, the only way I could get it to work was to explicitly code an mdo_id into the select statement. If I use the commented out select statement, I get the following error when the page loads. I never even see the Input box and submit button, I just get the below error.

***************
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '='.
/actdsdev/FoxwoJm/GetInfo.asp, line 8
*********************************

Now, when I use the other select statement, I see the below output, which is exactly what I want to see!!! This is great stuff SnowFlake!!!!!!! FYI: The empty "txtExample" and "cmbObjectType" are not a problem. This particular mdo_id just doesn't have any data for those items.


**********************
The answer fields for RFRNC_MDO_ID="" are
txtFieldName = "Accommodation Indicator"
txtFieldDescription "Indicates that the Health Care Service is a room charge for an inpatient stay."
cmbObjectType ""
txtExample ""
cmbFieldFormat "CHAR(1)"
*********************************

So, what do you think I need to do SnowFlake, in order to get this code working as you expected, with the submit button? Hopefully it's just something simple, and we will then be able to move to the next step.

I will check my e-mail regularly all weekend and try to get back with you promptly with the results of whatever you suggest for me to do. Once again, thank you, thank you, thank you!!!!  I am learning a lot from you!

JA67

Your code below, with my minor modifications/edits
*******************************
<%@ language="vbscript" %>

<%
     Set oCon = Server.CreateObject("ADODB.Connection")
    oCon.Open("UID=xxxx;PWD=xxxx;DRIVER={SQL Server};SERVER=xxxx.xxxxx.xxxx.com;Database=ToolsPortal;")

     Set oRst = Server.CreateObject("ADODB.recordset")
     'oRst.Open "select * from MDI Where MDO_ID=" & Request("RFRNC_MDO_ID") , oCon
     oRst.Open "select * from MDI Where MDO_ID=100002" , oCon
 %>

<%
    dim txtFieldName
    dim txtFieldDescription
    dim cmbObjectType
    dim txtExample
    dim cmbFieldFormat

    oRst.MoveFirst
    Do Until oRst.EOF
        Select Case oRst.Fields("mdi_type_cd").Value
            Case "BUSN"                                                          
                txtFieldName = oRst.Fields("mdi_txt").Value    
            Case "DESC"                                                          
                txtFieldDescription = oRst.Fields("mdi_txt").Value  
            Case "ELMTYP"                                                      
                cmbObjectType = oRst.Fields("mdi_txt").Value  
            Case "EXMP"                                                          
                txtExample = oRst.Fields("mdi_txt").Value  
            Case "RFMT"                                                          
                cmbFieldFormat = oRst.Fields("mdi_txt").Value  
           
            End Select
      oRst.MoveNext
Loop
%>

<HTML>
<head>
</head>
<BODY>
<FORM id="frm">
<INPUT type="text" id="RFRNC_MDO_ID" name="RFRNC_MDO_ID">
<INPUT type="submit" name="go" id="go" value="Submit">
</FORM>

The answer fields for RFRNC_MDO_ID="<%=RFRNC_MDO_ID%>" are <br>
txtFieldName = "<%=txtFieldName%>"<br>
txtFieldDescription "<%=txtFieldDescription%>"<br>
cmbObjectType "<%=cmbObjectType%>"<br>
txtExample "<%=txtExample%>"<br>
cmbFieldFormat "<%=cmbFieldFormat%>"<br>
</BODY>

</HTML>
<%
oRst.Close
Set oRst = Nothing
%>
*********************************
0
 
SnowFlakeCommented:
o.k.,
this is my fault,
when you just open the page without any parameters,
Request("RFRNC_MDO_ID")  is evaluated to an empty string which create the SQL

select * from MDI Where MDO_ID=

which generates the above mentioned error.

what we need to do is to prevent it from happening.
we will do this by wrapping some of it within an if statement.



<%@ language="vbscript" %>

<%
     dim RFRNC_MDO_ID
     RFRNC_MDO_ID ="" & Request("RFRNC_MDO_ID")
     
    if len(RFRNC_MDO_ID) > 0 then
   
        Set oCon = Server.CreateObject("ADODB.Connection")
       oCon.Open("UID=xxxx;PWD=xxxx;DRIVER={SQL Server};SERVER=xxxx.xxxxx.xxxx.com;Database=ToolsPortal;")

        Set oRst = Server.CreateObject("ADODB.recordset")
        oRst.Open "select * from MDI Where MDO_ID=" & RFRNC_MDO_ID, oCon
   end if
 %>

<%
    dim txtFieldName
    dim txtFieldDescription
    dim cmbObjectType
    dim txtExample
    dim cmbFieldFormat

   if len(RFRNC_MDO_ID) > 0 then
       oRst.MoveFirst
       Do Until oRst.EOF
           Select Case oRst.Fields("mdi_type_cd").Value
               Case "BUSN"                                                          
                   txtFieldName = oRst.Fields("mdi_txt").Value    
               Case "DESC"                                                          
                   txtFieldDescription = oRst.Fields("mdi_txt").Value  
               Case "ELMTYP"                                                      
                   cmbObjectType = oRst.Fields("mdi_txt").Value  
               Case "EXMP"                                                          
                   txtExample = oRst.Fields("mdi_txt").Value  
               Case "RFMT"                                                          
                   cmbFieldFormat = oRst.Fields("mdi_txt").Value  
               
               End Select
         oRst.MoveNext
      Loop
   end if

%>

<HTML>
<head>
</head>
<BODY>
<FORM id="frm">
<INPUT type="text" id="RFRNC_MDO_ID" name="RFRNC_MDO_ID">
<INPUT type="submit" name="go" id="go" value="Submit">
</FORM>

The answer fields for RFRNC_MDO_ID="<%=RFRNC_MDO_ID%>" are <br>
txtFieldName = "<%=txtFieldName%>"<br>
txtFieldDescription "<%=txtFieldDescription%>"<br>
cmbObjectType "<%=cmbObjectType%>"<br>
txtExample "<%=txtExample%>"<br>
cmbFieldFormat "<%=cmbFieldFormat%>"<br>
</BODY>

</HTML>
<%
oRst.Close
Set oRst = Nothing
%>


try this now,and let me know what happens,
it should open up saying  that all variables are empty
and if you type in the textbox the value 100002 (or any other valid RFRNC_MDO_ID)
and press submit it should return to you with the appropriate values for the variables.

if it fails to do so then you can change the FORM tag
to

<FORM id="frm" action="{path}/GetInfo.ASP" method="POST">

SnowFlake

0
 
JA67Author Commented:

Wow! You're too good to me. I am embarrassed.  It works! Thank you!!!

What's next?

JA67
0
 
SnowFlakeCommented:

> What's next?

as I wrote before :

our next steps after the page I described above will work will be
1)  to embed it inside an Iframe on your main page
2) create a function inside my page that can be called by the parent when the combo box changes
3) to create a function in the main page that my page can call back when it returns with the results
4) tie up all the loose ends.

1) can be done by adding an IFRAME Tag to your mane page,
Set its SRC to the newly created page.
   <IFRAME SRC="{path}/GetInfo.ASP" />

for 3) you will create a function in the main page (you can change its name to reflect the actual nature of those fields)

function setFiveFields(txtFieldName,txtFieldDescription,cmbObjectType,txtExample,cmbFieldFormat){
    // Here you have to set up the values of the approriate controls to show the texts
    // passed to this function
    // this will be something along the lines of

   document.getElementById('txtfieldname').value=txtFieldName;
   // and so on
   
}

you should test this function by temporarly changing
yourbody tag
 <body onLoad="javascript:setDefaults();javascript:initVariables();" style="font-family:Verdana; font-size:8px">
to
 <body onLoad="javascript:setDefaults();javascript:initVariables();setFiveFields("A","B","C","D","E");" style="font-family:Verdana; font-size:8px">

both above assume those are all 5 textboxs,
if it is not so then you need to adjust the code.

let me know when we are o.k. to continue.
0
 
JA67Author Commented:

You're an amazing fellow SnowFlake... Everything is working so far.

FYI: The only place I found to insert the IFRAME (where it does not cause my application to lock up) is right before the </html> tag. I hope it will be able to do it's job in that location? Also,  I have the IFRAME set to, style="display:none;". I am assuming that is OK. I unhid it once to see if it works and it does; therefore I am guessing it will be OK where it is.

I believe we are ready to continue with the next step, because when I load the page, miraculously, the expected input boxes and list boxes (I have two list boxes, even though I mistakenly gave them txt prefixes on their names) are automatically populated with: ("A","B","C","D","E").

Yeee Haaaa!!!! This is awesome!!! I appreciate the approach you are taking with me. Giving me small assignemts that build up to the final working application. You're a great teacher.

It's 12:07 a.m.  I've got to get to bed.

Thank you!
JA67

0
 
SnowFlakeCommented:
great,
so we have Items 1 and 3 o.k.

time to move to item 2 and then wrap things up.

lets add the following function to the GetInfo.asp
it will come inside new script tage between in the head section.

<head>
<script language="javascript">
function RFRNC_MDO_ID_Changed_TO( NEW_RFRNC_MDO_ID) {
    document.forms[0].elements["RFRNC_MDO_ID"]=NEW_RFRNC_MDO_ID;
    document.forms[0].submit();
}
</script>
</head>

now that we have that we need to call it from the main page when RFRNC_MDO_ID changes.
assuming I am on the right select tag it is cueently set to
<select name="txtTechName" class="clsInputTextTechName" type="text"  ID="txtTechName" onchange="updateFields(this.value);">

and the function                

function updateFields(key) {
             window.frames[0].location="updateFields.asp?key=" + key
}

can be used to call our function within the IFRAME

make sure that your IFRAME tag has an ID (say - <IFRAM ID="IFR_GetInfo" src="getInfo.asp"> )

now we will change the function above to be

function updateFields(new_RFRNC_MDO_ID) {
             document.getElementById('IFR_GetInfo').contentWindow.RFRNC_MDO_ID_Changed_TO(new_RFRNC_MDO_ID);
}

now I must make a comparison with another alternative:

you could have it just say:
function updateFields(new_RFRNC_MDO_ID) {
             document.getElementById('IFR_GetInfo')].src="GetInfo.asp?txtfieldname=" + new_RFRNC_MDO_ID
}
 
And it should work as well assuming you did not change the name of the text field in our getInfo document.

The first option has the benefit of haveing another point in code where you can dtandartize things,
e.g. if your ID had some checksum then you could check it while still on the client side.

the second is in some ways more robust in the sense that if a request to getInfo Fails for some reason
the second option will recover from it on the next change in the select box while the first one will be stuck (not having
the function inside the IFrame available.).

You can choose whichever you like, I though I'd show you both ways. (In your case you might be better of with the second way).

So if everything works well so far then we only need to have the resulting page from GetInfo call our setFiveFields function in its parent which can be acheived easy:

add the following just before the closing </BODY> tag.

<% if len(RFRNC_MDO_ID) > 0 then %>
<script language="javascript">
parent.setFiveFields("<%=txtFieldName%>","<%=txtFieldDescription%>","<%=cmbObjectType%>",
"<%=txtExample%>","<%=cmbFieldFormat%>");
</script>
<% end if%>


Basicly you should now have it all up and running and we only need to tie up some loose end including:

1. removing redundent texts from GetInfo.asp
2. remove redundent call to setFiveFields("A","B","C","D","E");
3. Hide the IFrame (display:none) as you corectly stated above.

And I Think thats it.


0
 
JA67Author Commented:
OK, I've entered in everything but I don't quite have it working yet.  

 I've checked with an alert, and the variable value in new_RFRNC_MDO_ID in "updateFields(new_RFRNC_MDO_ID)" is a valid mdo_id, as a result of having selected an item from the tech fields drop down. That much is good I'm sure... But nothing happens. The fields do not get populated.

I'm going to have to work on this quite a bit more. I'll likely not be done trying to implement this until you're asleep. It's 10:11 am here, but I'll not be able to get back on this till later on this afternoon, when you are probably going to bed. But that's OK. I am thrilled with the rate of progress so far. I'm probably just doing something stupid. I sure appreciate your help. I can't wate to see it work!!!

I'll post here again later this evening with an update of my progress and any questions that I have. I'm sure we're very close to getting this working now. Thank you!

JA67


0
 
JA67Author Commented:

Here's a question SnowFlake:

Would you explain to me what what the "[0]" is referring to in the below functiom? I don't think these lines are processing or evaluating. If I put an "alert(NEW_RFRNC_MDO_ID0)" right above the first "document.forms" line, I get an mdo_id in the alert box, as I would expect. But if I put the same alert between the two  document.form lines, I do not get the alert.

Thanks,
JA67

<script language="javascript">
function RFRNC_MDO_ID_Changed_TO( NEW_RFRNC_MDO_ID) {
    document.forms[0].elements["RFRNC_MDO_ID"]=NEW_RFRNC_MDO_ID;
    document.forms[0].submit();
}
0
 
JA67Author Commented:

Another question:

Please look at the comment notes in the code below for my question. This is a section of code you gave me in your last posting.

<% if len(RFRNC_MDO_ID) > 0 then %>   // These tags ("<%"  "%>") are highlighted yellow in my text editor, as they should be.
<script language="javascript">
//These tags are not yellow, as if they are not being recognized as ASP or vbscript tags. Do you know why?
parent.setFiveFields("<%=txtFieldName%>","<%=txtFieldDescription%>","<%=cmbObjectType%>", "<%=txtExample%>","< =cmbFieldFormat%>");
</script>
<% end if%> // These tags are yellow in my text editor, as they should be.

Thanks,
JA67
0
 
SnowFlakeCommented:
Answers:
1. forms[0] means the first form in the document.
    since GetInfo only contains a single form that would refer to that form
    what we ARE missing there is a .value
    and it hsould have been
    document.forms[0].elements["RFRNC_MDO_ID"].value=NEW_RFRNC_MDO_ID;

2. The color syntax of VS is less then perfect. thats life :)
    maybe it fails because we have it inside double quotes, by anyway it does not matter.

which reminds me another issue we will have to handle - properly replacing double quotes within
those fields or the call to parent.setFiveFields might break.

SnowFlake.
0
 
JA67Author Commented:

1.  Excellent!  Your answer to number 1., helped me make great  progress.  I added the ".value" and now the IFRAME is pulling into itself the  GetInfo.asp file and it (the IFRAME) is being automatically populated with the correct additional information based on the selected item from the Technical Field Name drop down on the main page, tab3.  That's great progress toward the final goal! (I unhid the IFRAME temporarily, and that's how I can see that it's working).

2.  I messed around for hours with number two from your answer above, and I still cannot figure out how to arrange that code to get it working. Therefore, the setFiveFields function is still not being properly evaluated. Any ideas about this?

Thank you!
JA67


0
 
SnowFlakeCommented:
o.k.,
I assume that by no. 2 you refer to

add the following just before the closing </BODY> tag.

<% if len(RFRNC_MDO_ID) > 0 then %>
<script language="javascript">
parent.setFiveFields("<%=txtFieldName%>","<%=txtFieldDescription%>","<%=cmbObjectType%>",
"<%=txtExample%>","<%=cmbFieldFormat%>");
</script>
<% end if%>


what do you have in getInfo.asp now ?

also select an item from the Technical Field Name drop down and then right click on the area of the IFRAME,
select view source and paste that in here as well so we can see what is being returned there.

SnowFlake
0
 
JA67Author Commented:
Hello SnowFlake,

Yes, I am referring to number 2., just before the closing </BODY> tag.

You'll see in the code below that I am using, e.g. "FieldName1", "Description1", etc., for variables, instead of "txtFieldName", etc. I did this some time ago, while trying to implement these solutions, when I started to become confused by my variables and input boxes having the exact same names.

This is what I am using for GetInfo.asp  Right now my getInfo.asp files is named, "GetInfo3.asp".
**********************************
<%@ language="vbscript" %>

<%
   
     dim RFRNC_MDO_ID
     RFRNC_MDO_ID ="" & Request("RFRNC_MDO_ID")
     
     if len(RFRNC_MDO_ID) > 0 then
   
     Set oCon = Server.CreateObject("ADODB.Connection")
    oCon.Open("UID=XXXXXX;PWD=XXXXXX;DRIVER={SQL Server};SERVER=XXXXXX;Database=ToolsPortal;")

     Set oRst = Server.CreateObject("ADODB.recordset")
     oRst.Open "select * from MDI Where MDO_ID=" & Request("RFRNC_MDO_ID") , oCon
     'oRst.Open "select * from MDI Where MDO_ID=100002" , oCon
   end if
 %>

<%
    dim FieldName1
    dim FieldDescription1
    dim ObjectType1
    dim Example1
    dim FieldFormat1

   
     if len(RFRNC_MDO_ID) > 0 then
    oRst.MoveFirst
    Do Until oRst.EOF
        Select Case oRst.Fields("mdi_type_cd").Value
            Case "BUSN"                                                          
                FieldName1= oRst.Fields("mdi_txt").Value    
            Case "DESC"                                                          
                Description1 = oRst.Fields("mdi_txt").Value  
            Case "ELMTYP"                                                      
                ObjectType1 = oRst.Fields("mdi_txt").Value  
            Case "EXMP"                                                          
                Example1      = oRst.Fields("mdi_txt").Value  
            Case "RFMT"                                                          
                FieldFormat1 = oRst.Fields("mdi_txt").Value  
           
            End Select
      oRst.MoveNext
Loop
end if
%>
<HTML>
<head>
<script language="javascript">

function RFRNC_MDO_ID_Changed_TO( NEW_RFRNC_MDO_ID) {
    document.forms[0].elements["RFRNC_MDO_ID"].value=NEW_RFRNC_MDO_ID;
    document.forms[0].submit();
}

</script>
</head>
<BODY>
<FORM id="frm">
<INPUT type="text" id="RFRNC_MDO_ID" name="RFRNC_MDO_ID">
<INPUT type="submit" name="go" id="go" value="Submit">
</FORM>

The answer fields for RFRNC_MDO_ID="<%=RFRNC_MDO_ID%>" are <br>
txtFieldName  "<%=FieldName1%>"<br>
txtFieldDescription "<%=Description1%>"<br>
txtObjectType "<%=ObjectType1%>"<br>
txtExample "<%=Example1%>"<br>
txtFieldFormat "<%=FieldFormat1%>"<br>
</BODY>

</HTML>
********************************************************************

Here is  the code from the IFRAME, by selecting "View Source" from within the IFRAME
****************************************

<HTML>
<head>
<script language="javascript">

function RFRNC_MDO_ID_Changed_TO( NEW_RFRNC_MDO_ID) {
    document.forms[0].elements["RFRNC_MDO_ID"].value=NEW_RFRNC_MDO_ID;
    document.forms[0].submit();
}

</script>
</head>
<BODY>
<FORM id="frm">
<INPUT type="text" id="RFRNC_MDO_ID" name="RFRNC_MDO_ID">
<INPUT type="submit" name="go" id="go" value="Submit">
</FORM>

The answer fields for RFRNC_MDO_ID="100001" are <br>
txtFieldName  "Accident Indicator"<br>
txtFieldDescription "Indicates whether or not the condition for which the service was provided was related to an accident."<br>
txtObjectType ""<br>
txtExample ""<br>
txtFieldFormat "CHAR(1)"<br>
</BODY>

</HTML>

***************************************************
0
 
SnowFlakeCommented:
and you did NOT eneter
<% if len(RFRNC_MDO_ID) > 0 then %>
<script language="javascript">
parent.setFiveFields("<%=txtFieldName%>","<%=txtFieldDescription%>","<%=cmbObjectType%>",
"<%=txtExample%>","<%=cmbFieldFormat%>");
</script>
<% end if%>

into the .asp page right above the </BODY>

your ASP should be now

<%@ language="vbscript" %>

<%
   
     dim RFRNC_MDO_ID
     RFRNC_MDO_ID ="" & Request("RFRNC_MDO_ID")
     
     if len(RFRNC_MDO_ID) > 0 then
   
     Set oCon = Server.CreateObject("ADODB.Connection")
    oCon.Open("UID=XXXXXX;PWD=XXXXXX;DRIVER={SQL Server};SERVER=XXXXXX;Database=ToolsPortal;")

     Set oRst = Server.CreateObject("ADODB.recordset")
     oRst.Open "select * from MDI Where MDO_ID=" & Request("RFRNC_MDO_ID") , oCon
     'oRst.Open "select * from MDI Where MDO_ID=100002" , oCon
   end if
 %>

<%
    dim FieldName1
    dim FieldDescription1
    dim ObjectType1
    dim Example1
    dim FieldFormat1

   
     if len(RFRNC_MDO_ID) > 0 then
    oRst.MoveFirst
    Do Until oRst.EOF
        Select Case oRst.Fields("mdi_type_cd").Value
            Case "BUSN"                                                          
                FieldName1= oRst.Fields("mdi_txt").Value    
            Case "DESC"                                                          
                Description1 = oRst.Fields("mdi_txt").Value  
            Case "ELMTYP"                                                      
                ObjectType1 = oRst.Fields("mdi_txt").Value  
            Case "EXMP"                                                          
                Example1     = oRst.Fields("mdi_txt").Value  
            Case "RFMT"                                                          
                FieldFormat1 = oRst.Fields("mdi_txt").Value  
           
            End Select
      oRst.MoveNext
Loop
end if
%>
<HTML>
<head>
<script language="javascript">

function RFRNC_MDO_ID_Changed_TO( NEW_RFRNC_MDO_ID) {
    document.forms[0].elements["RFRNC_MDO_ID"].value=NEW_RFRNC_MDO_ID;
    document.forms[0].submit();
}

</script>
</head>
<BODY>
<FORM id="frm">
<INPUT type="text" id="RFRNC_MDO_ID" name="RFRNC_MDO_ID">
<INPUT type="submit" name="go" id="go" value="Submit">
</FORM>

The answer fields for RFRNC_MDO_ID="<%=RFRNC_MDO_ID%>" are <br>
txtFieldName  "<%=FieldName1%>"<br>
txtFieldDescription "<%=Description1%>"<br>
txtObjectType "<%=ObjectType1%>"<br>
txtExample "<%=Example1%>"<br>
txtFieldFormat "<%=FieldFormat1%>"<br>

<% if len(RFRNC_MDO_ID) > 0 then %>
<script language="javascript">
parent.setFiveFields("<%=FieldName1%>","<%=Description1%>","<%=ObjectType1%>",
"<%=Example1%>","<%=FieldFormat1%>");
</script>
<% end if%>
</BODY>

</HTML>
0
 
JA67Author Commented:
Oops!  I put that code right before the </body> tag in my MAIN page... Sorry about that SnowFlake, I didn't read carefully enough.

Now, drumb roll please....

IT WORKS!!!!!!!!!!!!!!!!!!  You are one smart dued and one super nice guy!   I can't believe it!   It works!   Amazing!   I am leaping for joy!   Your picture will go into the mail today! Thank you, thank you, thank you.

Man that was a lot of work for one measly 500 point question SnowFlake! I feel bad about that.

I have one last "loose end" rap up question for this. Should I make a separate posting for it? Tell me if I should. I am more than happy to make it a follow up question in a new posting.

Here it is:  When I click on the Add button, to toss these items down into the listview control, the mdo_id for the TechName gets placed into the listview table (in the TechName column) instead of the actual TechName (mdo_nm). Now, what's interesting is that when I click on this entered row, my getValuesFLDS(oRow) function, places the TechName (mdo_nm) back into the form fields for editing, even though the TechName column in this row had the mdo_id number in it, instead of the actual TechName.  

If you still have patience/desire to help with this and you would like me to start a new posting, pleaes let me know. I think this question should be another 500 points.

You've been tremendous!

JA67
0
 
SnowFlakeCommented:
That is realy good news.

If you wish you can make this a new Q,
just please leave here the URL to it so I will be able to follow up.
(copy the url from the address bar when watching the Q)
b.t.w - you should post this one in the javascript area as it is more suitable for it then ASP.

SnowFlake
0
 
JA67Author Commented:
Hello SnowFlake.  I hope you had a good night's sleep. That's where I am headed very soon.

I have created a new posting:
http://www.experts-exchange.com/Web/Web_Languages/JavaScript/Q_21418397.html

Question title:
"Need help referencing selected text within ASP populated select list."

Thanks a million to you!

JA67
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

  • 11
  • 9
Tackle projects and never again get stuck behind a technical roadblock.
Join Now