Could we retrieve the value from a populated pull down menu and reuse that value

979

Expert 512MB

Hi Giandeo,

Rather than using javascript why don't you use a button to submit your form then use Request("ImpCode") in strSQL1? e.g.

strSQL1="SELECT * FROM importer WHERE imp_code=Request("ImpCode")

Does this help?

Dr B

Jan 30 '08 #2

Hi Giandeo,

Rather than using javascript why don't you use a button to submit your form then use Request("ImpCode") in strSQL1? e.g.

strSQL1="SELECT * FROM importer WHERE imp_code=Request("ImpCode")

Does this help?

Dr B

Thank you so much DrBunchman for your kind quick reply and indelible help.

Frankly speaking, I have a page to submit with a number of fields. In that page I have two populated pull down menu with associated text boxes and some non related text fields. I want to populate the text boxes from the relative tables once the user select an option on the pull down menu. As such there is no need for them to key in the data. For the non related fields such as description of goods, country of origin data will have to be input manually. Once the information is complete, we submit the page and update the transaction table.

Example:

Selecting an option from importer drop down menu automatically populates the importer text boxes:- name, address, telephone from the importer table

After that, selecting an option from the declarant menu automatically populates the declarant text boxes - declarant name, declarant address, declarant telephone from the declarant table

After that, key in the description of goods in a text box

After that, key in the origin in a text box

Finally, submit the page/form to update the table transaction with fields:- imp_code, declarant_code, description,origin

My problem
Its almost a month or so now. I am new to ASP and Web programming. I can find some bits of information here and some there and I try to understand the logic behind and then share the knowledge to others. But unfortunately, this time I am in a 'no move' situation.

I have been able to populate a pull down menu(e.g imp_code) from the associated table(e.g importer) but I am not able to populate the relative text fields/boxes (e.g imp_name, imp_address, imp_tel). And then if you have two pull down menu matters become worst from bad.

I wish i could get that magic help from you experts that could show me how to do such tricks....

Jan 30 '08 #3

979

Expert 512MB

The following code shows how you can use javascript to populate a number of text boxes after selecting a value from a drop down list. Note that this code does not use the second database call - it gets all the data it needs from the first call and stores it in the value field of the drop down list. The javascript then takes that value, splits it into an array and puts it into the text boxes.

Expand|Select|Wrap|Line Numbers

  
<script language="javascript" type="text/javascript">

function TestScript(strvalues)

{

//this function takes the long string of values from the database and splits it up

//into the original pieces of data

var arrayvalues = strvalues.split(","); 

document.form1.TextBox1.value = arrayvalues[0];

document.form1.TextBox2.value = arrayvalues[1];

// add as many lines here as you need, one for each textbox value you want to set

}

</script>

<form name="form1">

<select name="Select1" onchange = "TestScript(this.options[this.selectedIndex].value)">

<option value="0" />
 
<!-- CYCLE THROUGH EACH ROW IN THE RECORD SET AND STORE THE REQUIRED VALUES IN THE OPTION -->
 
<%

Do Until adorst.EOF

'ADD AS MANY VALUES AS YOU NEED FROM THE RECORDSET BUT MAKE SURE YOU

'PUT A COMMA BETWEEN EACH ONE AS I HAVE BELOW
 
Response.Write("<Option value='" & adorst("DBValue1") & "," & adorst("DBValue2") & "'>

Response.Write(adorst("imp_code"))

Response.Write("</option>")
 
adorst.MoveNext

Loop

%>
 
</select>

<input type="text" name="TextBox1" />

<input type="text" name="TextBox2" />

</form>

If you need any help implementing this then give me a shout as I probably haven't explained it very well. I hope this is a solution to your problem.

Dr B

Jan 30 '08 #4

564

Expert 512MB

Hello giandeo,

This one was fun to figure out! I don’t know if this is your answer but, it might work for you.

First off I don’t know the fields within your database so you will need to change a few things before you test:

Change the SQL syntax to match your fields within your table.

Change the field names within all the “Do Until” loops.

What I like about doing it this way is there is only one call to your database (DBA’s are big fans of that) and should speed up your page. The other thing is that there is no page reload; all the data is stored in an array.

Hope this helps~

Expand|Select|Wrap|Line Numbers

 
<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=rsList("FieldOne").value%>';

                    FieldTwoArray[<%=i%>]='<%=rsList("FieldTwo").value%>';

                    FieldThreeArray[<%=i%>]='<%=rsList("FieldThree").value%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>
 
            function UpdateValues()

            {

                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;

                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];

                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];

                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            <select name="PreFillOne" onchange="UpdateValues();">

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

                <%i = 0%>

                <%rsList.MoveFirst%>

                <%Do Until (rsList.EOF)%>

                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            </select>

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

