A simple ASP Getting Started tutorial

A simple ASP Getting Started tutorial
<%
Dim strname,stremail,strhomepage,strcontent,strtable,strdsn
Strname=request.form ("name")
Stremail=request.form ("email")
Strhomepage=request.form ("homepage")
Strcontent=request.form ("content")
Strtoname=request.form ("ToName")
If trim (strname) = "" or trim (strcontent) = "" Then
Response.Write "

Name and contents cannot be empty "
%>

<b><a href=javascript: Hisory.back () > Prev </a>

<%
   response.end
end if
strtable= "message
strdsn=" Dsn=bbs;uid=feng; Pwd=feng "
Set rs=server.createobject (" Adodb.recordset ")
rs.open strtable,strdsn,1,3
Rs.addnew
Rs ("MessageName") =srname
Rs ("Messageemail") =stremail
Rs ("Messagehomepage") =strhomepage
RS ("Messagecontent") =strcontent
Rs ("Messagetoname") =strtoname
rs.update
Rs.close
set rs= Nothing
response.write  "Congratulations, your message was successfully sent to the administrator"
%>
</center>
</body>