How to pass a client-side variable value (from inside a procedure) to server??

I need to pass the value of a variable to server to be appended to a SQL Query to be run at server.
The variable name is "ownerid" in function LoadTreeItemsOwnedBy(activity, ownerid) in client-side script.
How do I do that??

I have the following code :

Sub database_onclick()
Dim activity

<%

'************************* Creating DataBase Connection ************************************************

      set cn = server.CreateObject ("ADODB.Connection")            
      cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("Gantt.mdb")

%>

  Set activity = Nothing
 LoadTreeItemsOwnedBy activity, -1
End Sub
' activity is a pointer type at client side. So the following procedure can't be made to run at server '

Private Sub LoadTreeItemsOwnedBy(activity, ownerid)
Dim newactivity

<%

      selectstat = "select id,name,owningactivity from activity where owningactivity=-1"
    'selectstat = selectstat + cStr(ownerid)
    Set aRS = Server.CreateObject("ADODB.Recordset")
   
      aRS.Open selectstat, cn, 1, 1
      if aRS.EOF then
            response.write ("No Record Found")
      else
            'response.write("Records found" & aRS.RecordCount)
      end if

      aRS.MoveFirst

    While Not aRS.EOF

%>
        If activity Is Nothing Then
            Set newactivity = phGantX1.AddRootDataEntityTree
        Else
            Set newactivity = phGantX1.AddDataEntityTree(activity)
        End If
           
        'InitActivity newactivity

            '************** Directly write stmts in "InitActivity" instead of caling it *******************

            newactivity.UserIntegerReference = <%=aRS.Fields.Item("id").Value%>
            newactivity.Text = "<%=aRS.Fields.Item("Name").Value%>"
            newactivity.CanEdit = True
   
            LoadTimeItemsOwnedBy newactivity

            '**********************************************************************************************

        LoadTreeItemsOwnedBy newactivity, newactivity.UserIntegerReference
<%

            aRS.MoveNext
    Wend

%>

End Sub

Start Free Trial