Connecting Tech Pros Worldwide Forums | Help | Site Map

Back to Basics

John Peach
Guest
 
Posts: n/a
#1: Jun 18 '07

How to i pass an asp array to a client side vbscript array ?

Thanks

John



Evertjan.
Guest
 
Posts: n/a
#2: Jun 18 '07

re: Back to Basics


John Peach wrote on 18 jun 2007 in microsoft.public.inetserver.asp.general:
Quote:
How to i pass an asp array to a client side vbscript array ?
Assuming serverside vbs and an array of strings:

<script type = 'text/vbscript'>
dim a(17)
a(0) = "<% = a(0) %>"
a(1) = "<% = a(1) %>"
a(2) = "<% = a(2) %>"
a(3) = "<% = a(3) %>"
'' .....
</script>

or

<script type = 'text/vbscript'>
dim a(17)
<%
for i = 0 to 17
%>
a(<% = i %>) = "<% = a(i) %>"
<%
next
%>
</script>

or

As a string by using join() and split()

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)
Justin Piper
Guest
 
Posts: n/a
#3: Jun 18 '07

re: Back to Basics


On Mon, 18 Jun 2007 04:25:40 -0500, John Peach <john.peach@zen.co.uk
wrote:
Quote:
How to i pass an asp array to a client side vbscript array ?
If you're careful, one way would be to take a page from JSON and return
the data as VBScript source:

<% Option Explicit

Randomize
Dim a: a = Array(Fix(Rnd * 100), Fix(Rnd * 100), Fix(Rnd * 100))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<title>Test</title>
<script language="vbscript">
Option Explicit

Function DisplayData(values)
Document.GetElementById("output").InnerHTML = Join(a, ", ")
End Function
</script>
<body>
<div id="output"></div>
<script language="vbscript">
Option Explicit

Dim a: a = Array(<%= Join(a, ", ") %>)
DisplayData(a)
</script>
</body>

--
Justin Piper
Bizco Technologies
http://www.bizco.com/
Closed Thread