<div>
Hi, 
 
Use this 
 

<pre><code class="code-10 nolinks" id="code-20-36917430-1"> &lt;%
 'Query your db to populate your database
		SQLstmt = &quot;Select fieldname from yourtable&quot; 'where condition if needed
	 set ResultsSet = conn.Execute(SQLstmt)
 %&gt;
 &lt;select name=&quot;Variable1&quot;&gt;
 &lt;%
 Do Until ResultsSet.EOF
 variableID = ResultsSet(&quot;fieldname&quot;)
 If variableID = Variable1 Then sel = &quot;SELECTED&quot; Else sel = &quot;&quot; 'Default to what is selected
 %&gt;
 &lt;OPTION Value=&quot;&lt;%=Variable1%&gt;&quot; &lt;%=sel%&gt; &gt; &lt;%=ResultsSet(&quot;fieldname&quot;)%&gt;
 &lt;%
 ResultsSet.MoveNext
 Loop
 %&gt;

 &lt;/select&gt;
 
</code></pre>
 &nbsp; &nbsp; &nbsp; &nbsp; 
in place of your code below &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 

<pre><code class="code-10 nolinks" id="code-20-36917430-2"> &lt;select size = &quot;1&quot; name= &quot;Variable1&quot;&gt; 
	 
	 &lt;% 
	 For i = 0 to Ubound(arrName, 2) 
	 Response.write(&quot;&lt;option value=&quot;&quot;&quot;&amp; arrName(0,i) &amp;&quot;&quot;&quot;&quot;) 
	 If arrName(0,i)=fp_rs(&quot;Variable1&quot;) Then Response.Write(&quot; Selected&quot;) End If 
	 Response.write(&quot;&gt;&quot;&amp;arrName(0,i)&amp;&quot;&lt;/option&gt;&quot;) 
	 Next 
	 %&gt; 
	 &lt;/select&gt; 
</code></pre>
</div>

<div>
I hate to ask this but can you walk me through the code? I am pulling data from a database called Case_Opening_Lit.mdb, table named Litigation, and field called pri_atty. This field holds the name of the attorney assigned from the entry form. This is the value I need the dropdown box to default to on the update page. The other database is called BB.mdb, table named INV, field called FULLNAME. This field has the complete list of all our people that needs to go into the dropdown list. I'm not sure which fields get plugged into what places. I put question marks where I need help. 
 
&lt;% 
Set conntemp=Server.CreateObject(&quot;ADODB.Connection&quot;) 
myDSN =&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp;&nbsp;Server.Mappath(&quot;../../fpdb/??????.mdb&quot;) 
conntemp.open myDSN 
mySQL = &quot;SELECT DISTINCT ?????? FROM ??????&quot; 
Set myRS = Server.CreateObject(&quot;ADODB.Recordset&quot;) 
myRS.Open mySQL, conntemp, 0, 1 
arrName=myRS.GetRows() 
myRS.Close 
Set myRS = nothing 
conntemp.Close 
Set conntemp = nothing 
%&gt; 
 
&nbsp;&lt;% 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Query your db to populate your database 
&nbsp;SQLstmt = &quot;Select ?????? from ??????&quot; 'where condition if needed 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;set ResultsSet = conn.Execute(SQLstmt) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; %&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;select name=&quot;??????&quot;&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;% 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Do Until ResultsSet.EOF 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; variableID = ResultsSet(&quot;??????&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If variableID = Variable1 Then sel = &quot;SELECTED&quot; Else sel = &quot;&quot;&nbsp;'Default to what is selected 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; %&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;OPTION Value=&quot;&lt;%=??????%&gt;&quot; &lt;%=sel%&gt; &gt;&nbsp;&lt;%=ResultsSet(&quot;??????&quot;)%&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&lt;% 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ResultsSet.MoveNext 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; %&gt; 
 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;/select&gt; 
 
 
Thanks
</div>

<div>
If I am understanding you correctly, you want a code that queries your database called Case_Opening_Lit.mdb, table named Litigation, and field called pri_atty and populate a dropdown box with this attorney value, no? 
 
If my assumption is correct, then does this table hold value of only ONE attorney? 
 
If yes, why bother with dropdown? 
 
Why not just query the table: 
 

<pre><code class="code-1 nolinks" id="code-20-36921930-1">SQL = &quot;select pri_atty from Litigation where pri_atty ='The Attoney value here' &quot;
set RS=conn.Execute(SQL)

IF NOT RS.EOF Then
attorneyval = RS(&quot;pri_atty&quot;)
End If
</code></pre>
'THen your table on the update page: 
 

