<%
	
	Const adOpenForwardOnly = 0
	Const adOpenKeyset = 1
	Const adOpenDynamic = 2
	Const adOpenStatic = 3
	Const adLockReadOnly = 1
	Const adLockPessimistic = 2
	Const adLockOptimistic = 3
	Const adLockBatchOptimistic = 4

	On Error Resume Next

	n = 0

	titrequiz = Request.Form("titre")

	nom = Request.Form("nom")

	erreur = true

	if (len(nom & "--") > 2) Then

		erreur = false

		Set dcnDB = Server.CreateObject("ADODB.Connection")

%>
<!-- #include file="donnees.asp" --> 
<%

      	dcnDB.Open strDatabaseLocation 

		nbQuestions = Request.Form("nbQuestions")

		set rsProd = Server.CreateObject("ADODB.Recordset")
		rsProd.Open "SELECT * FROM Questionnaire", dcnDB, adOpenKeyset, adLockPessimistic
		rsProd.AddNew
		
		nom = Replace(nom, "'", "’")
		nom = Replace(nom, "&#8217;", "’")
		rsProd("nom") = nom
		courriel = Request.Form("courriel")
		courriel = Replace(courriel, "'", "’")
		courriel = Replace(courriel, "&#8217;", "’")
		rsProd("courriel") = courriel 
		coordonnees = Request.Form("coordonnees")
		coordonnees = Replace(coordonnees, "'", "’")
		coordonnees = Replace(coordonnees, "&#8217;", "’")
		rsProd("coordonnees") = coordonnees 
		titrequiz = Replace(titrequiz, "'", "’")
		titrequiz = Replace(titrequiz, "&#8217;", "’")
		rsProd("titre") = titrequiz 
		'rsProd("titrecompar") = Mid(titrequiz, 1, 255) 
		note = Request.Form("note")
		rsProd("note") = note
		

		y = InStr(note, "/")

		notenumerique = Mid(note, 1, y-1)

		notenumerique = Replace(notenumerique, ",", "")

		rsProd("notenumerique") = notenumerique

		dateetheure = Now()
		dateCourante = Date()

		If CInt(Month(dateCourante)) < 10 Then 
	  		dateenordre = Year(dateCourante) & " 0" & Month(dateCourante)
	  		dateetheureaffichee = Year(dateCourante) & "-0" & Month(dateCourante)
		Else
	  		dateenordre = Year(dateCourante) & " " & Month(dateCourante)
	  		dateetheureaffichee = Year(dateCourante) & "-" & Month(dateCourante)
		End If

		If CInt(Day(dateCourante)) < 10 Then 
	  		dateenordre = dateenordre & " 0" & Day(dateCourante)
 	  		dateetheureaffichee = dateetheureaffichee & "-0" & Day(dateCourante)
		Else
	  		dateenordre = dateenordre & " " & Day(dateCourante)
	  		dateetheureaffichee = dateetheureaffichee & "-" & Day(dateCourante)
		End If

		dateetheureaffichee = dateetheureaffichee  & " à"

		If CInt(Hour(dateetheure)) < 10 Then 
	  		dateenordre = dateenordre & " 0" & Hour(dateetheure)
	  		dateetheureaffichee = dateetheureaffichee & " 0" & Hour(dateetheure)
		Else
	  		dateenordre = dateenordre & " " & Hour(dateetheure)
	  		dateetheureaffichee = dateetheureaffichee& " " & Hour(dateetheure)
		End If

		If CInt(Minute(dateetheure)) < 10 Then 
	  		dateenordre = dateenordre & " 0" & Minute(dateetheure)
	  		dateetheureaffichee = dateetheureaffichee& ":0" & Minute(dateetheure)
		Else
	  		dateenordre = dateenordre & " " & Minute(dateetheure)
	  		dateetheureaffichee = dateetheureaffichee & ":" & Minute(dateetheure)
		End If

		If CInt(Second(dateetheure)) < 10 Then 
	  		dateenordre = dateenordre & " 0" & Second(dateetheure)
	  		dateetheureaffichee = dateetheureaffichee & ":0" & Second(dateetheure)
		Else
	  		dateenordre= dateenordre & " " & Second(dateetheure)
	  		dateetheureaffichee = dateetheureaffichee& ":" & Second(dateetheure)
		End If

		rsProd("date_heure") = dateetheureaffichee
		rsProd("date_ordre") = dateenordre

		rsProd.Update

   		rsProd.Close

		set rsProd1 = Server.CreateObject("ADODB.Recordset")
		rsProd1.Open "SELECT * FROM Questionnaire", dcnDB, adOpenKeyset, adLockPessimistic

		strSQL = "SELECT * FROM Questionnaire WHERE NOM LIKE '" & nom & "' AND DATE_HEURE LIKE '" & dateetheureaffichee & "' AND note LIKE '" & note & "'"
		Set rsProd1 = dcnDB.Execute(strSQL)

		Do While Not rsProd1.EOF

			numero = rsProd1("participantID")

			For i = 0 to (nbQuestions - 1)

				set rsProd = Server.CreateObject("ADODB.Recordset")
				rsProd.Open "SELECT * FROM Resultat_Question", dcnDB, adOpenKeyset, adLockPessimistic

				rsProd.AddNew
	
				rsProd("ID_Participant") = numero 
				rsProd("NoQuestionWeb") = (i + 1)
				rsProd("NoQuestion") = Request.Form("correspondance" & i)
				rsProd("TypeQuestion") = Request.Form("typeQuestion" & i)
				rsProd("Resultat") = Request.Form("detail" & i)
				rsProd("NbEssais") = Request.Form("champNbEssais" & i)
				rsProd("Reponse") = Request.Form("reponse" & i)
				'rsProd("Titrequiz") = Mid(titrequiz, 1, 255)  

				rsProd.Update

   				rsProd.Close

			Next	

			n = n + 1

			rsProd1.MoveNext

		Loop

   		rsProd1.Close

		dcnDB.Close

	End If
