How to access variable from subroutine or function in <body> ??

snr · Apr 23, 2002

Hi,
I have defined a list box "A" in one form. Depending on the value of the list box item "A", I have to create another list box "B".
How can get the value of A, to create a recordset for B?
I have tried by writing onchange trigger on A ... But it doesnt allow me to create recordset in the function/Subroutine. Even I am not able to access the variable defined in the function / Subroutine , in the main program.

Thanks.

SarkMan · Apr 23, 2002

Its easier to see what is happening if you post the code

snr · Apr 23, 2002

<body>

<script language = "vbscript">
sub get_client()
manid = document.xyz.manid.value
end sub
</script>

<form method="POST" action="abc.asp" name = "xyz" id= "xyz">
<select tabindex="1" id="ManID" name="ManID" onfocus= "get_client()">
<option VALUE="1">1</option>
<option VALUE="2">2</option>
<option VALUE="3">3</option>
<option VALUE="4">4</option>
</select>

<%
set cnn = Server.CreateObject("ADODB.connection&quot

set rs = server.CreateObject("ADODB.recordset&quot

strcnn= "PROVIDER=SqlOLEDB.1;......................."
cnn.open strcnn
dim sqlstmt
sqlstmt ="select client from clientmaster where man_id ='" & manid & "'"

*************************************
' The manid , is the variable value of that list item, which I am trying to get from get_client() .
*************************************************
rs.open sqlstmt,cnn,adopendynamic,adlockoptimistic,adcmdtext
%>
******************************************
I have to create one more list box from "rs"
*******************************************

</form>

SarkMan · Apr 23, 2002

It looks like you are mixing client side with server side vbscript. To do this server side:

<body>

<script language = "vbscript">
sub secondDropDownOnChange()
document.xyz.action="abc.asp"
document.xyz.submit()
end sub
</script>

<form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME&quot

%>" name = "xyz" id= "xyz">
<select tabindex="1" id="ManID" name="ManID" onchange= "document.xyz.submit()">
<option VALUE="1">1</option>
<option VALUE="2">2</option>
<option VALUE="3">3</option>
<option VALUE="4">4</option>
</select>

<%
manid=Request.Form("ManID&quot

Response.Write manid
'check the variable manid. if is is
' not blank then display the other
'drop down
if manid<>"" then
set cnn = Server.CreateObject("ADODB.connection&quot

set rs = server.CreateObject("ADODB.recordset&quot

strcnn= "PROVIDER=SqlOLEDB.1;......................."
cnn.open strcnn
dim sqlstmt
sqlstmt ="select client from clientmaster where man_id ='" & manid & "'"

*************************************
' The manid , is the variable value of that list item, which I am trying to get from get_client() .
*************************************************
rs.open sqlstmt,cnn,adopendynamic,adlockoptimistic,adcmdtext

end if
%>
******************************************
I have to create one more list box from "rs"
*******************************************

</form>

snr · Apr 24, 2002

I didn't get what you mean.......
Can you please explain it ?

Thanks

SarkMan · Apr 24, 2002

OK

<body>
*********************
this is a client side script. the server does not know what is happening here.You have a variable called manid.
**************************************
<script language = "vbscript">
sub get_client()
manid = document.xyz.manid.value
end sub
</script>

<form method="POST" action="abc.asp" name = "xyz" id= "xyz">
<select tabindex="1" id="ManID" name="ManID" onfocus= "get_client()">
<option VALUE="1">1</option>
<option VALUE="2">2</option>
<option VALUE="3">3</option>
<option VALUE="4">4</option>
</select>

This starts your server side script. You are trying to access the variable manid that is not declared on the server. the only place that I see it declared is in the client side script above. To make this available to the server you need to resubmit the page after the value in the list box changes then capture that value using the request object like this
<%manid=request.form("ManId&quot

%>
Then you can use the value to create a server side recordset hitting the database with the value from the first select box
<%
set cnn = Server.CreateObject("ADODB.connection&quot

set rs = server.CreateObject("ADODB.recordset&quot

strcnn= "PROVIDER=SqlOLEDB.1;......................."
cnn.open strcnn
dim sqlstmt
sqlstmt ="select client from clientmaster where man_id ='" & manid & "'"

*************************************
' The manid , is the variable value of that list item, which I am trying to get from get_client() .
*************************************************
rs.open sqlstmt,cnn,adopendynamic,adlockoptimistic,adcmdtext
%>
******************************************
I have to create one more list box from "rs"
*******************************************

</form>

snr · Apr 24, 2002

Thanks .............
I will try this & definitely let you know.

Thanks again !

snr · Apr 24, 2002

It is giving problem on
sub secondDropDownOnChange()
this line saying "invalid character"

I don't think there is anything wrong . Do I have to make any setting change on server for accepting
Request.ServerVariables("SCRIPT_NAME&quot

?

Did you try running this code on your end ? Is it giving you the same error ?

I am pasting the code once again ........

<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<script language = "vbscript">
sub  ClientIDOnChange()
      document.order.submit()
end sub
</script>

</head>

<body>

<form method="POST" action="<%=request.serverVariables("SCRIPT_NAME&quot

%>" name = "order" id= "order">

<select id="ManID" name="ManID" onchange = "document.order.submit()">
<option VALUE="ABC">ABC</option>
<option VALUE="CDF">CDF</option>
</select>

<%
manid=Request.Form("ManID&quot

Response.Write manid
if manid <> "" then
set cnn = Server.CreateObject("ADODB.connection&quot

set rs = server.CreateObject("ADODB.recordset&quot

strcnn= "PROVIDER=SqlOLEDB.1;persist securityinfo = false ;initial catalog = XYZ;USER Id=userID;Password=passwd;Data source = SERVER "
cnn.open strcnn
dim sqlstmt
sqlstmt ="select cl_id from Tblclmaster where man_id ='" &manid &"'"
rs.open sqlstmt,cnn,adopendynamic,adlockoptimistic,adcmdtext %>

<select id="clientID" name="ClientID" MAXLENGTH="20" >
<%do until rs.eof%>
<option value= "<%Response.Write rs("cl_id&quot

%>" >
<% Response.Write rs("cl_id&quot

rs.MoveNext
loop
set rs = nothing %>
<option value="" selected>
</select>
<%end if%>

</form>
</body>
</html>

I don't know whats going wrong..........

Thanks

SarkMan · Apr 24, 2002

The code works fine on my machine . What is the error you are getting?

SarkMan · Apr 24, 2002

Oops. Didn't test the second select
change it from
<select id="clientID" name="ClientID" MAXLENGTH="20" >

to this
<select id="clientID" name="ClientID" MAXLENGTH="20" onchange="ClientIDOnChange()" >

snr · Apr 24, 2002

Thanks ,
but I had already done that , forgot to write.
1) It is giving error at
sub ClientIDOnChange()
as " Runtime error ***** Invalid Character "
and it is printing
" name = "order" id= "order"> and then list box.

2) and the second error is
line 21
object doen't support the property Or Method
"document.order"
after I change select 2nd item from list box.

Are you not getting these errors ?

SarkMan · Apr 24, 2002

What is the name of your page? The request.servervariables("SCRIPT_NAME&quot

is a variable with the name of your page.
Try printing that out to see what you get.

You could also change the form tag
<form method="POST" action="<%=request.serverVariables("SCRIPT_NAME&quot

%>" name = "order" id= "order">

to
<form method="POST" action="Put Your page name here" name = "order" id= "order">

snr · Apr 24, 2002

The second error is gone
and even it is not printing
" name = "order" id= "order"> and then list box.

But it is still giving "Invalid Character "
error on the Sub ClientIDOnChange()
line ............

SarkMan · Apr 24, 2002

after the page gets the error goto view source, copy and post that info

snr · Apr 24, 2002

<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<script language="vbscript">
Sub  clientID_onchange()
document.order.action = "abc.asp"
      document.order.submit()
end sub
</script>

</head>

<body>

<form method="POST" action="order_normal.asp" name = "order" id= "order">

<select id="ManID" name="ManID" onchange ="document.order.submit()">
<option VALUE="ABC">ABC</option>
<option VALUE="CDF">CDF</option>
</select>

</form>
</body>
</html>

This is the code , I got from View Source

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!

How to access variable from subroutine or function in <body> ??

snr

Programmer

SarkMan

Programmer

snr

Programmer

SarkMan

Programmer

snr

Programmer

SarkMan

Programmer

snr

Programmer

snr

Programmer

SarkMan

Programmer

SarkMan

Programmer

snr

Programmer

SarkMan

Programmer

snr

Programmer

SarkMan

Programmer

snr

Programmer

Similar threads

Part and Inventory Search

Sponsor

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!

How to access variable from subroutine or function in &lt;body&gt; ??

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor

How to access variable from subroutine or function in <body> ??