<pre><code class="code-1 nolinks" id="code-20-36921930-2">&lt;table&gt;
&lt;tr&gt;
 &lt;td&gt;Attorney&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
 &lt;td&gt;&lt;input type=&quot;text&quot; name=&quot;attorney&quot; value=&quot;&lt;%=attorneyval%&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
</code></pre>
 
That's it. 
 
Now, if the table called Litigation has more than one value in pri_atty fieldname but you just want the value to default to some value, then something I posted earlier, only slightly modified. 
 
&nbsp; &nbsp; &nbsp;&lt;% 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Query your db to populate your database 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLstmt = &quot;Select pri_atty from Litigation where pri_attorney &lt;&gt;&nbsp;'the default value' 
&nbsp; &nbsp;set ResultsSet = conn.Execute(SQLstmt) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; %&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;select name=&quot;Variable1&quot;&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&lt;option value=&quot;the default value&quot;&gt;the default value&lt;/option&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&lt;% 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Do Until ResultsSet.EOF 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; variableID = ResultsSet(&quot;fieldname&quot;) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;If variableID = Variable1 Then sel = &quot;SELECTED&quot; Else sel = &quot;&quot;&nbsp;'Default to what is selected 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; %&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;OPTION Value=&quot;&lt;%=Variable1%&gt;&quot; &lt;%=sel%&gt; &gt;&nbsp;&lt;%=ResultsSet(&quot;fieldname&quot;)%&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&lt;% 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ResultsSet.MoveNext 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; %&gt; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;/select&gt; 
 
Notice that I manually created the default value in &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&lt;option value=&quot;the default value&quot;&gt;the default value&lt;/option&gt; 
 
Also notice that I set a filter in the where clause so it doesn't get populated twice in your dropdown although it doesn't matter. You can remove the where clause. 
 
As for the first part of your code, can explain what you expect that code to do? 
 
This way I know how to respond. 
 
Also, if you are still unclear about what my code and explanation are doing, then you probably haven't explained it well. 
 
Break down or ask specific question and I will be glad to assist. 
 
 
 
 
 
 

</div>

<div>
Also, forgot to mention that that this line 
 
variableID = ResultsSet(&quot;fieldname&quot;) 
 
should be: 
variableID = ResultsSet(&quot;pri_atty&quot;) 
 
And this line: 
&lt;OPTION Value=&quot;&lt;%=Variable1%&gt;&quot; &lt;%=sel%&gt; &gt;&nbsp;&lt;%=ResultsSet(&quot;fieldname&quot;)%&gt; 
 
should be 
&lt;OPTION Value=&quot;&lt;%=Variable1%&gt;&quot; &lt;%=sel%&gt; &gt;&nbsp;&lt;%=ResultsSet(&quot;pri_atty&quot;)%&gt; 
 
s 
 
 

</div>

<div>
Thanks, I will give it a go. 
 
To explain what I'm doing: a user on the initial form has a drop down list of all attorneys pulled from the FULLNAME field in BB.mdb. They will choose a person, say John Doe. &quot;John Doe&quot; is enetered into a field calle pri_atty in Case_Opening_Lit.mdb with tons of other info. Later on, someone else may want to update that atty on that record. When they go to the update page and they see the dropdown box for the primary attorney, I need the dropdown to show the person (John Doe) that's on that record. But I also need that drop down box to go back to BB.mdb and grab all the other names so the user can change the drop down and submit a different name and change the record.
</div>

<div>
I got it to work using this code. Your code helped me understand what was going on. I just needed to pull the selected item out of the code. I dont mind that the selected guy appears in the list twice. 
 
&nbsp;
<pre><code class="code-10 nolinks" id="code-8225006">&lt;%
Set conntemp=Server.CreateObject(&quot;ADODB.Connection&quot;)
myDSN =&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp; Server.Mappath(&quot;../../fpdb/BB.mdb&quot;)
conntemp.open myDSN
mySQL = &quot;SELECT DISTINCT FULLNAME FROM INV WHERE (JOB = 'Associate' OR JOB = 'Partner') AND (Fullname &lt;&gt; 'None') ORDER BY FULLNAME ASC&quot;
Set myRS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
myRS.Open mySQL, conntemp, 0, 1
arrAttyName=myRS.GetRows()
myRS.Close
Set myRS = nothing
conntemp.Close
Set conntemp = nothing
%&gt;

&lt;select size = &quot;1&quot; name= &quot;pri_atty&quot;&gt; 
&lt;option selected&gt;&lt;%=FP_FieldHTML(fp_rs,&quot;pri_atty&quot;)%&gt;&lt;/option&gt;

&lt;% 
For i = 0 to Ubound(arrAttyName, 2) 
Response.write(&quot;&lt;option value=&quot;&quot;&quot;&amp; arrAttyName(0,i) &amp;&quot;&quot;&quot;&quot;) 
Response.write(&quot;&gt;&quot;&amp;arrAttyName(0,i)&amp;&quot;&lt;/option&gt;&quot;) 
Next 
%&gt;
</code></pre>
</div>

