<% @ ENABLESESSIONSTATE=False %> <% Option Explicit Response.Buffer = True Dim FSO, MyTFile, count, sLine, Turbine Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set MyTFile = FSO.OpenTextFile(Server.MapPath("/database/newlistings.txt"),1,-2) count = 1 dim elementarray(10) dim mlsarray(10) Do While MyTFile.AtEndOfStream <> TRUE sLine = Trim(Server.HTMLEncode(MyTFile.ReadLine)) sLine = Split(sLine, "|") elementarray(count) = "Listing# " & sLine(0) & " " & FormatCurrency(sLine(1),0) & " " & sLine(3) mlsarray(count) = sLine(0) count = count + 1 Loop MyTFile.close Set FSO = Nothing Set Turbine = Server.CreateObject("Turbine7.ASP") Turbine.Width = 750 Turbine.Height = 600 Turbine.Color = "#000000" Turbine.Variable("image1") = "http://www.houseviewonline.com/images/" & mlsarray(1) & "/" & mlsarray(1) & ".jpg" Turbine.Variable("image2") = "http://www.houseviewonline.com/images/" & mlsarray(2) & "/" & mlsarray(2) & ".jpg" Turbine.Variable("image3") = "http://www.houseviewonline.com/images/" & mlsarray(3) & "/" & mlsarray(3) & ".jpg" Turbine.Variable("image4") = "http://www.houseviewonline.com/images/" & mlsarray(4) & "/" & mlsarray(4) & ".jpg" Turbine.Variable("image5") = "http://www.houseviewonline.com/images/" & mlsarray(5) & "/" & mlsarray(5) & ".jpg" Turbine.Variable("image6") = "http://www.houseviewonline.com/images/" & mlsarray(6) & "/" & mlsarray(6) & ".jpg" Turbine.Variable("image7") = "http://www.houseviewonline.com/images/" & mlsarray(7) & "/" & mlsarray(7) & ".jpg" Turbine.Variable("image8") = "http://www.houseviewonline.com/images/" & mlsarray(8) & "/" & mlsarray(8) & ".jpg" Turbine.Variable("image9") = "http://www.houseviewonline.com/images/" & mlsarray(9) & "/" & mlsarray(9) & ".jpg" Turbine.Variable("image10") = "http://www.houseviewonline.com/images/" & mlsarray(10) & "/" & mlsarray(10) & ".jpg" Turbine.Variable("text1") = elementarray(1) Turbine.Variable("text2") = elementarray(2) Turbine.Variable("text3") = elementarray(3) Turbine.Variable("text4") = elementarray(4) Turbine.Variable("text5") = elementarray(5) Turbine.Variable("text6") = elementarray(6) Turbine.Variable("text7") = elementarray(7) Turbine.Variable("text8") = elementarray(8) Turbine.Variable("text9") = elementarray(9) Turbine.Variable("text10") = elementarray(10) Turbine.Load "screensaver.swf" 'Turbine.GenerateHTMLFirst "" Response.Expires = -1 Turbine.GenerateFlash Set Turbine = Nothing %>