Passing Parameters as variables

baywatch · Apr 25, 1999

I have an ActiveX treeView Control, 
I need to pass a node parameter (the node.name) 
to a textbox 
 
any Ideas??? Code Follows, notice NewNode.Key is = to strTopicTitle ----- If I could somehow pass that value... 
 
********** CODE BELOW ************************** 
 
<% Response.Buffer = True %> 
 
 
<Html> 
<head> 
<META name=VI60_defaultClientScript content=VBScript> 
<title>Shore Side Tracking</title> 
 
 
 
 
 
</head> 
 
<Body BgColor="#FFFFFF" Link="#003366" Vlink="#006633" ALink="#000000" bgProperties=fixed> 
 
 
 
 
<Form name="treeForm" action="name.asp" method="post"> 
<table border="0" valign="top" width="100%"> 
<tr> 
<td valign="top"> 
 
 
<% 
Dim objConn 
Set objConn = Server.CreateObject ("ADODB.Connection") 
' Access Conection String for Development #################################################### 
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mapPath("data/esd.mdb") 
'Oracle Connection String #################################################################### 
'objConn = "DRIVER={Microsoft ODBC for Oracle};UID=esdtav;SERVER=oracle;User Id=esdtav;PASSWORD=esdtav;" 
 
strSQL = "SELECT * " & "From xxx ORDER BY Esd_ID" 
'strSQL = "SELECT Parent, Esd_Name, esdtav_ID FROM xxx Where Class <> '' " & "ORDER BY Class" 
Set oRS = objConn.Execute(strSQL, LngRecs, 1) ' Fetch a Recordset 
 
%> 
 
<% 
Quot = Chr(34) ' Double Quotes 
Crlf = Chr(10) ' Carriage return 
 
Dim sTxt 
Dim iDex 
 
 
 
' Setup the VbScript 
Response.Write "<script language=" & Quot & "VbScript" & Quot & ">" & Crlf 
Response.Write "Sub window_onLoad()" & Crlf 
Response.Write "Dim newNode, ssChild" & Crlf 
Response.Write "SSTree1.LabelEdit=0" & Crlf 
Response.Write "SSTree1.LineStyle=1" & Crlf 
Response.Write "ssChild = 4" & Crlf & Crlf 
 
 
' Setup The Root Dir, which we call "CG" 
Response.Write "Set newNode = SSTree1.Nodes.Add()" & Crlf 
Response.Write "newNode.Key =" & Quot & "CG" & Quot & Crlf 
Response.Write "newNode.TagVariant = " & Quot & "REPORT1.ASP?esdid=1&" & "esdname=cg" & Quot & Crlf 
Response.Write "newNode.Text = " & Quot & "CG" & Quot & Crlf 
Response.Write "newNode.Expanded = True" & Crlf 
Response.Write "newnode.font.size = 8" & Crlf 
Response.Write "newNode.Font.Bold = True" & Crlf 
Response.Write "newNode.ForeColor = rgb(0,0,1)" & Crlf & Crlf 
 
 
'Declare Variables 
strCurrentClass = "" 
Do While Not oRS.EOF 'Loop until EOF 
strNewClass = oRS.Fields("ESDParent") 'Parent Nodes 
strTopicTitle = oRS.Fields("ESD_Name") 'Child Nodes 
strEsdID = oRS.Fields("Esd_ID") 'ID 
 
' Setup the control and populate it with data 
' Something buggy here 
 
Response.Write "Set newNode = SSTree1.Nodes.Add(" & Quot & strNewClass & Quot & ", ssChild," & Quot & strTopicTitle & Quot & ")" & Crlf 
Response.Write "newNode.Key =" & Quot & strTopicTitle & Quot & Crlf 
Response.Write "newNode.TagVariant = " & Quot & "REPORT1.ASP?esdid=" & strEsdID &"+" & strTopicTitle & Quot & Crlf 
Response.Write "newNode.Text = " & Quot & strTopicTitle & Quot & Crlf 
Response.Write "newNode.Expanded = True" & Crlf 
Response.Write "newNode.LoadStyleChildren = 3" & Crlf 
Response.Write "newnode.font.size = 8" & Crlf 
Response.Write "newNode.Font.Bold = True" & Crlf 
Response.Write "newNode.ForeColor = rgb(0,0,1)" & Crlf & Crlf 
 
oRS.MoveNext 
Loop ' Loop thru the Rs to pull out all the data 
%> 
 
