asp code working in firefox and ie7 but not working in ie6

[kepskp]

i just write code for select option in combo box which i m select but when i press search button and then click on back button then there in no option selected. and that same code working in ie7 and firefox so plz any 1 suggest me soluction quickly..

[acoder]

Can you post your code please.

[kepskp]

Can you post your code please.

<%
set dataConnection = Server.CreateObject("ADODB.Connection")
dataConnection.Open MAIN_DSN
 
sqlQuery =  "EXEC sp_getCategories NULL"
set categoriesRS = dataConnection.Execute(sqlQuery)
 
if (not(categoriesRS.BOF and categoriesRS.EOF)) then   
   arrCategoriesDB = categoriesRS.GetRows()
 
   arrcount = 0
   for each fieldValue in categoriesRS.fields
      fieldName = fieldValue.Name
      Execute("fld_" & fieldName & " = arrcount")
      arrcount = arrcount + 1
   next
 
   numCategoriesRows=ubound(arrCategoriesDB,2)
end if
 
set categoriesRS = nothing
 
firstCat1 = ""
if (thisCategoryID <> "") then
   sqlQuery =  "EXEC sp_getCategories " & thisCategoryID
   set pathRS = dataConnection.Execute(sqlQuery)
 
   index=0
   for x=1 to 4
      if (pathRS("CategoryID" & x) <> 0) then
         index = index + 1
         Execute("firstCat" & index & " = pathRS(""CategoryID" & x & """)")
      end if
   next
 
   set pathRS = nothing
end if
 
' Function to create the a list of code for dynamic drop down javascript
function javaArray()
 
   prevCat = ""
   for rowcounter = 0 to numCategoriesRows
      if (arrCategoriesDB(fld_CategoryID3,rowcounter) <> prevCat) then
         prevCat = arrCategoriesDB(fld_CategoryID3,rowcounter)
         strQuery = strQuery & "arrCat[" & prevCat & "] = """
 
         for rowcounter2 = 0 to numCategoriesRows
            if (arrCategoriesDB(fld_CategoryID3,rowcounter2) = prevCat) then
               strQuery = strQuery & arrCategoriesDB(fld_CategoryName4,rowcounter2) & "#" & arrCategoriesDB(fld_CategoryID4,rowcounter2) & "||"
            end if
         next
 
         strQuery = strQuery & """;"
      end if
   next
 
   javaArray = strQuery 
end function
 
%>
<script language="javascript">   
   var arrCat = new Array();
<%= javaArray() %>

function mmChangeContact(objFldParent,objFldChild, contact_caption)
{
   var ContactList = arrCat[<%= firstCat1 %>];
   clearList(objFldChild);
   addElement(objFldChild, contact_caption, "");
 
   if(ContactList)
   {
 
      var rgContacts = ContactList.split('||');
 
            addElement(objFldChild, "Select All", "ALL");
      for (var i = 0; i < rgContacts.length; i++)
      {
         if (rgContacts[i])
         {
            var rgContact = rgContacts[i].split('#');
                        addElement(objFldChild, rgContact[0], rgContact[1]);
         }
      }
 
      objFldChild.disabled = false;
   } 
     else 
     {
      objFldChild.disabled = true;
   }
 
     //objFldChild.selectedIndex = 0;
 
} 
 
function clearList(list) 
{
   var i = 0;
   var o = list.options;
 
   for (i = o.length; i >= 0; --i)
      o[i] = null;
   list.disabled = true;
}
 
function addElement(list, text_in, value_in)
{
   var o = list.options;
   var nIdx;
 
   if (o.length < 0) //IE for Mac 4.5 sets length to -1 if list is empty
      nIdx = 0;
   else
 
   nIdx = o.length;
 
   o[nIdx] = new Option(text_in, value_in);
   list.disabled = false;
}
 
function setDefaultByText(list, text_in)
{
   with (list)
   {
      for (var i = 0; i < (options.length); i++)
      {
         if (options[i].text == text_in)
         {
            selectedIndex = i;
            return;
         }
       }
   }
}
 
function setDefaultByValue(list, value_in)
{
   with (list)
   {
      for (var i = 0; i < (options.length); i++)
      {
         if (options[i].value == value_in)
         {
            selectedIndex = i;
            return;
         }
      }
   }
}
 
function validate(){
   var objFld = document.EDITPRODUCT
   var flagAffiliate = 0
 
    if (objFld.Parent1.value != "") 
    {
        objFld.CategoryID.value = objFld.Parent1.value
        flagAffiliate = 1
    }
 
    if (objFld.Parent1.value == "")
    {
        alert("Please Select a Make");
        return false; 
    }
    /*if (objFld.Child.value == "")
    {
        alert("Please Choose a Vehicle Model");
        return false; 
    }
    if (objFld.GrandChild.value == "")
    {
        alert("Please Choose a Vehicle Model");
        return false; 
    }*/
 
    return true;
}
</script>

<%
        if (Cint(catID) = CARS) then
            MakeImage = "/auto_classifieds_images/sh_make.gif"
        elseif (Cint(catID) = TRUCKS) then
            MakeImage = "/auto_classifieds_images/sh_make.gif"
        elseif (Cint(catID) = MOTORCYCLES) then
            MakeImage = "/auto_classifieds_images/sh_make.gif"
        elseif (Cint(catID) = BOATS) then
            MakeImage = "/auto_classifieds_images/sh_boat.gif"
        elseif (Cint(catID) = RVS) then
            MakeImage = "/auto_classifieds_images/sh_make.gif"
        elseif (Cint(catID) = SPECIALTY) then
            MakeImage = "/auto_classifieds_images/sh_specialty.gif"
        end if
%>

<input type="hidden" name="CategoryID" value="">
   <tr> 
      <td width="100" align="right"><img src="<%= MakeImage %>" width="90" height="28" border="0"></td>
      <td width="200"><select name="Parent1">
            <option value="">----------- Select One -----------</option>
                <option value="ALL">Select ALL</option>
            <%
   for rowcounter = 0 to numCategoriesRows
      if (arrCategoriesDB(fld_CatParent4,rowcounter) = 0) then
         selectThis = ""
         if ( arrCategoriesDB(fld_CategoryID4,rowcounter) = firstCat1) then
            selectThis = "selected"
         end if
 
            if arrCategoriesDB(fld_CategoryID4,rowcounter) <> 0 then
%>
            <option value="<%= arrCategoriesDB(fld_CategoryID4,rowcounter) %>" <%=selectThis%>><%= arrCategoriesDB(fld_CategoryName4,rowcounter) %></option>
            <%
            end if
      end if
   next
%>
         </select></td>
   </tr>
<script language="javascript">

<%
if (firstCat1 <> "") then
%>    
    mmChangeContact(document.EDITPRODUCT.Parent1,document.EDITPRODUCT.Parent1, '----------- Select One -----------');
    setDefaultByValue(document.EDITPRODUCT.Parent1,'<%= firstCat1 %>')
<%
end if
 
if (firstCat2 <> "") then
%>
mmChangeContact(document.EDITPRODUCT.Parent1,document.EDITPRODUCT.Child, '----------- Select One -----------');
setDefaultByValue(document.EDITPRODUCT.Child,'<%= firstCat2 %>')
<%
end if
 
if (firstCat3 <> "") then
%>
mmChangeContact(document.EDITPRODUCT.Child,document.EDITPRODUCT.GrandChild, '----------- Select One -----------');
setDefaultByValue(document.EDITPRODUCT.GrandChild,'<%= firstCat3 %>')
<%
end if
 
if (firstCat4 <> "") then
%>
mmChangeContact(document.EDITPRODUCT.GrandChild,document.EDITPRODUCT.GreatGrandChild, '----------- Select One -----------');
setDefaultByValue(document.EDITPRODUCT.GreatGrandChild,'<%= firstCat4 %>')
<%
end if
%>
 
</script>

[acoder]

Can you post the generated client-side source code instead (using code tags please).