<%
Dim i, oString
Set oString = New ASPString
Response.Write "Call the Append method with 100 strings:
"
With oString
For i = 1 To 100
.Append ("Classic ASP is still alive and kicking!")
Next
End With
With oString
Response.Write "
NumberOfBytes : " & .NumberOfBytes
Response.Write "
NumberOfStrings : " & .NumberOfStrings
Response.Write "
NumberOfCharacters : " & .NumberOfCharacters
Response.Write "Now erase the string array by calling the Reset method:
"
.Reset()
End With
Response.Write "Call the Append method again with 200 strings:
"
With oString
For i = 1 To 200
.Append ("Classic ASP is still alive and kicking!")
Next
End With
With oString
Response.Write "
NumberOfBytes : " & .NumberOfBytes
Response.Write "
NumberOfStrings : " & .NumberOfStrings
Response.Write "
NumberOfCharacters : " & .NumberOfCharacters
Response.Write "Call the ToString method to print out the strings:
"
Response.Write .ToString()
End With
Set oString = Nothing
%>