Prov ASP script

<% @ Language = VBScript%>
			<%
			Komma parametrarna bokförts från testet "
			testname = Request.Form ( "TestName")
			poäng = Request.Form ( "Score")
			user = Request.Form ( "namn")
			numQuestions = Request.Form ( "NumQuestions")
			passingGrade = Request.Form ( "PassingGrade")

			"Bekräfta att detta är faktiskt från ett test"
			om testname = "" Eller poäng = "" Eller user = "" Eller numQuestions = "" Eller passingGrade = "" sedan
			Response.Write "<html>"
			Response.Write "<head> <title> Fel </ title> </ head>"
			Response.Write "<body>"
			Response.Write "STATUS = 500"
			Response.Write "Review,"
			Response.Write "Det gick inte att tolka testresultaten på grund av en parameter fel."
			Response.Write "</ body> </ html>"
			annan
			'Skriv resultatet till en fil med samma namn som test'
			"Detta kan vara en databas eller någon typ av objekt butik, men '
			"Att hålla det enkelt, kommer vi bara använda en platt textfil"
			filename = "c: \" & testname & ".log"
  
			"Öppna resultatfilen för append"
			Const ForReading = 1, ForWriting = 2, ForAppending = 8

			Ställa objFSO = Create ( "Scripting.FileSystemObject")

			om inte objFSO.FileExists (filnamn) sedan
			objFSO.CreateTextFile (filename)
			end if

			Ställ objInFile = objFSO.OpenTextFile (filnamn, ForAppending, sant)

			"Skriv resultatet"
			objInFile.WriteLine (Datum & "," & Time & "," & användare & "," & poäng)

			"Äldre kurser producerade av Lectora använde ett nollbaserat index för frågorna"
			"(Dvs. Question0 är den första frågan)
			"Nyare kurser är en baserade (dvs. question1 är den första frågan)
			"Fastställa vilket som är det"
			Dim startindex
			valTemp = Request.Form ( "Question0")
			if (valTemp = "") sedan
			startindex = 1
			annan
			startindex = 0
			end if

			"Skriv alla frågor och svar"
			för i = start till Cint (start + numQuestions-1)
			nameQ = "Fråga" + CStr (i)
			NAMEA = "Answer" + CStr (i)
			valQ = Request.Form (nameQ)
			Vala = Request.Form (NAMEA)
			objInFile.WriteLine (nameQ & ":" & valQ)
			objInFile.WriteLine (NAMEA & ":" & Vala)
			Nästa

			"Nära resultat fil '
			objInFile.Close
			Ställa objInFile = Ingenting
			Ställa objFSO = Ingenting
			end if
			%>