Display form details based on populated drop down menu

Hello all,

It's almost a couple of weeks since i am struggling to get this code work. Unfortunately, i am stuck. There seems to be no hope... Please Help.......

I am working with an asp page that dynamically pulls info from my database to populate a drop down menu. Upon an onChange event, I wish to display the fields related to that pull down menu WITHOUT SUBMITTING THE PAGE.

The Senario:

Database name: sp.mdb
Table name: importer
Field names: imp_code, imp_name, imp_address, imp_tel

drop down menu resides the imp_code

Once an imp_code is selected from the drop down list, I wish to display the associated fields viz.., imp_name, imp_address, imp_tel in the text fields

The Code:

I am completely new in this field. Nevertheless, i have given it a try. My code is as follows:

Expand|Select|Wrap|Line Numbers

 <%@ Language=VBScript %>

<%Option explicit

Dim oRs, conn, connect, strSQL, RSyeshti
 
set conn=server.CreateObject ("adodb.connection")

connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sp.mdb") & ";Persist Security Info=False"

conn.Open connect
 
%>
 
<html>

<head>

<script language="javascript">

<!--
 
function myfunc(hello) {

var impcode;

impcode=document.hello.impcode.value;

document.hello.thename.value=impcode;

}
 
//-->

</script>
 
</head>
 
<body>
 
    <SELECT name="impcode" onchange="myfunc(this);">

    <%        

    Set oRs=Server.CreateObject("adodb.recordset")

    strSQL = "SELECT * FROM importer ORDER BY imp_code"

    oRs.Open strSQL, conn        
 
    Do while not oRs.EOF

        if Request.Form("impcode")= oRs("imp_code") then 'if this is the selected one then display as selected

            Response.Write "<OPTION VALUE = '" & oRS ("imp_code") & "' SELECTED>"

            Response.Write oRs("imp_code") & "</Option>"
 
            oRs.MoveNext 

        else

            Response.Write "<OPTION VALUE = '" & oRs ("imp_code") & "'>"

            Response.Write oRs("imp_code") & "</Option>"

            oRs.MoveNext 

        end if
 
      loop        
 
    %>
 
</SELECT>

<%
 
Set oRs=Server.CreateObject("adodb.recordset")

set RSyeshti= conn.Execute("SELECT * FROM importer") 
 
%>

Name:  <input name="thename" type="text" value="<%response.write RSyeshti("imp_name")%>"><br>

Address:  <input name="theaddress" type="text" value="<%response.write RSyeshti("imp_address")%>"><br>

Tel:  <input name="thetel" type="text" value="<%response.write RSyeshti("imp_tel")%>">
 
</form>
 
</body>

</html>

PLEASE help me ...............

Thanks

Jan 25 '08 #1

Follow Post Reply

2982

CroCrew

564

Expert 512MB

Give this a try~

Expand|Select|Wrap|Line Numbers

 
<%

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

    adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 
 
    Set objRS= Server.CreateObject("ADODB.Recordset") 

        strSQL = "SELECT * FROM importer ORDER BY imp_code"

    objRS.Open strSQL, adoCon

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            function Validate()

            {

                for(var i = 0; i < NumOfRecords+1; i++) 

                {

                    x=document.getElementById('Row'+i);

                    x.style.display = 'none';

                }

                if (document.xform.impcode.value>=0)

                {

                    x=document.getElementById('Row'+document.xform.impcode.value);

                    x.style.display = '';

                }

            }

        </script>

    </head>

    <body>

        <form method="post" action="YourNextPage.asp" name="xform" id="xform"> 

            <select name="impcode" onchange="Validate();">

                <option value="-1">Select One</option>

                <%i = 0%>

                <%Do Until (objRS.EOF)%>

                    <option value="<%=i%>"><%=objRS("imp_code").value%></option>

                    <%i = (i + 1)%>

                    <%objRS.MoveNext%>

                <%Loop%>

            </select>

            <script language="JavaScript">var NumOfRecords = <%=i%>;</script>

            <table>

                <%i = 0%>

                <%objRS.MoveFirst%>

                <%Do Until (objRS.EOF)%>

                    <tr id="Row<%=i%>" style="display: none;">

                        <td>

                            Name: <input name="thename" type="text" value="<%=objRS("imp_name").value%>"><br>

                            Address: <input name="theaddress" type="text" value="<%=objRS("imp_address").value%>"><br>

                            Tel: <input name="thetel" type="text" value="<%=objRS("imp_tel").value%>">

                        </td>

                    </tr>

                    <%i = (i + 1)%>

                    <%objRS.MoveNext%>

                <%Loop%>

            </table>

        </form>

    </body>

</html>

Jan 25 '08 #2

giandeo

Extremely Sorry for the late reply. I don't have internet accesss at home.

Heartfully thanks a lot for your help.
I have given it a try. I have loaded the source code and noted the following:-

I could see the populated drop down menu only.

No text box:-

Expand|Select|Wrap|Line Numbers

 
  Name: <input name="thename" type="text" value="<%=objRS("imp_name").value%>"><br>

                            Address: <input name="theaddress" type="text" value="<%=objRS("imp_address").value%>"><br>

                            Tel: <input name="thetel" type="text" value="<%=objRS("imp_tel").value%>">

When I removed "display: none" from the code <tr id="Row<%=i%>" style="display: none;"> I could see the static list of all records from table importer displayed sequentially. Selecting an option from the drop down list does not change the text box field values.

Jan 28 '08 #3

Display form details based on populated drop down menu

Post your reply

Similar topics