Листинг 3. Код процедур tplSimple_RegisterMe()

Private Sub tplSimple_RegisterMe()
     Dim rs As ADODB.Recordset, Connect As String
     ‘ имя базы данных и тип доступа
     Connect = “DBQ=c:\register.mdb;Driver={Microsoft Access 
Driver (*.mdb)}” 
     
     If Len(Request.Form(“Email”)) = 0 Then
          Session(“Title”) = _
               “Пожалуйста, введите свой Email адрес!”
          Session(“Email”) = “”
          Session(“Name”) = “”
     Else ‘ введен адрес E-mail
          Session(“Email”) = Request.Form(“Email”)
          Session(“Name”) = Request.Form(“Name”)
          Set rs = New ADODB.Recordset
          rs.Open “Users”, Connect, _
               adOpenDynamic, adLockOptimistic
          If Not rs.EOF Then _
               rs.Find “Email=’” & (Session(“Email”)) & “‘“
          If rs.EOF Then
               rs.AddNew
               rs!Email = Session(“Email”)
               rs!Name = Session(“Name”)
               rs.Update
              Session(“Title”) = “Вот, что Вы ввели!”
          Else
              Session(“Email”) = rs!Email
              Session(“Name”) = rs!Name
              Session(“Title”) = _
                  “Запись с таким адресом уже существует!”
          End If
     End If
     ‘ формирование новой ASP-страницы
     tplSimple.WriteTemplate
     If Not rs Is Nothing Then rs.Close
End Sub