Ошибка при использовании RS.AddNew - Visual Basic .NET

Формулировка задачи:

День добрый. Пытаюсь разобраться с ASP classic ( VBScript. Более подходящего раздела на форуме я не нашёл. Это не .NET ). Может кто работал с этой технологией. Поднял на машине IIS и MS SQL сервер. Выдал юзверю бд права, подключение прошло норм, получил id сессии и вывел инфу из бд. Вот только при попытке добавить запись получаю ошибку: "An error occurred on the server when processing the URL. Please contact the system administrator. If you are the system administrator please click here to find out more about this error." Собственно вот код:

                    Листинг программы
                
 
                            
                        
<h3> ASP DATABASE REQUEST </h3>
 
        <% 
            Dim Conn
            Set Conn = Server.CreateObject("ADODB.Connection")
            Session("DBConnectionString") = "Provider=SQLOLEDB; Data Source=DESKTOP-56C64NA\SQLEXPRESS;Initial Catalog=db_asp_2;Persist Security Info=True;User ID=asp_db_user; Password=140209; Database=db_asp_2;"        
 
            Conn.Open  Session("DBConnectionString")
 
            Response.Write("Session Id:&nbsp;" & Session.SessionID & "<br>")            
            
            Response.Write("Connection status:&nbsp;")
 
            IF IsObject(Conn) THEN
                Response.Write("connected to MS SQL DB<br>")
            ELSE 
                Response.Write("error connect to MS SQL DB<br>")
            END IF             
             
            Dim RS 
            Set RS = Server.CreateObject("ADODB.Recordset")  
                        
            Dim StrSQL
            StrSQL = "SELECT * FROM person"
            RS.Open StrSQL, Conn
 
            IF RS.BOF = True OR RS.EOF = True THEN 
                 Response.Write("<br>Data is empty")
            ELSE
                 Response.Write("Total rows:&nbsp;" & RS.RecordCount & "&nbsp;WTF?")
            END IF
            
        %>
 
        <% = "<hr><h3>Данные из таблицы 'Person':</h3>" %>
 
        <% Do While Not RS.EOF %>
        <%=RS("Id")%>
        <%="&nbsp;|&nbsp;" %>
        <%=RS("Name")%>
        <%="&nbsp;|&nbsp;" %>
        <%=RS("LastName")%>
        <%="&nbsp;|&nbsp;" %>
        <%=RS("Objective")%>
        <%="&nbsp;|&nbsp;" %>
        <%=RS("Fallower")%>
        <%="&nbsp;|&nbsp;" %>
        </br>
        <%
            RS.MoveNext
            Loop
        %>
        
 <%
            RS.AddNew
            RS("Id") = "7"
            RS("Name") = "Name_7"
            RS("LastName") = "LastName_7"
            RS("Objective") = "Objective_7"
            RS("Fallower") = "Fallower_7"       
            RS.Update
        %>
 
        <%
            RS.Close
            Conn.Close
        %>

Ещё один вопрос, как вывести код ошибки?

Решение задачи: «Ошибка при использовании RS.AddNew»

textual
                            Листинг программы 
                        
RS.Open StrSQL, Conn, 1, 3