---
title: "Svaren ska in i databas??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10096-svaren-ska-in-i-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Falle"
published: "2001-06-17T06:38:00.000Z"
updated: "2001-06-17T07:12:00.000Z"
replies: 1
views: 481
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10096-svaren-ska-in-i-databas"
---

# Svaren ska in i databas??

## #1 — Falle, 2001-06-17T06:38Z

Har problem med att få in svaren i en databas??

        \<%
' Takes a integer parameter and converts it to the appropriate letter
Function GetLetterFromAnswerNumber(iInput)
Dim strTemp
	Select Case iInput
		Case 0
			strTemp = "A"
		Case 1
			strTemp = "B"
		Case 2
			strTemp = "C"
		Case 3
			strTemp = "D"
		Case 4
			strTemp = "E"
		Case 5
			strTemp = "F"
	End Select
GetLetterFromAnswerNumber = strTemp
End Function

' To simplify and streamline the code I split this line into many parts,
' wrapped it into a function and commented it so you'd have a better
' chance of figuring out what I'm doing since I usually can't!
Function GetAnswerFromAnswerString(iQuestionNumber, strAnswers)
Dim strTemp
Dim iOffset
	' I use InStrRev since I want to retrieve the last entered value
	' in case they went back and changed their mind. 
	
	' Find the location of the question number we want to use
	iOffset = InStrRev(strAnswers, "&#0124;" & iQuestionNumber & "&#0124;", -1, 1)
	
	' Get our answer by using the offset we just found and then moving
	' right the length of the question indicator to arrive at the
	' appropriate letter
	strTemp = Mid(strAnswers, iOffset + Len("&#0124;" & iQuestionNumber & "&#0124;"), 1)

	' There's no way it should be anything else, but to be sure we
	' convert it to a string and make sure it's uppercase
GetAnswerFromAnswerString = UCase(CStr(strTemp))
End Function
%\>
        \<%

' If this is the first call to the quiz then init everything
' o/w retrieve values we need.  We check by looking for the
' Question ID from the querystring.
If Request.QueryString("qid") = "" Then
	' Retrieve and Set the Quiz Info
	If USE_DB_FOR_INFO Then
		' Code to use DB!
		' Create DB connection and connect to the DB
		Set cnnQuiz = Server.CreateObject("ADODB.Connection")
		cnnQuiz.Open DB_CONN_STRING
		
		' Create RS and query DB for quiz info
		Set rsQuiz = Server.CreateObject("ADODB.Recordset")
		rsQuiz.Open "SELECT \* FROM quizzes WHERE quiz_id=" & QUIZ_ID & ";", cnnQuiz
		
		' Set our session vars
		Session("QuizName") = CStr(rsQuiz.Fields("quiz_name").Value)
		Session("NumberOfQuestions") = CInt(rsQuiz.Fields("number_of_questions").Value)
		
		

	Else
		' If we're not going to the DB, hard code in values here!
		' BEGIN HARD CODE
		Session("QuizName") = "Fotbolls Quiz"
		Session("NumberOfQuestions") = 10
		'Session("PercentageToPass") = 70
		' END HARD CODE
	End If

	' Set our question indicator to 1 and init our answer string
	iQuestionNumber = 1
	Session("AnswerString") = "&#0124;"
