jest zapisanie uwag i danych wpisujcego w bazie danych. Oto gwny blok kodu:
<%
Option Explicit
If IsEmpty(Request.QueryString("ProductID")) and _
  IsEmpty(Request.Form("ProductID"))Then
  Response.Redirect "./product_catalog.asp"
End If
Dim conn
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "nep2tune"
conn.execute "insert into ASPSessionPages (SessionID, PageName) values (" _
  & Session("SessionID") & ", " _
  & "'Product" & Request.QueryString("ProductID") & "')"
If not IsEmpty(Request.Form("ProductID")) Then
  conn.execute "insert into ASPProductComments (ProductID, CommentName, " _
    & "CommentFrom, Comment) values (" _
    & Request.Form("ProductID") & ", " _
    & "'" & Request.Form("CommentName") & "', " _
    & "'" & Request.Form("CommentFrom") & "', " _
    & "'" & Request.Form("Comment") & "')"
  Response.Redirect "./product.asp?ProductID=" & Request.Form("ProductID")
End If
%>
