Informatique
	EXPERTISE, CONSEILS, FORMATION, ACCOMPAGNEMENT AU CHANGEMENT Solution Intranet, Extranet et Internet Accompagnement et formation au travail collaboratif Accès à la rubrique

Formation
	FORMATION SALARIES ETUDIANTS APPRENTIS. Bureautique, Internet, Sciences de la vie, Mathématique, Physiques Aéronautique Accès à la rubrique

Biologie
	RECHERCHE Biologie cellulaire Biologie moléculaire Génétique Accès à la rubrique

Aéronautique
	PILOTE PRIVE D'AVION Enseignant - aéronautique - aéromodélisme en savoir plus

Insertion dans deux tables avec gestion des clées

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

--------------------------------------------------------------------------

<%
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")

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

  Internet
  Extranet
  Intranet

Développement
- Scripts Asp
- Script PHP
- Script CSS

Logiciels

Articles

LOI n°2004-575 du 21 juin 2004

eric desrentes : Informations légales