Classic ASP
Conversation with Streaming Responses

Demonstrates an AI conversation with receiving streaming responses.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set ai = Server.CreateObject("Chilkat.Ai")

' The provider can be "openai", "google", "claude", "deepseek", "xai", or "perplexity".
' Support for additional providers will be added in future versions of Chilkat.
ai.Provider = "google"

' Use your provider's API key.
ai.ApiKey = "MY_API_KEY"

' Choose a model.
ai.Model = "gemini-2.5-flash"

' Indicate streaming mode is to be used.
ai.Streaming = 1

' Create a new conversation to be maintained locally in memory.
' If the conversation is the first to be created, it is also automatically selected.
systemMsg = "You are a creative storyteller"
developerMsg = ""
conversationName = "test_conversation"
success = ai.NewConvo(conversationName,systemMsg,developerMsg)

' Add a text input.
success = ai.InputAddText("Write a detailed story about a turtle who decides to run a bakery.  Describe the setting, the kinds of pastries, how the turtle feels, and include at least three paragraphs.")

' Ask the AI for text output.
success = ai.Ask("text")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( ai.LastErrorText) & "</pre>"
    Response.End
End If

set sbEventName = Server.CreateObject("Chilkat.StringBuilder")
set sbDelta = Server.CreateObject("Chilkat.StringBuilder")
set sbFullResponse = Server.CreateObject("Chilkat.StringBuilder")
finished = 0
abortFlag = 0
maxWaitMs = 5000

Do While Not finished

    result = ai.PollAi(abortFlag)
    If (result = 1) Then
        ' We have output waiting.  It should be instantly available.  The maxWaitMs is just-in-case.
        success = ai.NextAiEvent(maxWaitMs,sbEventName,sbDelta)
        If (success = 0) Then
            Response.Write "<pre>" & Server.HTMLEncode( ai.LastErrorText) & "</pre>"
            Response.End
        End If

        ' Some AI providers send many "empty" events.  Just ignore them.
        If (Not sbEventName.ContentsEqual("empty",1)) Then

            ' The delta contains the new output.  This could be emitted to a display or the terminal
            ' as real-time output.
            If (sbEventName.ContentsEqual("delta",1)) Then
                ' This example will emit each delta to its own line.
                Response.Write "<pre>" & Server.HTMLEncode( sbDelta.GetAsString()) & "</pre>"

                ' Accumulate the delta's so we can show the full response later.
                success = sbFullResponse.AppendSb(sbDelta)
            Else
                ' A streaming AI response is always terminated by a single "null_terminator" event.
                finished = sbEventName.ContentsEqual("null_terminator",1)
            End If

        End If

    Else
        If (result = 0) Then
            ' Nothing is immediately available. Sleep for 1/10 of a second before polling again.
            ai.SleepMs 100
        Else
            ' Something failed..
            Response.Write "<pre>" & Server.HTMLEncode( ai.LastErrorText) & "</pre>"
            finished = 1
        End If

    End If

Loop

' -------------------------------------------------------------
' The response is in markdown format.
' Also see Markdown to HTML Conversion Examples.
' -------------------------------------------------------------

' Show the accumulated (full) response.
Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sbFullResponse.GetAsString()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"

' ----------------------------------------------------------------------------------------------------------
' For the 2nd request in this conversation, ask for a shorter version of the story.
success = ai.InputAddText("Rewrite the story, but this time make it shorter, about one third as long.")
success = ai.Ask("text")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( ai.LastErrorText) & "</pre>"
    Response.End
End If

sbFullResponse.Clear 
finished = 0

Do While Not finished

    result = ai.PollAi(abortFlag)
    If (result = 1) Then
        ' We have output waiting.  It should be instantly available.  The maxWaitMs is just-in-case.
        success = ai.NextAiEvent(maxWaitMs,sbEventName,sbDelta)
        If (success = 0) Then
            Response.Write "<pre>" & Server.HTMLEncode( ai.LastErrorText) & "</pre>"
            Response.End
        End If

        ' Some AI providers send many "empty" events.  Just ignore them.
        If (Not sbEventName.ContentsEqual("empty",1)) Then

            ' The delta contains the new output.  This could be emitted to a display or the terminal
            ' as real-time output.
            If (sbEventName.ContentsEqual("delta",1)) Then
                ' This example will emit each delta to its own line.
                Response.Write "<pre>" & Server.HTMLEncode( sbDelta.GetAsString()) & "</pre>"

                ' Accumulate the delta's so we can show the full response later.
                success = sbFullResponse.AppendSb(sbDelta)
            Else
                ' A streaming AI response is always terminated by a single "null_terminator" event.
                finished = sbEventName.ContentsEqual("null_terminator",1)
            End If

        End If

    Else
        If (result = 0) Then
            ' Nothing is immediately available. Sleep for 1/10 of a second before polling again.
            ai.SleepMs 100
        Else
            ' Something failed..
            Response.Write "<pre>" & Server.HTMLEncode( ai.LastErrorText) & "</pre>"
            finished = 1
        End If

    End If

Loop

Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sbFullResponse.GetAsString()) & "</pre>"

%>
</body>
</html>