Pass values to VB6 dll from asp page

Poppy · February 10th, 2006, 05:08 AM

Hi

I am currently writing a program that allows a user to select from a drill down list.

I have basically displayed the data on the page from sql using a dll.

I'm trying to pass the value that the user selects thru 'form'. For some reason my varaibles aren't been passed

See the lines in red? When I do a response.write, there is nothing in the variable, however there are values in the recordset. I suspect that because I'm looping to get the values out on the page, the users selection is not being preserved? Make sense? This what my code looks like below:

Code:

if simGroup = "" OR simGroup <> trim(deptmRS.fields("group_no")) then

%>
             <tr>
            <div id="sc1<%=counter%>" class="switchcontent">
             <dl id="groupprod">
    <dt>
    <dd>



    <p onClick="expandcontent('sc2<%=counter2%>')" style="cursor:hand; cursor:pointer" title="Click here to view the Product lines of this Group">
    <b><%=deptmRS.Fields("group_descr")%></b></p> 

    </dd>
    </dt>
    </div>
    </dl>
    </tr>

<%                    
end if

    'end if
'-----------------------------------------------------------------------------------
%>        
    <tr>
    <div id="sc2<%=counter2%>" class="switchcontent">
    <dd>
    <dd>
    <dd>



    <p onClick="document.frmProductSearch1.submit();"  style="cursor:hand; cursor:pointer" title="Click to view the Products for this line">
                                <b><%=deptmRS.Fields("product_descr")%></b></p>

    </dd>
    </dd>
    </dd>
    </dl>
    </div>
    </tr>    
<%
'-------------------------------------------------------------------------------------

                simDept = trim(deptmRS.fields("department"))
        simGroup = trim(deptmRS.fields("group_no"))
        simProdline = trim(deptmRS.fields("product_line"))        counter = counter + 1
        counter2 = counter2 + 1

        deptmRS.MoveNext
        loop

        end if 

        deptmRS.Close
        set deptmRS = nothing
%>

</tr>
</table>
    </form>
            </td>

<table border="0" width="100%">

          <form method="post" action="saveorder2.asp" name="frmProductSearch1">     
        <input type="hidden" name="Submitted" value="Y">
              <input type="hidden" name="BranchID" value="<%=request("BranchID")%>">
              <input type="hidden" name="pageno" value="<%=request("pageno")%>"> 
              <input type="hidden" name="UserID" value="<%=encOBJ.encrypt(encOBJ.Decrypt(request("UserID")))%>">
             <input type="hidden" name="lst_dept" value="<%=request("simDept")%>">
               <input type="hidden" name="lst_group" value="<%=request("simGroup")%>">
               <input type="hidden" name="lst_prodline" value="<%=request("simProdline")%>">
        <input type="hidden" name="SearchType" value="2">
        </tr>

Thank you for all your help

Your mickey mouse kung fu is no match for my superior fighting style