Help Please !!! Email test results

Ok, I am still not getting it. I have absolutely no knowledge as it relates to CGI scripting. I have a test that I want the results to be emailed to the address included however it is not working. Can someone please review the script below and hightlight my errors? I am really in need of assistance. I keep reading the same documents over and over again but I really am not understanding what I need to do..... <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>Untitled Document<%@ Language=VBScript %>
<%

' the variable names on the right in the quotes correspond to the variable names you created in Lectora

' the variable names on the left do not have to agree with the names on the right but it is a good convention

un=request.form("Entry_0001")
q1=request.form("Question_0001")
q2=request.form("Question_0002")
q3=request.form("Question_0003")
ts=request.form("Test_1_Score")

' The variable name below outside of the quotes must agree with the variable name on the left above

strBody=""
strBody=strBody & "User Name: " Entry_001; vbCrLf
strBody=strBody & "Question 1: " Question_0001;
strBody=strBody & "Question 2: " Question_0002;
strBody=strBody & "Question 3: " Question_0003;
strBody=strBody & "Test Score: " Test_1_Score; "%" &
'body of email

' Send the e-mail
Set msg = CreateObject("CDO.Message")
msg.Configuration.Fields.Item( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.Configuration.Fields.Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
msg.Configuration.Fields.Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnecti ontimeout") = 10
msg.Configuration.Fields.Update

' type in the recipents
msg.To = "agoodwi@cox.net"
msg.From = "admin@email.com"
msg.Subject = "Sending Final Test Results - Service Performance Online "
' use msg.TextBody if using IIS6 on your server
msg.TextBody = strBody
msg.Send

set msg=nothing
%>