<%
Set rsCarousel = Server.CreateObject("ADODB.Recordset")
rsCarousel.ActiveConnection = con_string
strlang="select * from Rotator_Photos where type='Movers'"
rsCarousel.Source = strlang
rsCarousel.CursorType = 0
rsCarousel.CursorLocation = 2
rsCarousel.LockType = 1
rsCarousel.Open()
carouselimages=""
do while not rsCarousel.eof
carouselimages=carouselimages&""
rsCarousel.movenext
loop
carouselimages=carouselimages&""
fsoForWriting=2
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Open the text file
Set objTextStream = objFSO.OpenTextFile(server.mappath("thumbnails\flashmo_thumbnails.xml"), fsoForWriting, True)
'Display the contents of the text file
objTextStream.WriteLine (carouselimages)
'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
%>