Листинг 2. Код процедур tplSimple_ProcessTag и WebClass_Start()

Private Sub tplSimple_ProcessTag( ByVal TagName As String, _
                                 TagContents As String, SendTags As 
              Boolean)            
                                 ‘ динамическая замена тэгов
                                 Select Case TagName
                                 Case “WC@TAGTITLE”
                                      TagContents = Session(“Title”)
                                 Case “WC@TAGEMAIL”
                                      TagContents = “Email:<br>” & _
                                         “<input type=’text’” & _
                                         “ value=’” & Session(“Email”) 
              & “‘“ & _                        
                                         “ name=’Email’><br>”
                                 Case “WC@TAGNAME”
                                      TagContents = “Имя:<br>” & _
                                         “<input type=’text’” & _
                                         “ value=’” & Session(“Name”) 
              & “‘“ & _                         
                                         “ name=’Name’><br>”
                                 End Select
End Sub                          
                                      
Private Sub WebClass_Start()     
                                 Session(“Title”) = _
                                         “Введите свою информацию для
              регистрации:”
                                 ‘ Выводит исходный HTML-шаблон
                                 tplSimple.WriteTemplate
End Sub