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

Faire une insertion dans deux tables

<%@LANGUAGE="VBSCRIPT"%>

<%Set cn = Server.CreateObject("ADODB.Connection")
cnDBQ="dsn=tabase;uid=password;"
cn.Open cnDBQ

titre = Request.Form("titre_form")

strsql="INSERT INTO table1 (champs,champs2) VALUES ('"&valeurs&"','"&valeurs2&"')"
cn.Execute(strsql)

cn.close
Response.Write("insertion OK <br>")

<%Set cn2 = Server.CreateObject("ADODB.Connection")
cn2DBQ="dsn=tabase;password;"
cn2.Open cn2DBQ

nom = Request.Form("nom_form")

strsql2="INSERT INTO table2 (champs) VALUES ('"&valeurs&"')"
cn2.Execute(strsql2)

cn2.close
Response.Write("insertion OK <br>")
%>