Jan 30 '08 #5

Hello giandeo,

This one was fun to figure out! I don’t know if this is your answer but, it might work for you.

First off I don’t know the fields within your database so you will need to change a few things before you test:
Change the SQL syntax to match your fields within your table.

Change the field names within all the “Do Until” loops.

What I like about doing it this way is there is only one call to your database (DBA’s are big fans of that) and should speed up your page. The other thing is that there is no page reload; all the data is stored in an array.

Hope this helps~

Expand|Select|Wrap|Line Numbers

<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb")

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=rsList("FieldOne").value%>';

                    FieldTwoArray[<%=i%>]='<%=rsList("FieldTwo").value%>';

                    FieldThreeArray[<%=i%>]='<%=rsList("FieldThree").value%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            function UpdateValues()

            {

                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;

                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];

                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];

                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            <select name="PreFillOne" onchange="UpdateValues();">

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

                <%i = 0%>

                <%rsList.MoveFirst%>

                <%Do Until (rsList.EOF)%>

                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            </select>

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

[quote]
I heartfully thank you EXPERTS for you remarkable help. I am going to execute the program and will shortly report to you. Thanks again.....

Jan 31 '08 #6

Hello giandeo,

This one was fun to figure out! I don’t know if this is your answer but, it might work for you.

First off I don’t know the fields within your database so you will need to change a few things before you test:
Change the SQL syntax to match your fields within your table.

Change the field names within all the “Do Until” loops.

What I like about doing it this way is there is only one call to your database (DBA’s are big fans of that) and should speed up your page. The other thing is that there is no page reload; all the data is stored in an array.

Hope this helps~

Expand|Select|Wrap|Line Numbers

<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb")

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=rsList("FieldOne").value%>';

                    FieldTwoArray[<%=i%>]='<%=rsList("FieldTwo").value%>';

                    FieldThreeArray[<%=i%>]='<%=rsList("FieldThree").value%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            function UpdateValues()

            {

                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;

                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];

                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];

                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            <select name="PreFillOne" onchange="UpdateValues();">

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

                <%i = 0%>

                <%rsList.MoveFirst%>

                <%Do Until (rsList.EOF)%>

                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            </select>

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

Sir, the solution works perfectly well so long there is no appostrophe ' in the record. Let me explain.

I have a table importer with the following fields:
Imp_code, imp_name, imp_address

I can retrieve all the values for
Imp_code = 00011, Imp_name=Gerrard, Imp_address=15, Garcia Road, B Bay

But I cannot retrieve data for
Imp_code = 00012, Imp_name=Raoul, imp_address=Royal Road Trou D'eau Douce

The pull down menu cannot display the values stored in the array. I get the message/warning "Loaded by with errors". Although the pull down menu is populated with the values of the imp_coded, no record is displayed in the text fields.

Please help me out.......

Feb 11 '08 #7

564

Expert 512MB

Hello giandeo,

Are you trying to say something? It is not coming in if you are. Please re-post what your trying to say and preview it before posting.

Thanks~

Feb 11 '08 #8

Hello giandeo,

Are you trying to say something? It is not coming in if you are. Please re-post what your trying to say and preview it before posting.

Thanks~

Sir, the solution works perfectly well so long there is no appostrophe ' in the record. Let me explain.

The table importer has the following fields:
Imp_code, imp_name, imp_address

I can retrieve all the values for
Imp_code = 00011, Imp_name=Gerrard, Imp_address=15, Garcia Road, B Bay

But I cannot retrieve data for
Imp_code = 00012, Imp_name=Raoul, imp_address=Royal Road Trou D'eau Douce

The pull down menu cannot display the values stored in the array. I get the message/warning "Loaded by with errors". Although the pull down menu is populated with the values of the imp_coded, no record is displayed in the text fields.

