Two linked combos populated using remote scripting.

Contributed by Adrian Forbes
Rating:

/ 7
January 01, 2003

Rate this Article:
MEH MEH++

SEARCH ASP FREE

This is the remote scripting file used by RSCombos and RSTreeView.htm. Note:that with the remote scripting samples there is a hard-coded path to the relevant support files, this will have to be changed appropriately for people to get the demos to work on their own system. These demo's only work with Internet Explorer 5.0.

First Page--RSCombos.htm

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Two Combos using Remote Scripting</TITLE>
</HEAD>
<BODY>

<script language="JavaScript" src="../_scriptlibrary/rs.htm"></script>
<script language="JavaScript">RSEnableRemoteScripting("../_scriptlibrary");
</script>
<p>
<select onChange="PopulateChildren()" name=cboParents ID=cboParent size=1>
 </select><select name=cboChildren ID=cboChildren size=1></select>
</p>

<script language=VBScript>
strDBPage = "RSDatabase.asp"

sub Window_onLoad
    PopulateParent
    PopulateChildren
end sub

sub PopulateParent

    set objParents = document.all("cboParents")
    set objRS = RSExecute(strDBPage ,"GetDBParents")
    sRS = objRS.return_value
    aRows = Split(sRS, Chr(13))

    for i = 0 to UBound(aRows) - 1
        aFields = Split(aRows(i), ";")
        set objOption = document.createElement ("OPTION")
        objOption.Value = aFields(0)
        objOption.Text = aFields(1)
        objParents.add objOption
    next
end sub

sub PopulateChildren
    set objParents = document.all("cboParents")
    set objChildren = document.all("cboChildren")
    while objChildren.length > 0
        objChildren.remove (0)
    wend

    set objRS = RSExecute(strDBPage ,"GetDBChildren", objParents.value)
    sRS = objRS.return_value
    aRows = Split(sRS, Chr(13))

    for i = 0 to UBound(aRows) - 1
        aFields = Split(aRows(i), ";")
        set objOption = document.createElement ("OPTION")
        objOption.Value = aFields(0)
        objOption.Text = aFields(1)
        objChildren.add objOption
    next
end sub
</script>
</BODY>
</HTML>

Page 2 RSDatabase.asp

<%@ LANGUAGE=VBSCRIPT %>
<%
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;
UID=LoginID;PWD=Password;DATABASE=Database_Name
%>
<% RSDispatch %>


<SCRIPT RUNAT=SERVER Language=javascript>
    function Description()
    {
        this.GetDBParents = Function( 'return GetDBParents()' );
        this.GetDBChildren = Function('ID', 'return GetDBChildren(ID)' );
        this.Method1 = Method1;
    }
    public_description = new Description();

function Method1()
{
    return 'Test';
}
</script>

<SCRIPT RUNAT=SERVER Language=VBScript>
    function GetDBParents()

        set objRS = createobject("ADODB.Recordset")
        objRS.Open "select ID, strParent from Parents", strconn
        GetDBParents = objRS.GetString(, , ";")
        objRS.Close
        set objRS.ActiveConnection = nothing
        set objRS = nothing

    end function

    function GetDBChildren(ID)

        set objRS = createobject("ADODB.Recordset")
        objRS.Open "select ID, strChild from Children WHERE intParent=" & ID, strconn
        GetDBChildren = objRS.GetString(, , ";")
        objRS.Close
        set objRS.ActiveConnection = nothing
        set objRS = nothing

    end function
</SCRIPT>