Generating JS files with Asp+fso

Asp+|fso|js <!--#include file= "conn.asp"-->
<%
Set js = Server. CreateObject ("ADODB.") RecordSet ")
Sql= "SELECT top * from article ORDER BY id DESC"
Set JS = conn. Execute (SQL)
Do as not js.eof
Title=js ("title")
Addate=js ("Addate")
Foolcat = Foolcat + "<li><a href=" "/" & JS ("id") & ". htm" ">" &title& "" &addate& "</ A></li><br> "
Js.movenext
Loop
' Generate JS file
Foolcat = "" + Foolcat + ""
Foolcat = "document.write ('" & Foolcat & ")"
FolderPath = Server.MapPath ("./")
Set FSO = Server.CreateObject ("Scripting.FileSystemObject")
Set fout = fso. CreateTextFile (folderpath& "\top10.js")
Fout. WriteLine Foolcat
' Close the connection
Fout.close
Set fout = Nothing
Js.close
Set js = Nothing
Conn.close
Set conn=nothing
%>