Please help me out.....

Feb 12 '08 #9

979

Expert 512MB

Hi giandeo,

The problem here is that an apostrophe is a special character used by the database to mark the end of a string. If you want to include data with apostrophe's in your records you must replace them all with double apostrophe's. Like so:

Expand|Select|Wrap|Line Numbers

string= Replace(string, "'", "''")

If your string was "Royal Road Trou D'eau Douce" then it would become "Royal Road Trou D''eau Douce" and this could be safely entered in the database.

Does this make sense? Let me know how you get on.

Dr B

Feb 12 '08 #10

Hi giandeo,

The problem here is that an apostrophe is a special character used by the database to mark the end of a string. If you want to include data with apostrophe's in your records you must replace them all with double apostrophe's. Like so:

Expand|Select|Wrap|Line Numbers

string= Replace(string, "'", "''")

If your string was "Royal Road Trou D'eau Douce" then it would become "Royal Road Trou D''eau Douce" and this could be safely entered in the database.

Does this make sense? Let me know how you get on.

Dr B

Thank you very much Dr B for your suggestion

Frankly speaking, Sir, a double apostrophe will lead to confusion in the mind of the users. It changes the meaning and spelling of the word. Never mind the war is on. I'll try my level best and if you experts have a suggestion, so please come to my rescue.

Feb 12 '08 #11

979

Expert 512MB

Don't worry Giandeo, the double apostrophe won't appear in your database and your users won't even realise it has happened.

They will enter the data as

"Royal Road Trou D'eau Douce"

Using strAddress = Replace(strAddress, "'", "''") in your code will change it to:

"Royal Road Trou D''eau Douce"

But the database will interpret the double apostrophe as single one and display it as

"Royal Road Trou D'eau Douce"

As long as you run that little code snippet on every string you are entering into the database you won't get a problem with the apostrophe's.

Does this make sense? I suggest you give it a try and see how you get on.

Let me know if you need any more help,

Dr B

Feb 12 '08 #12

Don't worry Giandeo, the double apostrophe won't appear in your database and your users won't even realise it has happened.

They will enter the data as

"Royal Road Trou D'eau Douce"

Using strAddress = Replace(strAddress, "'", "''") in your code will change it to:

"Royal Road Trou D''eau Douce"

But the database will interpret the double apostrophe as single one and display it as

"Royal Road Trou D'eau Douce"

As long as you run that little code snippet on every string you are entering into the database you won't get a problem with the apostrophe's.

Does this make sense? I suggest you give it a try and see how you get on.

Let me know if you need any more help,

Dr B

Sir, I have just tried the code. I could see the double apostrophe in the address field of the database. But, unfortunately, I am not able to display the complete address.

Here is my code:

Code which updates the database

Expand|Select|Wrap|Line Numbers

  
<%
 
dim conn, sql, rs
 
'create ADO connection and recordset object

set conn=Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")
 
'we open connection to the database

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("sp.mdb")
 
sql="SELECT imp_code,imp_sname, imp_oname, imp_address,imp_tel FROM importer;"

'Set the lock and cursor type

rs.CursorType=1

rs.LockType=3
 
'open the recordset with sql query

rs.open sql, conn

'prepare the database to add a new record and add

dim strAddress

strAddress = Request.Form("theaddress")

strAddress = Replace(strAddress, "'", "''") 
 
rs.AddNew

rs.Fields("imp_code")=Request.Form("thecode")

rs.Fields("imp_sname")=Request.Form("thesname")

rs.Fields("imp_oname")=Request.Form("theoname")

rs.Fields("imp_address")=strAddress

rs.Fields("imp_tel")=Request.Form("thetel")
 
'save the update

rs.update

rs.close
 
set rs=Nothing

set conn=Nothing

%>

The database is successfully updated !

Here is the code to retrieve the data from the database as you recommended earlier

Expand|Select|Wrap|Line Numbers

  
<%

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

Conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &server.mapPath("sp.mdb")
 
Set adorst = Server.CreateObject("ADODB.Recordset")  

SQL = "SELECT * FROM importer ORDER BY imp_code"
 
adorst.CursorType = 1

adorst.LockType = 3
 
