Help Please !!! Email test results

Still not working I get an error message - Not able to connect to email.asphere is what I have in the asp file. Did I make the right changes??? <%@ 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")q4=request.form("Question_0004")q5=request.form("Question_0005")q6=request.form("Question_0006")q7=request.form("Question_0007") 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: " & un & vbCrLf strBody=strBody & "Question 1: " & q1 & vbCrLf strBody=strBody & "Question 2: " & q2 & vbCrLf strBody=strBody & "Question 3: " & q3 & vbCrLfstrBody=strBody & "Question 4: " & q4 & vbCrLfstrBody=strBody & "Question 5: " & q5 & vbCrLfstrBody=strBody & "Question 6: " & q6 & vbCrLfstrBody=strBody & "Question 7: " & q7 & vbCrLf strBody=strBody & "Test Score: " & ts & "%" & vbCrLf '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 = "arlyn.c.goodwin@aexp.com" msg.From = "admin@email.com" msg.Subject = "Sending Final Test Results" ' use msg.TextBody if using IIS6 on your server msg.TextBody = strBody msg.Send set msg=nothing %>