Untitled

<HTML>
<BODY>
<%
    Dim intpreviousValue, intcurrentResult, intnumber, intsum
    intpreviousValue = -1
    intcurrentResult = 1
    intnumber = 10

    For intcount = 0 to intnumber - 1
        intsum = intcurrentResult + intpreviousValue
        intpreviousValue = intcurrentResult
        intcurrentResult = intsum
        Response.Write intcurrentResult & "<br>"
    Next
%>
</BODY>
</HTML>