%>
<HTML>

	<HEAD>
		<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
		<TITLE>Soumission des r&eacute;sultats</TITLE>
		<LINK REL="stylesheet" HREF="admin.css" TYPE="text/css">
	</HEAD>

	<BODY BGCOLOR="WHITE">
	<CENTER><BR><BR>
	<TABLE WIDTH="70%" BORDER="0">
		<% 

		If (n > 0 AND erreur = false) Then

			Response.Write "<TR><TD><H2>" & Request.Form("nom") & "</H2></TD></TR>"
			Response.Write "<TR><TD><H2>" & Request.Form("courriel") & "</H2></TD></TR>"
			Response.Write "<TR><TD><H2>" & Request.Form("coordonnees") & "</H2></TD></TR>"
			Response.Write "<TR><TD><H2>" & Request.Form("aujourdhui") & "</H2></TD></TR>"
			Response.Write "<TR><TD ALIGN=""CENTER""><H1>" & Request.Form("titre") & "</H1></TD></TR>"

			If Request.Form("afficher") = 1 Then
				Response.Write "<TR><TD ALIGN=""CENTER""><H2>Votre questionnaire a &eacute;t&eacute; soumis.</H2></TD></TR>"				
				Response.Write "<TR><TD ALIGN=""CENTER""><H2><B>R&eacute;sultats&nbsp;&nbsp;&nbsp;" & Request.Form("note") & "</B></H2></TD></TR>"
				Response.Write "</TABLE>"
				Response.Write "<TABLE CELLPADDING=""0"" CELLSPACING=""10"" WIDTH=""40%"" BORDER=""0"" ALIGN=""CENTER"">"
				Response.Write "<TR ALIGN=""CENTER""><TD WIDTH=""40%""><H2><B>Question</B></TD><TD WIDTH=""60%""><H2><B>Points</B></TD></TR>"	
				For i = 0 to (nbQuestions - 1)

					Response.Write "<TR ALIGN=""CENTER""><TD WIDTH=""40%""><H2>" & (i + 1) & "</TD><TD WIDTH=""60%""><H2>" & Request.Form("detail" & i) & "</TD></TR>"	

				Next			
			Else
				Response.Write "<TR><TD ALIGN=""CENTER""><H2>Votre questionnaire a &eacute;t&eacute; soumis. Les r&eacute;sultats vous seront communiqu&eacute;s ult&eacute;rieurement.</H2></TD></TR>"	
			End If
		Else
			Response.Write "<TR><TD ALIGN=""CENTER""><H2>Une erreur est survenue&nbsp;: le questionnaire n'a pu &ecirc;tre soumis.</H2></TD></TR>"
		End If

	%>
	</TABLE>
	</CENTER>
	</BODY>

</HTML>