Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Dynamic list selection problems 1

Status
Not open for further replies.

rotschreck

Programmer
Jan 26, 2000
54
CA
Hey there.<br><br>I am working on trying to get some combo boxes to select a selection list in another selction list. So far the code seems to be ok except that it doesn't work. ... so obviously I missed something.<br><br>As far as I can see, it has something to do with the FillArray command on line 39, as after that line, nothing prints to the screen.<br><br>Here's the code and thanks in advance for any help you can offer:<br><br>____________________________________________________________<br>&lt;%@ Language=VBScript %&gt;<br>&lt;% Option Explicit %&gt;<br><br>&lt;!-- #include file=adovbs.inc --&gt;<br>&lt;!-- #include file=DynamicSelect.inc --&gt;<br><br>&lt;%<br>DIM Conn, rsPrimary, rsSecondary, intFirstPub, DB_CONNECTIONSTRING, objRecordset <br><br>&nbsp;' Put your connection information here.<br>&nbsp;'Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)<br><br>DB_CONNECTIONSTRING = &quot;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=&quot; & Server.Mappath(&quot;mndm.mdb&quot;) & &quot;;&quot;<br>Conn = &quot;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=&quot; & Server.Mappath(&quot;mndm.mdb&quot;) & &quot;;&quot;<br><br>&nbsp;SET rsPrimary = Server.CreateObject(&quot;ADODB.RecordSet&quot;)<br>&nbsp;SET rsSecondary = Server.CreateObject(&quot;ADODB.RecordSet&quot;)<br>&nbsp;Set objRecordset = Server.CreateObject(&quot;ADODB.Recordset&quot;)<br>%&gt;<br><br>&lt;HTML&gt;<br>&lt;HEAD&gt;<br>&lt;TITLE&gt;Help<br>&lt;/TITLE&gt;&lt;/HEAD&gt;<br><br>&lt;BODY&gt;<br><br>&lt;%<br>objRecordset.Open &quot;withdrawalsReopenings&quot;, DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable<br>rsPrimary.Open &quot;SELECT primid, primpurp FROM purpose1 ORDER BY primpurp&quot;, Conn<br><br>IF NOT (rsPrimary.BOF AND rsPrimary.EOF) THEN<br>&nbsp;&nbsp;&nbsp;intFirstPub = rsPrimary(&quot;primid&quot;)<br>ELSE<br>&nbsp;&nbsp;&nbsp;intFirstPub = 0<br>END IF<br>rsSecondary.Open &quot;SELECT primid, secid, secpurp FROM purpose2 ORDER BY primid, secpurp&quot;, Conn <br><br>FillArray &quot;arrpurpose2&quot;, rsSecondary, &quot;primid&quot;, &quot;secid&quot;, &quot;secpurp&quot;<br>%&gt;<br><br>&lt;CENTER&gt;<br>&lt;H2&gt;Dynamic Select List&lt;/H2&gt;<br>&lt;FORM&gt;<br>&lt;TABLE WIDTH=100%&gt;<br>&lt;TR&gt;<br>&nbsp;&lt;TD&gt;Primary List:&lt;br&gt;<br>&lt;%SelectBox rsPrimary, &quot;lstpurpose1&quot;, &quot;primid&quot;, &quot;primpurp&quot;, &quot;lstpurpose2&quot;, &quot;arrpurpose2&quot; %&gt;<br>&nbsp;&lt;/TD&gt;<br>&nbsp;&lt;TD&gt;Secondary List:&lt;br&gt;<br>&lt;%<br>&nbsp;&nbsp;&nbsp;rsSecondary.Filter = &quot;primid = '&quot; & intFirstPub & &quot;'&quot;<br>&nbsp;&nbsp;&nbsp;SelectBox rsSecondary, &quot;lstpurpose2&quot;, &quot;secid&quot;, &quot;secpurp&quot;, &quot;&quot;, &quot; &quot; <br>&nbsp;&nbsp;&nbsp;rsSecondary.Filter = adFilterNone<br>%&gt;<br>&nbsp;&lt;/TD&gt;<br>&lt;/TR&gt;<br>&lt;/TABLE&gt;<br>&lt;/FORM&gt;<br>&lt;/CENTER&gt;<br>&lt;/BODY&gt;<br>&lt;/HTML&gt;<br> <p> <br><a href=mailto: > </a><br><a href= Eclectic Page</a><br>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top