Using ASP to export the contents of SQL search to txt code _javascript tips

<!--#include file= "inc/conn.asp"-->
<%
Dim rs,sql,filename,fso,myfile,x

Set FSO = server. CreateObject ("Scripting.FileSystemObject")
filename = Server.MapPath ("Download.txt")
If FSO. FileExists (filename) Then
Fso. DeleteFile (filename)
End If
'--Create TXT file
Set myfile = FSO. CreateTextFile (Filename,true)

Set rs = Server.CreateObject ("ADODB.") Recordset ")
sql = "SELECT * FROM UserFile"
Rs. Open sql,conn,1,1
If Rs. EOF and Rs. BOF Then
Response.Write "No Data"
Else
Dim strline,responsestr
Strline= ""
'--Writes the table's column name first to TXT
For each x in Rs.fields
StrLine = strLine & X.name & Chr (9)
Next
MyFile.WriteLine StrLine
Do but not Rs. Eof
Strline= ""
For each x in Rs. Fields
StrLine = strLine & X.value & Chr (9)
Next
'--writes table data to TXT
MyFile.WriteLine StrLine
Rs. MoveNext
Loop
End If
Rs. Close
Set rs = Nothing
Response.contenttype= "Application/x-msdownload"
Response.Redirect "Download.txt"
%>