Sommaire

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

%>