<% 
' Put the finish on the VbScript 
Response.Write "End Sub" & Crlf 
Response.Write "Sub SSTree1_NodeClick(ItemClicked)" & Crlf 
Response.Write "If ItemClicked.Level > 1 then" & Crlf 
Response.Write "End If" & Crlf 
Response.Write "End Sub" & Crlf & Crlf 
 
Response.Write "Sub button1_onclick()" & Crlf 
Response.Write "IF SSTree1.SelectedItem.TagVariant <>" & Quot & Quot & "THEN" & Crlf 
Response.Write "window.parent.frames(" & Quot & "reports" & Quot & ").location.href = SSTree1.SelectedItem.TagVariant" & Crlf 
Response.Write "End IF" & Crlf 
Response.Write "End Sub" & Crlf 
Response.Write "</SCRIPT>" & Crlf 
%> 
 
 
</form> 
 
 
 <OBJECT classid="clsid:1C203F13-95AD-11D0-A84B-00A0247B735B" height=800 id=SSTree1 
style="HEIGHT: 800px; LEFT: 0px; TOP: 0px; WIDTH: 260px" width=260 name="treeview" border="2"> 
<PARAM NAME="_ExtentX" VALUE="10663"> 
<PARAM NAME="_ExtentY" VALUE="7699"> 
<PARAM NAME="_Version" VALUE="65538"> 
<PARAM NAME="BackColor" VALUE="#CCC3FF"> 
<PARAM NAME="ForeColor" VALUE="#FFFFFF"> 
<PARAM NAME="ImagesMaskColor" VALUE="12632256"> 
<PARAM NAME="PictureBackgroundMaskColor" VALUE="12632256"> 
<PARAM NAME="Appearance" VALUE="0"> 
<PARAM NAME="BorderStyle" VALUE="0"> 
<PARAM NAME="LabelEdit" VALUE="1"> 
<PARAM NAME="LineStyle" VALUE="0"> 
<PARAM NAME="LineType" VALUE="1"> 
<PARAM NAME="MousePointer" VALUE="1"> 
<PARAM NAME="NodeSelectionStyle" VALUE="1"> 
<PARAM NAME="PictureAlignment" VALUE="Left"> 
<PARAM NAME="ScrollStyle" VALUE="1"> 
<PARAM NAME="Style" VALUE="7"> 
<PARAM NAME="IndentationStyle" VALUE="1"> 
<PARAM NAME="TreeTips" VALUE="3"> 
<PARAM NAME="PictureBackgroundStyle" VALUE="5"> 
<PARAM NAME="Indentation" VALUE="12"> 
<PARAM NAME="MaxLines" VALUE="1"> 
<PARAM NAME="TreeTipDelay" VALUE="900"> 
<PARAM NAME="ImageCount" VALUE="0"> 
<PARAM NAME="ImageListIndex" VALUE="-1"> 
<PARAM NAME="OLEDragMode" VALUE="1"> 
<PARAM NAME="OLEDropMode" VALUE="1"> 
<PARAM NAME="AllowDelete" VALUE="1"> 
<PARAM NAME="AutoSearch" VALUE="1"> 
<PARAM NAME="Enabled" VALUE="1"> 
<PARAM NAME="HideSelection" VALUE="1"> 
<PARAM NAME="ImagesUseMask" VALUE="1"> 
<PARAM NAME="Redraw" VALUE="1"> 
<PARAM NAME="UseImageList" VALUE="0"> 
<PARAM NAME="PictureBackgroundUseMask" VALUE="0"> 
<PARAM NAME="HasFont" VALUE="4"> 
<PARAM NAME="Font" VALUE="arial, 8"> 
<PARAM NAME="HasMouseIcon" VALUE="0"> 
<PARAM NAME="HasPictureBackground" VALUE="0"> 
<PARAM NAME="PathSeparator" VALUE="\"> 
<PARAM NAME="TabStops" VALUE="6"> 
<PARAM NAME="ImageList" VALUE="images/book.gif"> 
<PARAM NAME="LoadStyleRoot" VALUE="0"> 
<PARAM NAME="Sorted" VALUE="1"> 
<PARAM NAME="OnDemandDiscardBuffer" VALUE="500"></OBJECT> 
 
</td> 
<td valign="top" align="right"> 
<IFRAME align="right" Name="reports" FrameBorder="0" resizable="yes" Scrolling="auto" marginheight="2" marginwidth="2" width="500" height="800" src="/ax/report1.asp"> 
</IFRAME> 
</td> 
 
</tr> 
</table> 
 
</body></html>

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!

Passing Parameters as variables

baywatch

Programmer

Similar threads

Part and Inventory Search

Sponsor