<%
   Response.Expires = 0 
   Response.Buffer = TRUE
   Response.Clear
   Response.contenttype = "text/txt"

   Response.Write("title ; Generate with ASP " & vbCrLf)
   Response.Write("col ; Result ; 8421600 " & vbCrLf)
   Response.Write("1/1/1998 ;  -1 " & vbCrLf)
   Response.Write("1/2/1998 ;   1 " & vbCrLf)
   Response.Write("1/3/1998 ;  -2 " & vbCrLf)
   Response.Write("1/4/1998 ;  -3 " & vbCrLf)
   Response.Write("1/5/1998 ;  -2 " & vbCrLf)
   Response.Write("1/6/1998 ;  -1 " & vbCrLf)
   Response.Write("1/7/1998 ;   3 " & vbCrLf)

   Response.End
%>