ASP Components Intermediate beginner and proficient series of five

Let's learn to look at the response object. In fact, we have been using the Write method of this object in previous tutorials.
Here we use the Response object to set cookies.
?
Open VB6 and create a new ActiveX DLL project. Project name modified to fcom, class name modified to FZ5
References the Microsoft Active Server Pages Object Library.
Create two component events: OnStartPage and OnEndPage
Creates a reference to the class Scriptingcontent in the event OnStartPage.
Instantiate class Scriptingcontent.
?
The code is as follows:
Option Explicit
' The Declaration of the object
Dim Myresponse as Response
Dim Myrequest as Request
Dim MyApplication as Application
Dim MyServer as Server
Dim MySession as session
?
??? ' Triggers this event when the component is created
Public Sub OnStartPage (myscriptingcontent as ScriptingContext)
???? ' To instantiate the object
???? Set Myresponse = Myscriptingcontent.response
???? Set myrequest = myscriptingcontent.request
???? Set MyServer = Myscriptingcontent.server
???? Set MyApplication = myscriptingcontent.application
???? Set mysession = myscriptingcontent.session
End Sub
?
??? ' Triggers this event when the component is destroyed
Public Sub OnEndPage ()
???? ' Destroy objects
???? Set Myresponse = Nothing
???? Set myrequest = Nothing
???? Set MyServer = Nothing
???? Set MyApplication = Nothing
???? Set mysession = Nothing
End Sub
?
' Set cookies from the page, the component gets
Public Sub GetCookie ()
??? Dim myitem
??? ' All information
??? For Each myitem in Myrequest.cookies
??????? Myresponse.write myitem & ":" & MyRequest.Cookies.Item (myitem)
??????? Myresponse.write "
"
??? Next
???
??? ' Single information
??? Myresponse.write "Where the user name is" & ":" & Myrequest.cookies ("username")
??? Myresponse.write "
"
??? Myresponse.write "in which the user age is &:" & Myrequest.cookies ("aged")
??? Myresponse.write "
"
End Sub