adorst.Open SQL, Conn

%>
 
<script language="javascript" type="text/javascript">

function TestScript(strvalues)

{

//this function takes the long string of values from the database and splits it up

//into the original pieces of data

var arrayvalues = strvalues.split(","); 

document.form1.TextBox1.value = arrayvalues[0];

document.form1.TextBox2.value = arrayvalues[1];

document.form1.TextBox3.value = arrayvalues[2];
 
// add as many lines here as you need, one for each textbox value you want to set

}

</script>

<form name="form1">

<select name="Select1" onchange = "TestScript(this.options[this.selectedIndex].value)">

<option value="0" />
 
<!-- CYCLE THROUGH EACH ROW IN THE RECORD SET AND STORE THE REQUIRED VALUES IN THE OPTION -->
 
<%

Do Until adorst.EOF

'ADD AS MANY VALUES AS YOU NEED FROM THE RECORDSET BUT MAKE SURE YOU

'PUT A COMMA BETWEEN EACH ONE AS I HAVE BELOW
 
Response.Write("<Option value='" & adorst("imp_sname") & "," & adorst("imp_oname") & "," & adorst("imp_address") & "'>")

Response.Write(adorst("imp_code"))

Response.Write("</option>")
 
adorst.MoveNext

Loop

%>
 
</select>

<input type="text" name="TextBox1" />

<input type="text" name="TextBox2" />

<input type="text" name="TextBox3" />
 
</form>

Please advise .......

Feb 13 '08 #13

979

Expert 512MB

Can you give me an example of how the data is being displayed and how you would expect it to be displayed?

Thanks,

Dr B

Feb 13 '08 #14

564

Expert 512MB

Hello giandeo,

Your problem is not with your database. The way you are storing data takes care of double quotes inserts. Where your problem is located is within the JavaScript.

Take a look at this new code snip. Look at lines 19 through 21 and there is where you need to make your changes to handle single quotes.

Sorry for not getting back with you faster. I do hope this helps you out~

Expand|Select|Wrap|Line Numbers

 
<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=Replace(rsList("FieldOne"), "'", "\'")%>';

                    FieldTwoArray[<%=i%>]='<%=Replace(rsList("FieldTwo"), "'", "\'")%>';

                    FieldThreeArray[<%=i%>]='<%=Replace(rsList("FieldThree"), "'", "\'")%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>
 
            function UpdateValues()

            {

                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;

                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];

                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];

                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            <select name="PreFillOne" onchange="UpdateValues();">

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

                <%i = 0%>

                <%rsList.MoveFirst%>

                <%Do Until (rsList.EOF)%>

                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            </select>

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

Feb 13 '08 #15

Hello giandeo,

Your problem is not with your database. The way you are storing data takes care of double quotes inserts. Where your problem is located is within the JavaScript.

Take a look at this new code snip. Look at lines 19 through 21 and there is where you need to make your changes to handle single quotes.

Sorry for not getting back with you faster. I do hope this helps you out~

Expand|Select|Wrap|Line Numbers

<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb")

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=Replace(rsList("FieldOne"), "'", "\'")%>';

                    FieldTwoArray[<%=i%>]='<%=Replace(rsList("FieldTwo"), "'", "\'")%>';

                    FieldThreeArray[<%=i%>]='<%=Replace(rsList("FieldThree"), "'", "\'")%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            function UpdateValues()

            {

                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;

                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];

                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];

                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            <select name="PreFillOne" onchange="UpdateValues();">

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

                <%i = 0%>

                <%rsList.MoveFirst%>

                <%Do Until (rsList.EOF)%>

                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            </select>

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

[quote]
Hello CroCrew

Your solution is astonishingly fantastic.
Thank you so so much Sir. With your blessing and other Experts I have won a battle with myself, but the war continues.

Again. Thank you very much and please accept my greeting for the VALENTINE'S DAY.

Feb 14 '08 #16

Hello giandeo,

Your problem is not with your database. The way you are storing data takes care of double quotes inserts. Where your problem is located is within the JavaScript.

Take a look at this new code snip. Look at lines 19 through 21 and there is where you need to make your changes to handle single quotes.

Sorry for not getting back with you faster. I do hope this helps you out~

Expand|Select|Wrap|Line Numbers