Else
	'Check to be sure we've still got a session!
	If Session("AnswerString") = "" Then
		Response.Write "I'm sorry, but you've taken too long.  You can start over by "
		Response.Write "clicking \<A HREF=""" & Request.ServerVariables("URL") & """\>here\</A\>."
		' I'd normally just do a response.end, but I can't because I'm inside of our
		' site template.  I need the script to complete so I've declared and set a Flag
		'Response.End
		bAbort = True
	End If
	
	' Get the number of the question we're processing
	iQuestionNumber = CInt(Request.QueryString("qid"))
		
	' Log selected answer to last question
	Session("AnswerString") = Session("AnswerString") & iQuestionNumber & "&#0124;" & \_
		GetLetterFromAnswerNumber(CInt(Request.QueryString("sa"))) & "&#0124;"
	
	' Increment question identifier
	iQuestionNumber = iQuestionNumber + 1
End If

' If session has expired then skip all the code.
' Equivalently, only run all the code if it hasn't!
If Not bAbort Then

	' Set this to a local variable to avoid accessing the collection each time
	' This isn't required, but makes it easier for me to access and
	' supposedly speeds it up... I'm not sure how much, but it can't hurt!
	iNumberOfQuestions = Session("NumberOfQuestions")

	' Check to see it the quiz is over.  If so then show results, o/w
	' ask the next question
	If iQuestionNumber \> iNumberOfQuestions Then
		' Process results and show end quiz status report
		
		' Done for the same reason as for iNumberOfQuestions a few lines above
		strAnswers = Session("AnswerString")
		
		' Useful for debugging
		'Response.Write strAnswers & "\<BR\>" & vbCrLf & "\<BR\>" & vbCrLf

		' Bug hunting once again... I didn't even come across any real bugs on this trip!
		' Could you imagine the ammo I'd take if it was real hunting I was doing!
		'For I = 1 to iNumberOfQuestions
		'	Response.Write GetAnswerFromAnswerString(I, strAnswers) & "\<BR\>" & vbCrLf
		'Next 'I

		' Retrieve Correct Answers and compare to the entered ones
		If USE_DB_FOR_INFO Then
			' Code to use DB!
			' Create DB connection and connect to the DB
			Set cnnQuiz = Server.CreateObject("ADODB.Connection")
			cnnQuiz.Open DB_CONN_STRING
				
			' Create RS and query DB for quiz info
			Set rsQuiz = Server.CreateObject("ADODB.Recordset")
			' Specify 3, 1 (Static, Read Only)
			rsQuiz.Open "SELECT \* FROM questions WHERE quiz_id=" & QUIZ_ID & \_
				" ORDER BY question_number;", cnnQuiz, 3, 1
				
			iScore = 0
			I = 1
			Do While Not rsQuiz.EOF
				If UCase(CStr(rsQuiz.Fields("correct_answer").Value)) = \_
					GetAnswerFromAnswerString(I, strAnswers) Then
					
					iScore = iScore + 1
					' This and the Else could be used to output a
					' correctness status for each question
					' Also useful for bug hunting!
					'Response.Write "Right" & "\<BR\>" & vbCrLf
				Else
					'Response.Write "Wrong" & "\<BR\>" & vbCrLf
					strResults = strResults & I & ", "
				End If
				I = I + 1
				rsQuiz.MoveNext
			Loop

			' Close and dispose of our DB objects
			rsQuiz.Close
			Set rsQuiz = Nothing
			cnnQuiz.Close
			Set cnnQuiz = Nothing
		Else
			' If we're not going to the DB, hard code in answer values here!
			' BEGIN HARD CODE
			aAnswers = Array("B", "A", "A", "E", "D", "A", "E", "E", "A", "A")
			' END HARD CODE
			
			iScore = 0
			For I = 1 to iNumberOfQuestions
				If UCase(CStr(aAnswers(I - 1))) = \_
					GetAnswerFromAnswerString(I, strAnswers) Then
					
					iScore = iScore + 1
					' This and the Else could be used to output a
					' correctness status for each question
					' Also useful for bug hunting!
					'Response.Write "Right" & "\<BR\>" & vbCrLf
				Else
					'Response.Write "Wrong" & "\<BR\>" & vbCrLf
					strResults = strResults & I & ", "
				End If
			Next 'I
		End If

		' Convert score to a percentage rounded to the whole number
		iScore = Round((iScore / iNumberOfQuestions) \* 100)
		%\>
        \<BR\>
        \<input type="submit" name="Submit" value="Submit"\>
        \<%
		If iScore \>= Session("PercentageToPass") Then 
			Response.Write "Tack för din medverkan"
			'Response.Write iScore & "%.\<BR\>" & vbCrLf
		Else
			Response.Write "Sorry!  You needed to achieve a score of "
			Response.Write Session("PercentageToPass") & "% or higher to pass.  "
			Response.Write "Unfortunately, your score was only " & iScore & "%.  "
			Response.Write "You can take the test again by clicking \<A HREF="""
			Response.Write Request.ServerVariables("URL") & """\>here\</A\>.\<BR\>" & vbCrLf
		End If
		Response.Write "\<BR\>" & vbCrLf
		If Len(strResults) \<\> 0 Then
			'Response.Write "You missed the following questions: " & Left(strResults, Len(strResults) - 2)
			'Response.Write "\<BR\>" & vbCrLf
		End If
		'Response.Write iScore & "%"

		' This is also where you could log the results if you wanted to.
		' In it's simplest form, you would simply log strAnswers to a file,
		' but you could format little "report cards" or log the result to a
		' separate data source.
	Else
		' Retrieve and Set the Question Info
		If USE_DB_FOR_INFO Then
			' Code to use DB!
			' Create DB connection and connect to the DB
			Set cnnQuiz = Server.CreateObject("ADODB.Connection")
			cnnQuiz.Open DB_CONN_STRING
				
			' Create RS and query DB for quiz info
			Set rsQuiz = Server.CreateObject("ADODB.Recordset")
			rsQuiz.Open "SELECT \* FROM questions WHERE quiz_id=" \_
				& QUIZ_ID & " AND question_number=" & iQuestionNumber & ";", cnnQuiz
				
			' Set our question info
			strQuestionText = CStr(rsQuiz.Fields("question_text").Value)
			
			' Get an array of answers
			aAnswers = Array( \_
			CStr(rsQuiz.Fields("answer_a").Value & ""), \_
			CStr(rsQuiz.Fields("answer_b").Value & ""), \_
			CStr(rsQuiz.Fields("answer_c").Value & ""), \_
			CStr(rsQuiz.Fields("answer_d").Value & ""), \_
			CStr(rsQuiz.Fields("answer_e").Value & ""), \_
			CStr(rsQuiz.Fields("answer_f").Value & ""))
				
			' This is probably bad coding style, but too bad... it works!
			For I = LBound(aAnswers) To UBound(aAnswers)
				If aAnswers(I) = "" Then
					ReDim Preserve aAnswers(I - 1)
					Exit For
				End If
			Next ' I

			' Close and dispose of our DB objects
			rsQuiz.Close
			Set rsQuiz = Nothing
			cnnQuiz.Close
			Set cnnQuiz = Nothing
		Else
			' If we're not going to the DB, hard code in values here!
			' BEGIN HARD CODE
			Select Case iQuestionNumber
				Case 1
					strQuestionText = "Vilken bollstorlek använder ni?"
					aAnswers = Array( \_
						"Size 1", \_
						"Size 4", \_
						"Size 24", \_
						"Size 100", \_
						"Size 5", \_
						"Size 312")
					
				Case 2
					strQuestionText = "What command is \<%= %\> equivalent to?"
					aAnswers = Array( \_
						"Response.Write", \_
						"Request.Write", \_
						"Referer.Write", \_
						"Redirect.Write", \_
						"Reasonably.Write", \_
						"Damn It I'm Right!")
				Case 3
					strQuestionText = "What does &quot;Option Explicit&quot; do?"
					aAnswers = Array( \_
						"Requires explicit variable declaration", \_
						"Makes the computer give you additional errors", \_
						"Converts a PG rated programming language into one rated NC-17")
				Case 4
					strQuestionText = "Which of the following is not a valid "
					strQuestionText = strQuestionText & "VBScript looping statement?"
					aAnswers = Array( \_
						"Do...Loop", \_
						"While...Wend", \_
						"For...Next", \_
						"For Each...Next", \_
						"Just do this 10 times you stupid computer!")
				Case 5
					strQuestionText = "What language can you not use to write ASP?"
					aAnswers = Array( \_
						"VBScript", \_
						"JavaScript (JScript)", \_
						"PerlScript", \_
						"SuperScript")
				Case 6
					strQuestionText = "Where does ASP code execute?"
					aAnswers = Array( \_
						"On the web server", \_
						"In the client's browser", \_
						"On any machine it wants to", \_
						"Reportedly somewhere in Washington State")
				Case 7
					strQuestionText = "Which set of acronyms is not associated with ASP?"
					aAnswers = Array( \_
						"CDO, CDONTS", \_
						"ADO, RDS, DAO, ODBC", \_
						"IIS, PWS, MMC", \_
						"ADSI, XML", \_
						"B&Ouml;C, OU812, GNR, BTO")
				Case 8
					strQuestionText = "Which of the following is not something you can get "
					strQuestionText = strQuestionText & "from the Request collection?"
					aAnswers = Array( \_
						"Cookies", \_
						"Form", \_
						"QueryString", \_
						"ServerVariables", \_
						"Beer", \_
						"ClientCertificate")
				Case 9
					strQuestionText = "What will this script output when run?\<BR\>\<BR\>\<%\<BR\>"
					strQuestionText = strQuestionText & "Dim aTempArray\<BR\>Dim I\<BR\>"
					strQuestionText = strQuestionText & "aTempArray = Array(1, 2, 3)\<BR\>"
					strQuestionText = strQuestionText & "For I = LBound(aTempArray) To "
					strQuestionText = strQuestionText & "Ubound(aTempArray)\<BR\>"
					strQuestionText = strQuestionText & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
					strQuestionText = strQuestionText & "Response.Write I & &quot&nbsp;&quot;\<BR\>"
					strQuestionText = strQuestionText & "Next 'I\<BR\>%\>\<BR\>"
					aAnswers = Array( \_
						"0 1 2", \_
						"1 2 3", \_
						"0\<BR\>1\<BR\>2\<BR\>", \_
						"1\<BR\>2\<BR\>3\<BR\>")
				Case 10
					strQuestionText = "What is the URL of the best ASP web site?"
					aAnswers = Array("http://www.asp101.com (yeah... like we'd put any other choices here!)")
			End Select
			' END HARD CODE
		End If

		' Now that we've got the variables set...
		' show the appropriate question and choices
		%\>
        \<FONT SIZE="+2"\>\<B\>\<%= Session("QuizName") %\>\</B\>\</FONT\>\<BR\>
        \<BR\>
        Svarsstapel: 
        \<%
		Const BAR_LENGTH = 160
		If iQuestionNumber = 1 Then
			' Since a 0 width is ignored by the browsers we need to remove the image altogether!
			Response.Write "\<IMG SRC=""./images/spacer_blue.gif"" HEIGHT=""10"" WIDTH="""
			Response.Write BAR_LENGTH
			Response.Write """\>\<BR\>"
		Else
			Response.Write "\<IMG SRC=""./images/spacer_white.gif"" HEIGHT=""10"" WIDTH="""
			Response.Write (BAR_LENGTH / iNumberOfQuestions) \* (iQuestionNumber - 1) 
			Response.Write """\>"
			Response.Write "\<IMG SRC=""./images/spacer_blue.gif"" HEIGHT=""10"" WIDTH="""
			Response.Write (BAR_LENGTH / iNumberOfQuestions) \* (iNumberOfQuestions - (iQuestionNumber - 1))
			Response.Write """\>\<BR\>"
		End If
		%\>
        Fr&aring;ga\<%= iQuestionNumber %\> av\<%= iNumberOfQuestions %\>\<BR\>
        \<BR\>
        \<STRONG\>\<%= iQuestionNumber %\>.\</STRONG\>&nbsp;&nbsp;\<%= strQuestionText %\>\<BR\>
        \<BR\>
        \<STRONG\>Alternativ:\</STRONG\> 
        \<OL TYPE="A"\>
          \<%
		For I = LBound(aAnswers) to UBound(aAnswers)
			Response.Write "\<LI\>\<A HREF=""" & Request.ServerVariables("URL")
			Response.Write "?qid=" & iQuestionNumber & "&sa=" & I & """\>"
			Response.Write aAnswers(I) & "\</A\>\</LI\>" & vbCrLf
		Next 'I
		%\>
        \</OL\>
        \<%
	End If
End If 'bAbort
%\>

Permalänk: https://www.webforum.nu/p/10096

## #2 — icaaq, 2001-06-17T07:12Z

> Har problem med att få in svaren i en databas??

puh...
vad är problemet??
lite mer exakt :) (det är nog fler än jag som inte orkar läsa igenom denna kod)

Permalänk: https://www.webforum.nu/p/275134

---

Tråden på webben: https://www.webforum.nu/amne/asp/10096-svaren-ska-in-i-databas