Faire une insertion dans une base de données en ASP
<%
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
%>
|
