<%@ LANGUAGE=»VBScript» %>

<%
Response.Buffer = TRUE
file=»»
file=CreateTempFile(«»)
call Write(file,»Test»)
color=»#d0fdc8»
for i=0 to 1999
	if color=»#d0fdc8» then
		color=»#9ef988»
	else
		color=»#d0fdc8»
	end if
	call Write(file,»»)
	call Write(file,»»)
	call Write(file,»»)
	call Write(file,»»)
next
call Write (file,»
Row «+CStr(i)+»»+CStr(Rnd(i))+»
»)
call Compress(file)
call Send(file)
call DeleteFiles(file&».txt»)
call DeleteFiles(file&».gz»)
%>