O que esse código faz?

Alguém pode comentar e explicar esse código para mim??? Muito obrigada

<%
Option Explicit
%>
<%
Session("nome") = Request.Form("nome")
Session("email") = Request.Form("email")
Session("comentarios") = Request.Form("comentarios")
%>
<%
Response.Expires = 0
DIM msgTexto, email, msgTexto02, email02
msgTexto = "" & vbCRLF
msgTexto = msgTexto & " DADOS PESSOAIS: " & vbCRLF
msgTexto = msgTexto & vbCRLF
msgTexto = msgTexto & " Nome: " & Session("nome") & vbCRLF
msgTexto = msgTexto & " E-mail: " & Session("email") & vbCRLF
msgTexto = msgTexto & vbCRLF
msgTexto = msgTexto & vbCRLF
msgTexto = msgTexto & " MENSAGEM: " & vbCRLF
msgTexto = msgTexto & vbCRLF
msgTexto = msgTexto & " " & Session("comentarios") & vbCRLF
Set email = Server.CreateObject("CDONTS.NewMail")
Email.From = Session("email")
Email.To = "artfix@artfix.com.br"
Email.Subject = "CONTATO / SITE"
Email.Body = msgTexto
Email.Send
Set Email = Nothing
Session.Abandon
%>
<%
Response.Redirect "index.html"
%>