Hi - I hope you can help. I am trying to create a slideshow on one of my asp pages. I have downloaded code from:
http://www.barelyfitz.com/webapps/apps/slideshow/
to create the slide show and it works great.

Here is the javascript used in the section I am having the problem:

<SCRIPT type="text/javascript">
<!--
SLIDES = new slideshow("SLIDES");

s = new slide();
s.src = "images/Barry/Barry1.jpg";
s.text = "";
SLIDES.add_slide(s);

s = new slide();
s.src = "images/Barry/Barry2.jpg";
s.text = "";
SLIDES.add_slide(s);

s = new slide();
s.src = "images/Barry/Barry3.jpg";
s.text = "";
SLIDES.add_slide(s);
//-->
</SCRIPT>

For each image I want added to the slideshow I must repeat this code:
s = new slide();
s.src = "images/Barry/Barry1.jpg";
s.text = "";
SLIDES.add_slide(s);

I have a recordset containing the image names. Is there any way to incorporate a do until rs.eof -- loop around the javascript code?

Thanks for your help!

can't you re-write your asp code in JS?

If not you'll have to provide JS wrapper function to call the SLIDES object because VBS can't use JS objects.

I have done this before, but have never heard someone suggest doing it. Maybe there's a good reason that I haven't heard it suggested before, but here goes:

You can incorporate both together by using VBScript to write out the JS, just like you can use it to generate HTML. Example:

<%
Response.Write "<script language='JavaScript'>" & chr(10) & chr(13)
Response.Write "function sampleJS () {" & chr(10) & chr(13)

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "TableName", sConnect, adOpenStatic, adLockOptimistic, adCmdTable
While Not rs.eof
Response.Write "document.write 'here is the first field: '" & rs("SampleField") & chr(10) & chr(13)
rs.MoveNext
Wend
Response.Write "}" & chr(10) & chr(13)
Response.Write "</script>"

I hope that helps.