<div>
Not the exact solution by led me out of the dark tunnel
</div>

<div>
<div class="content wysiwyg-content">
I have written a series of pages that pulls a list of names from an Access database for a pull down box on the initial entry form. The problem is getting that same form to list the names when I update the record. In a different web page I used the code below to return the list in a dropdown but the dropdown would also default to the selected value. 
 
&lt;% 
Set conntemp=Server.CreateObject(&quot;ADODB.Connection&quot;) 
myDSN =&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; &amp;&nbsp;Server.Mappath(&quot;../../fpdb/My_Databse.mdb&quot;) 
conntemp.open myDSN 
mySQL = &quot;SELECT DISTINCT ColumnName FROM TableName&quot; 
Set myRS = Server.CreateObject(&quot;ADODB.Recordset&quot;) 
myRS.Open mySQL, conntemp, 0, 1 
arrName=myRS.GetRows() 
myRS.Close 
Set myRS = nothing 
conntemp.Close 
Set conntemp = nothing 
%&gt; 
 
&lt;select size = &quot;1&quot; name= &quot;Variable1&quot;&gt; 
 
&lt;% 
For i = 0 to Ubound(arrName, 2) 
Response.write(&quot;&lt;option value=&quot;&quot;&quot;&amp; arrName(0,i) &amp;&quot;&quot;&quot;&quot;) 
If arrName(0,i)=fp_rs(&quot;Variable1&quot;) Then Response.Write(&quot; Selected&quot;) End If 
Response.write(&quot;&gt;&quot;&amp;arrName(0,i)&amp;&quot;&lt;/option&gt;&quot;) 
Next 
%&gt; 
&lt;/select&gt; 
 
In the web page that's not working, I get my list but the drop down does not default to the value for variable1. I believe the reason for this is because on the page that works, the values for the drop down list are in the same table as the selected value where on the page that doesn't work, I need to pull the list from a different database, let alone a different table that where the data vaules are stored. I just dont know the fix. 
 
To sum it up, I have two databases A &amp;&nbsp;B wth tables 1 &amp;&nbsp;2. On my entry form, I am pulling names from A1 &nbsp;to a dropdown box and submitting those values to B2. When I go to update the record pulling values from B2, I need the update form to recreate the pulldown box pulling all the values from A1 again but defaulting to the value the record has in B2. 
 
Dang, I hope this makes sense. 
Thanks 
</div>
</div>

I have written a series of pages that pulls a list of names from an Access database for a pull down box on the initial entry form. The problem is getting that same form to list the names when I update the record. In a different web page I used the code below to return the list in a dropdown but the dropdown would also default to the selected value. 

<%
Set conntemp=Server.CreateObject("ADODB.Connection")
myDSN ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../../fpdb/My_Databse.mdb")
conntemp.open myDSN
mySQL = "SELECT DISTINCT ColumnName FROM TableName"
Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open mySQL, conntemp, 0, 1
arrName=myRS.GetRows()
myRS.Close
Set myRS = nothing
conntemp.Close
Set conntemp = nothing
%>

<select size = "1" name= "Variable1"> 

<% 
For i = 0 to Ubound(arrName, 2) 
Response.write("<option value="""& arrName(0,i) &"""") 
If arrName(0,i)=fp_rs("Variable1") Then Response.Write(" Selected") End If 
Response.write(">"&arrName(0,i)&"</option>") 
Next 
%> 
</select> 

In the web page that's not working, I get my list but the drop down does not default to the value for variable1. I believe the reason for this is because on the page that works, the values for the drop down list are in the same table as the selected value where on the page that doesn't work, I need to pull the list from a different database, let alone a different table that where the data vaules are stored. I just dont know the fix.

To sum it up, I have two databases A & B wth tables 1 & 2. On my entry form, I am pulling names from A1 to a dropdown box and submitting those values to B2. When I go to update the record pulling values from B2, I need the update form to recreate the pulldown box pulling all the values from A1 again but defaulting to the value the record has in B2.

Dang, I hope this makes sense.
Thanks

Need help with code on a web page

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Active Server Pages (ASP) is Microsoft’s first server-side engine for dynamic web pages. ASP’s support of the Component Object Model (COM) enables it to access and use compiled libraries such as DLLs. It has been superseded by ASP.NET, but will be supported by Internet Information Services (IIS) through at least 2022.

SQL (Structured Query Language) is designed to be used in conjunction with relational database products as of a means of working with sets of data. SQL consists of data definition, data manipulation, and procedural elements. Its scope includes data insert, query, update and delete, schema creation and modification, and data access control.