muestra de secuencia de comandos ASP

<% @ Language = VBScript%>
			<%
			"Obtener los parámetros publicados a partir del ensayo '
			nombre_prueba = Request.Form ( "TestName")
			Puntuación = Request.Form ( "Score")
			user = Request.Form ( "nombre")
			numQuestions = Request.Form ( "") NumQuestions
			passingGrade = Request.Form ( "PassingGrade")

			'Validar que se trata en realidad de una prueba'
			si nombre_prueba = "" O puntuación = "" O user = "" O numQuestions = "" O passingGrade = "", entonces
			Response.Write "<html>"
			Response.Write "<head> <title> Insuficiencia </ title> </ head>"
			Response.Write "<body>"
			Response.Write "STATUS = 500"
			Response.Write "<br>"
			Response.Write "No se pudo analizar resultados de la prueba debido a un error de parámetro".
			Response.Write "</ body> </ html>"
			más
			"Escribir los resultados en un archivo denominado el mismo que la prueba '
			"Esto podría ser una base de datos o cualquier tipo de almacén de objetos, pero '
			'Que sea sencillo, que sólo utilizará un archivo de texto plano'
			filename = "c: \" & nombre_prueba y ".log"
  
			'Abrir el archivo de resultados para append'
			Const ForReading = 1, ForWriting = 2, ForAppending = 8

			Establecer objFSO = CreateObject ( "Scripting.FileSystemObject")

			si no objFSO.FileExists (nombre del archivo), entonces
			objFSO.CreateTextFile (nombre del archivo)
			terminara si

			Establecer objInFile = objFSO.OpenTextFile (nombre del archivo, ForAppending, True)

			"Escribir los resultados '
			objInFile.WriteLine (Fecha & "," & Time & "," & usuario & "," & puntuación)

			'Mayores cursos producidos por Lectora utilizan un índice basado en cero para las preguntas'
			'(Es decir, Question0 es la primera pregunta)'
			'Cursos nuevos son uno basado (es decir Pregunta1 es la primera pregunta)'
			'Determinar cuál es'
			Dim startIndex
			valTemp = Request.Form ( "Question0")
			si (valTemp = ""), entonces
			startIndex = 1
			más
			startIndex = 0
			terminara si

			"Escribir todas las preguntas y respuestas '
			para i = startIndex a cint (startIndex + numQuestions-1)
			nameQ = "Pregunta" + CStr (i)
			nombreA = "respuesta" + CStr (i)
			valQ = Request.Form (nameQ)
			Vala = Request.Form (nombreA)
			objInFile.WriteLine (nameQ & ":" & valQ)
			objInFile.WriteLine (nombreA & ":" & Vala)
			Siguiente

			'Cerrar archivo de resultados'
			objInFile.Close
			Establecer objInFile = Nada
			Establecer objFSO = Nada
			terminara si
			%>