reporting test score through email

Sending by email is set in the results tab of the test.Here is the issue..For this to work on the web you have to have an open port 25 to send the mail. Obviously this is a non starter or the world will spam the mbox.However if your web is actually an intranet, you can get IT to set up a virtual server with open relay on your side of the firewall . If not open relay set to your range of IP addresses. This will allow the mail to be sent.There are alternatives.1. Use a mailto asp program. there are many available ASPMailer is a good one2. and much better, scrap the email idea and set up and ASP file to capture the result and post it to a dbase stored online. This dbase needs to set to be accessed by system called testresults with the table results.Tho code below transfers simple set of fields (look at the into command) if you wanted to capture button presses etc you will need to edit.code for asp file:<%@ Language=VBScript %><%'Get the parameters posted from the test'testname=Request.form("TestName")score=Request.form("Score")name=Request.form("Name")numQuestions=Request.form("NumQuestions")passingGrade=Request.form("PassingGrade")trueFalse=Request.form( "TrueFalse" )multipleChoice=Request.form( "MultipleChoice" )'Validate that this is actually from a Lectora test'if testname="" Or score="" Or name="" Or numQuestions="" Or passingGrade="" Or trueFalse="" Or multipleChoice="" then Response.Write "" Response.Write "Failure " Response.Write "" Response.Write "STATUS=500" Response.Write "
" Response.Write "Could not parse test results due to a parameter error." Response.Write ""else 'Write the results to an access database' ' First let us create Connection and Recordset objects' Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.RecordSet") ' Open the connection to the ODBC source, in this case the Access database' Conn.Open "TestResults" ' Now, create the SQL statement' sSQL = "INSERT INTO Result(TestName,PassingGrade,NumQuestions,MultipleChoice,Tru eFalse,Name,Score) VALUES ( '" & testname & "', " & passingGrade & ", " & numQuestions & ", " & multipleChoice & ", " & trueFalse & ", '" & name & "', " & score & ")" ' Execute the SQL statement, and set the recordset object' ' to the result of this execution. We obtain the resulting' ' records in Rs object' Set Rs = Conn.Execute(sSQL) ' Close the Recordset object and destroy it' Set Rs = Nothing ' You might want to release the resources for connection object, ' ' unless you want to use the same connection again in the later code' Conn.Close Set Conn = Nothing 'The response is optional, it is good for debugging' Response.Write "" Response.Write "Success " Response.Write "" Response.Write "STATUS=200" Response.Write "
" Response.Write(sSQL) Response.Write "
" Response.Write "Success." Response.Write ""end if%>Neil