Page connexion_quiz.asp

<%
'connexion quizs

Set Cndb = Server.CreateObject("ADODB.Connection")
cnDBQ = "DBQ=" & ("E:\netigs_INTERNET\bd\igsfc_bd\quiz-fc.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Cndb.Open cnDBQ

%>

<!--#include file="connexion_quiz.asp" -->
<%
Dim queryStr2, queryStr3, key, newkey

Set Cndb2 = Server.CreateObject("ADODB.Connection")
Cndb2.Open cnDBQ

queryStr2 = "SELECT Valeur_Key FROM T_Key WHERE Nom_Key ='T_S2'"
set keyRec = Cndb2.Execute(queryStr2)

key = keyRec("Valeur_Key").Value

newkey = key+1

Set Cndb3 = Server.CreateObject("ADODB.Connection")
Cndb3.Open cnDBQ

queryStr3 = "UPDATE T_Key SET Valeur_Key = ("&newkey&") WHERE Nom_Key = 'T_S2'"

Cndb3.Execute(queryStr3)

%>

<%
Dim queryStr4, queryStr6, key2, newkey2

Set Cndb4 = Server.CreateObject("ADODB.Connection")
Cndb4.Open cnDBQ

queryStr4 = "SELECT Valeur_Key FROM T_Key WHERE Nom_Key ='T_quest'"
set keyRec2 = Cndb4.Execute(queryStr4)

key2 = keyRec2("Valeur_Key").Value

newkey2 = key2+1

Set Cndb6 = Server.CreateObject("ADODB.Connection")
Cndb6.Open cnDBQ

queryStr6 = "UPDATE T_Key SET Valeur_Key = ("&newkey2&") WHERE Nom_Key = 'T_quest'"

Cndb6.Execute(queryStr6)

%>

<%
dim strQ1,strQ2,strQ3,strQ4,strQ5,strQ6,strQ7,strQ8,strQ9,strQ10
dim login, dateD, dateF, strval

if (request.form("Q1")<> "") then strQ1 = request.form("Q1") else strQ1 = "0" end if
if (request.form("Q2")<> "") then strQ2 = request.form("Q2") else strQ2 = "0" end if
if (request.form("Q3")<> "") then strQ3 = request.form("Q3") else strQ3 = "0" end if
if (request.form("Q4")<> "") then strQ4 = request.form("Q4") else strQ4 = "0" end if
if (request.form("Q5")<> "") then strQ5 = request.form("Q5") else strQ5 = "0" end if
if (request.form("Q6")<> "") then strQ6 = request.form("Q6") else strQ6 = "0" end if
if (request.form("Q7")<> "") then strQ7 = request.form("Q7") else strQ7 = "0" end if
if (request.form("Q8")<> "") then strQ8 = request.form("Q8") else strQ8 = "0" end if
if (request.form("Q9")<> "") then strQ9 = request.form("Q9") else strQ9 = "0" end if
if (request.form("Q10")<> "") then strQ10 = request.form("Q10") else strQ10 = "0" end if

Nomform_quest = request.form("nom_form")

DateD = request.form("formdateD")

login = session("login")
strval="1"
DateF = Date()

insform = "INSERT INTO T_S2 (Id_S2,Login_pers_S2,DateD_S2,DateF_S2,Val_S2,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q10) VALUES ("&newkey&",'"&login&"','"&DateD&"','"&DateF&"', '"&strval&"',"&strQ1&","&strQ2&","&strQ3&","&strQ4&","&strQ5&","&strQ6&", "&strQ7&","&strQ8&","&strQ9&","&strQ10&")"

'response.write(insform)
set PassRec = Cndb.Execute(insform)

insquest = "INSERT INTO T_quest (Id_quest,Login_quest,Nom_quest,Date_quest) VALUES ("&newkey2&",'"&login&"','"&Nomform_quest&"','"&DateD&"')"
set PassRec2 = Cndb.Execute(insquest)

cndb.close

%>