<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb")

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=Replace(rsList("FieldOne"), "'", "\'")%>';

                    FieldTwoArray[<%=i%>]='<%=Replace(rsList("FieldTwo"), "'", "\'")%>';

                    FieldThreeArray[<%=i%>]='<%=Replace(rsList("FieldThree"), "'", "\'")%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            function UpdateValues()

            {

                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;

                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];

                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];

                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            <select name="PreFillOne" onchange="UpdateValues();">

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

                <%i = 0%>

                <%rsList.MoveFirst%>

                <%Do Until (rsList.EOF)%>

                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>

            </select>

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

Hello CroCrew,

Your solution is astonishingly fantastic.

Thank you so so much Sir.
With your blessing and other Experts I have won a battle with myself, but the war continues.

Again. Thank you very much and please accept my greeting for the Valentine's Day

Feb 14 '08 #17

Hello giandeo,

Are you trying to say something? It is not coming in if you are. Please re-post what your trying to say and preview it before posting.

Thanks~

Hello CroCrew,

Your solution is astonishingly fantastic. I tried to inform you twice, but unfortunately, there was an error and the message could not be read

Thank you so so much Sir.
With your blessing and other Experts I have won a battle with myself, but the war continues.

Again. Thank you very much and please accept my greeting for the Valentine Day

Feb 14 '08 #18

564

Expert 512MB

You are most welcome. Just a bit of advice.. always preview your posts before submitting them that way you won’t get blank posts. But, if by accident you do post a blank post you can always “edit” the post to fix any errors.

Happy coding~

Feb 14 '08 #19

You are most welcome. Just a bit of advice.. always preview your posts before submitting them that way you won’t get blank posts. But, if by accident you do post a blank post you can always “edit” the post to fix any errors.

Happy coding~

Sir, sorry to bother you again.

I wish to display the above text fields not through a populated pull down menu but through an input text field.

Meaning that when the user key-in a value in the input text field and presses on the submit button, the FieldOne, FieldTwo and FieldThree are populated and the value input by the user still visible.

Please Sir, Help me out of this trouble

Feb 19 '08 #20

564

Expert 512MB

Hello giandeo,

I modified my example code above to meet your new requirements.

Hope this helps~

Expand|Select|Wrap|Line Numbers

 
<%

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

    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 

    Set rsList = Server.CreateObject("ADODB.Recordset")

    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"

    rsList.CursorType = 1

    rsList.LockType = 3

    rsList.Open SQL, Conn

%>

<html>

    <head>

        <title>Example</title>

        <script language="JavaScript">

            var FieldOneArray = new Array(<%=rsList.RecordCount%>);

            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);

            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);

                <%i = 0%>

                <%Do Until (rsList.EOF)%>

                    FieldOneArray[<%=i%>]='<%=Replace(rsList("FieldOne"), "'", "\'")%>';

                    FieldTwoArray[<%=i%>]='<%=Replace(rsList("FieldTwo"), "'", "\'")%>';

                    FieldThreeArray[<%=i%>]='<%=Replace(rsList("FieldThree"), "'", "\'")%>';

                    <%i = (i + 1)%>

                    <%rsList.MoveNext%>

                <%Loop%>
 
            function UpdateValues()

            {

                var NotFound = true;

                for (x in FieldOneArray)

                {

                    if (FieldOneArray[x] == document.xForm.FieldOne.value)

                    {

                        document.yForm.FieldOne.value = FieldOneArray[x];

                        document.yForm.FieldTwo.value = FieldTwoArray[x];

                        document.yForm.FieldThree.value = FieldThreeArray[x];

                        NotFound = false;

                    }

                }
 
                if (NotFound){alert("Not found!");}

            }

        </script>

    </head>

    <body>

        <form method="post" action="#" name="xForm" id="xForm">

            Search Field One: <input type="text" name="FieldOne">&nbsp;

            <input type="button" value="Find" onclick="UpdateValues();">

        </form>

        <form method="post" action="#" name="yForm" id="yForm">

            <br>Field One: <input type="text" name="FieldOne">

            <br>Field One: <input type="text" name="FieldTwo">

            <br>Field One: <input type="text" name="FieldThree">

        </form>

    </body>

</html>

Feb 19 '08 #21