writecsv.asp:
<%
Dim fs, f, fac, fa, faa, fab, i, ii

Function writeCSV(file)	
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fs.OpenTextFile(Server.MapPath(file), 1)
	
	DO WHILE f.AtEndOfStream = false
	'Response.Write(f.ReadLine)
	'Response.Write("<br>")
	fac = fac & f.ReadLine & vbCrLf
	LOOP
	
	fa = "<TABLE BORDER=""1"">" & vbCrLf
	
	faa = Split(fac, vbCrLf)
		
	For i = 0 To UBound(faa) - 1
		fa = fa & "	<TR>" & vbCrLf
		fab = Split(faa(i), ";")
		For ii = 0 To UBound(fab)
			fa = fa & "		<TD>" & fab(ii) & "</TD>" & vbCrLf
		Next
		fa = fa & "	</TR>" & vbCrLf
	Next
	
	fa = fa & "</TABLE>"
	
	f.Close
	Set f = Nothing
	Set fs = Nothing
	writeCSV = fa
End Function
%>