Slide med asp och javascript

Har en javascriptkod som jag nu vill bygga om så att jag hämtar värderna(bild och länk) från en databas och sedan skriva ut det så att detta slidas. BIlderna sparas i en mapp med namn pics!Hoppas någon kan hjälpa mig!

<script language="JavaScript1.1">
<!--

//*****************************************
// Blending Image Slide Show Script- 
// © Dynamic Drive ([url]www.dynamicdrive.com[/url])
// For full source code, visit [url]http://www.dynamicdrive.com/[/url]
//*****************************************

//specify interval between slide (in mili seconds)
var slidespeed=3000

//specify images
var slideimages=new Array("pics/asa1.jpg","pics/asa2.jpg","pics/asa3.jpg")

//specify corresponding links
var slidelinks=new Array("http://www.dynamicdrive.com","http://javascriptkit.com","http://www.geocities.com")

var newwindow=1 //open links in new window? 1=yes, 0=no

var imageholder=new Array()
var ie=document.all
for (i=0;i<slideimages.length;i++){
imageholder[i]=new Image()
imageholder[i].src=slideimages[i]
}

function gotoshow(){
if (newwindow)
window.open(slidelinks[whichlink])
else
window.location=slidelinks[whichlink]
}

//-->
</script>

<a href="javascript:gotoshow()"><img src="image1.gif" name="slide" border=0 style="FILTER: progid:DXImageTransform.Microsoft.GradientWipe(MaxSquare=10,Duration=2)" width=97 height=100></a>

<script language="JavaScript1.1">
<!--

var whichlink=0
var whichimage=0
var blenddelay=(ie)? document.images.slide.filters[0].duration*1000 : 0
function slideit(){
if (!document.images) return
if (ie) document.images.slide.filters[0].apply()
document.images.slide.src=imageholder[whichimage].src
if (ie) document.images.slide.filters[0].play()
whichlink=whichimage
whichimage=(whichimage<slideimages.length-1)? whichimage+1 : 0
setTimeout("slideit()",slidespeed+blenddelay)
}
slideit()

//-->
</script>

Hmm... överst på sidan

<%
Dim rsImages, adoConn, strSQL

Set adoConn = Server.CreateObject("ADODB.Connection")
Set rsImage = Server.CreateObject("ADODB.RecordSet")

adoConn.Open [i]din anslutning...[/i]

strSQL = "SELECT strName, strLink FROM tblImages"
rsImage.Open strSQL, adoConn, 0, 1, 1
%>

Sedan i javascriptet

//specify interval between slide (in mili seconds)
var slidespeed=200
//specify images
var slideimages=new Array(<%=rsImages.RecordCount + 1%>)
//specify corresponding links
var slidelink=new Array(<%=rsImages.RecordCount + 1%>)
<%
i = 0
While Not rsImages.RecordCount
%>
  slideimages[<%=i%>] = "<%= rsImages("strName")%>"
  slidelink[<%=i%>] = "<%= rsImages("strLink")%>"
<%
  i = i + 1

  rsImages.MoveNext
Wend

Set rsImages = Nothing
Set adoConn = Nothing
%>

Nånting åt det hållet kan väl tänkas fungera. Blandingen mellan javascript och asp-kod på det sättet kanske inte är en höjdare, men det är ju bara att testa och se vad som händer :)