Dynamic list selections and my faulty FillArray.

rotschreck · Jun 5, 2000

Hey there. 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. 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. Here's the code and thanks in advance for any help you can offer: ____________________________________________________________ <%@ Language=VBScript %> <% Option Explicit %>   <% DIM Conn, rsPrimary, rsSecondary, intFirstPub, DB_CONNECTIONSTRING, objRecordset  ' Put your connection information here.  'Set Conn = Server.CreateObject("ADODB.Connection&quot

DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("mndm.mdb&quot

& ";" Conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("mndm.mdb&quot

& ";"  SET rsPrimary = Server.CreateObject("ADODB.RecordSet&quot

SET rsSecondary = Server.CreateObject("ADODB.RecordSet&quot

Set objRecordset = Server.CreateObject("ADODB.Recordset&quot

%> <HTML> <HEAD> <TITLE>Help </TITLE></HEAD> <BODY> <% objRecordset.Open "withdrawalsReopenings", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdTable rsPrimary.Open "SELECT primid, primpurp FROM purpose1 ORDER BY primpurp", Conn IF NOT (rsPrimary.BOF AND rsPrimary.EOF) THEN    intFirstPub = rsPrimary("primid&quot

ELSE    intFirstPub = 0 END IF rsSecondary.Open "SELECT primid, secid, secpurp FROM purpose2 ORDER BY primid, secpurp", Conn FillArray "arrpurpose2", rsSecondary, "primid", "secid", "secpurp" %> <CENTER> <H2>Dynamic Select List</H2> <FORM> <TABLE WIDTH=100%> <TR>  <TD>Primary List: <%SelectBox rsPrimary, "lstpurpose1", "primid", "primpurp", "lstpurpose2", "arrpurpose2" %>  </TD>  <TD>Secondary List: <%    rsSecondary.Filter = "primid = '" & intFirstPub & "'"    SelectBox rsSecondary, "lstpurpose2", "secid", "secpurp", "", " "    rsSecondary.Filter = adFilterNone %>  </TD> </TR> </TABLE> </FORM> </CENTER> </BODY> </HTML> <a href=mailto: > </a> <a href=

http://www.geocities.com/siltharin>Rotschrck's

Eclectic Page</a>

palbano · Jun 5, 2000

Dear Rotschrck, Where is the definition of 'FillArray'? Also what is this line supposed to do: ><%SelectBox rsPrimary, "lstpurpose1", "primid", "primpurp", "lstpurpose2", "arrpurpose2" %> If 'SelectBox' is a VBScript function that returns a string that you want inserted into the HTML document at that position, then you need to have an equal sign in front of it i.e.: <%=SelectBox ....%> Also if in VBScript if 'SelectBox' is a function don't you need to enclose the parameter list in parentheses for proper syntax? "But, that's just my opinion... I could be wrong". -pete

rotschreck · Jun 6, 2000

Sorry, I forgot to include the DynamicSelection.inc file. Fillarray and Selectbox are in there. ____________________________________________________________ <SCRIPT RUNAT="server" LANGUAGE="VBScript"> SUB SelectBox(rsOptions, strName, strValue, strDisplay, strSecondary, strArray) 'Creates a Select box from a recordset 'rsOptions the recordset which provides the data to display; 'strName the name we assign to the list within the HTML form; 'strValue the field for the value to be passed when the form is submitted; 'strDisplay the field to be displayed for each option in the list; 'strSecondary the Select list that will change in response to changes in ' the list being created here; 'strArray the array that will populate the list identified by strSecondary.    Response.Write vbCRLF & "<SELECT name=" & chr(34) & strName & chr(34) & _    " id=" & chr(34) & strName & chr(34) & _    " size=1 onChange=" & chr(34) & "ChangeOptions('" & _    strName & "', '" & strSecondary & "', '" & strArray & "')" & chr(34) & ">" & vbCRLF    Do Until rsOptions.EOF    Response.Write "<OPTION value=" & chr(34) & rsOptions.Fields(strValue) & chr(34) & ">"    Response.Write Trim(rsOptions.Fields(strDisplay)) & "</OPTION>" & vbCRLF    rsOptions.MoveNext LOOP Response.Write "</SELECT>" END SUB SUB FillArray(strArrName, rsSource, strKey, strValue, strDisplay) 'Populate arrOptions as a two dimensional array. 'strArrName, the name we give the array; 'rsSource, the recordset used to populate the array; 'strKey, the name of the recordset field that will provide the "key" values ' in the list’s options; 'strValue, the name of the recordset field that will provide the option ' values submitted as part of the HTML form; 'strDisplay, the name of the recordset field that will provide the display 'values in the list’s options. ' '[n][0] =matches the selected key from the primary list; '[n][1] =option value; '[n][2] =display Response.Write "<SC" & "RIPT LANGUAGE= ""JavaScript"">" & _ "var " & strArrName & " = new Array(); " & vbCRLF DIM intRow intRow = 0 DO UNTIL rsSource.EOF    Response.Write strArrName & "[" & CStr(intRow) & _    "] = new Array ('" & _    SingleQuote(Trim(rsSource (strKey))) & _    "', '" & rsSource(strValue) & _    "', '" & SingleQuote(Trim(rsSource(strDisplay))) & _    "');" & vbCRLF    intRow = intRow + 1    rsSource.MoveNext    Loop    Response.Write " </SC" & "RIPT>" END SUB Response.Write strArrName & "[" & CStr(intRow) & _    "] = new Array ('" & _    SingleQuote(Trim(rsSource (strKey))) & _    "', '" & rsSource(strValue) & _    "', '" & SingleQuote(Trim(rsSource(strDisplay))) & _    "');" & vbCRLF FUNCTION SingleQuote(strTarget)    '"Escapes" embedded single quote in a text string.    intPos = InStr(1, strTarget, "'&quot

DO WHILE intPos > 0       strTarget = Left(strTarget, intPos - 1) & "\'" & _       Right(strTarget, Len(strTarget) - intPos)       'Bump up TWO places because the original single quote has moved.       intPos = InStr(intPos + 2, strTarget, "'&quot

LOOP    SingleQuote = strTarget END FUNCTION </script> <a href=mailto: > </a> <a href=

http://www.geocities.com/siltharin>Rotschrck's

Eclectic Page</a>

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!

Dynamic list selections and my faulty FillArray.

rotschreck

Programmer

palbano

Programmer

rotschreck

Programmer

Similar threads

Part and Inventory Search

Sponsor