Declaring global a variable inside a function

[Faheemi]

Hi there friends,

I want to be able to declare a variable inside a Function or Sub and want to access it in the other part of asp file. Is this is possible? I am using VbScript

Thanks for your help

Hameed

 

[Genimuse]

You need only declare it as a

Public

variable.

Instead of

    Dim myVariable

or

    Private myVariable

you use

    Public myVariable

The variable will then be available throughout the entire script.

 

[Faheemi]

If I assign like the following I am getting a syntax error message.

<%
Public a
Function test1()
a = 1000
End Function

Response.Write( &quot;a : &quot; & a & &quot;<br>&quot; )
test1()
Response.Write( &quot;a : &quot; & a & &quot;<br>&quot; )

%>


Please help. Thanks for your help

Hameed

 

[Genimuse]

I copied and pasted your code and had no problem, getting

a : 
a : 1000

as a result. What line is the syntax error on?

Technically when you call the function if you're not explicitly using the

Call

statement then you shouldn't use the parentheses, so you should either write it as

Response.Write( &quot;a  : &quot; & a & &quot;<br>&quot; )
test1
Response.Write( &quot;a  : &quot; & a & &quot;<br>&quot; )

or

Response.Write( &quot;a  : &quot; & a & &quot;<br>&quot; )
Call test1()
Response.Write( &quot;a  : &quot; & a & &quot;<br>&quot; )

 

[Faheemi]

Sorry,

I wanted to paste the following code but I pasted the other code wrongly. Please advise the following code is allowed...

<%
Function test1()
Public a
a = 1000
End Function

Response.Write( &quot;a : &quot; & a & &quot;<br>&quot; )
test1()
Response.Write( &quot;a : &quot; & a & &quot;<br>&quot; )

%>

I am getting the following error:

Microsoft VBScript compilation (0x800A03EA)
Syntax error
/test.asp, line 4

Thanks

Hameed

 

[Genimuse]

Ah, I see.

Well, I thought you could, but you clearly cannot. I would think there's a way to move the variable up/out in scope but I don't know how.

Sorry I wasn't more help.

 

[onpnt]

hmm.. well yes there is no public, private declarations in classic asp. from what I read all you want to do is declare a var in a function and then have access to it in other functions? sounds fairly simple of a idea with a bunch of possiblilities.
one pass it as a parameter, second give the value to the var by means of another revolving variable

Dim c
function this
dim a
a = &quot;that&quot;
c = a
call that
end function

function that
dim b
b = &quot;that&quot;
c = c+b
end function

response.write c 'output thisthat


then parameter passing

call this

function this
dim a
a = &quot;that&quot;
that(a)
end function

function that(val)
dim b
b = a & &quot;that&quot;
end function

response.write b 'output thisthat



____________________________________________________
_{get the best answer to your questions by asking the best questions &quot;General FAQ&quot; faq333-2924}

http://www.onpntwebdesigns.com

 

[Genimuse]

It's really hard to keep it all straight when you write VB, VBA, VBScript outside ASP, and VBScript inside ASP. Ugh.

 

[JamesLean]

onpnt,
Your examples don't actually work! The first one is OK but you just missed out the call to this() before Response.Writing c.

The second one fails because all your variables are declared within functions so you have no access to them in the main script body (ie Response.Write b).

Which actually answers the original question:
I want to be able to declare a variable inside a Function or Sub and want to access it in the other part of asp file. Is this is possible?

Answer: NO!

The funny thing is that Faheemi actually answered his own question by mis-copying his example. To be able to access a variable in the main body, it has to be declared in the main body. Any variable declared inside of a function only has scope for that function.

So you need to declare the variable outside of any function, even though you may then access that variable inside a function later on.

Option Explicit

Dim myvar

Response.Write &quot;myvar before call to sub: &quot; & myvar & &quot;<br />&quot;

Call mysub()

Response.Write &quot;myvar after call to sub: &quot; & myvar & &quot;<br />&quot;

Sub mysub()
  myvar = &quot;value assigned in sub&quot;
End Sub

--James

 

[onpnt]

from now on I need remember the suedocode line more often.

____________________________________________________
_{get the best answer to your questions by asking the best questions &quot;General FAQ&quot; faq333-2924}

http://www.onpntwebdesigns.com

 

[JamesLean]

Shouldn't that be pseudo-code?!

--James

 

[onpnt]

alright, jameslean is out for onpnt today grammatically and pragmatically

____________________________________________________
_{get the best answer to your questions by asking the best questions &quot;General FAQ&quot; faq333-2924}

http://www.onpntwebdesigns.com