1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
| <%
nom = request.form("nom")
prenom = request.form("prenom")
salle = request.form("salle")
demande = request.form("demande")
commentaire = request.form("commentaire")
dates = request.form("dates")
heure = request.form("heure")
'création de lobjet de connection
Set oConn = Server.CreateObject("ADODB.connection")
'Chaine de connection
ChConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../fpdb/demandetravaux.mdb") & ";"
'Connection à la base de données
oConn.Open ChConn
'Ecriture de la requete pour la table Adhesion
Req = "INSERT INTO Ensembledemande (nom, prenom, salle, typeDemande, autrecommnet, dates, heure) "
Req = Req & "VALUES ('Valeur1', 'Valeur2', 'Valeur2', 'Valeur2', 'Valeur2', 'Valeur2', 'Valeur2')"
'Création du RecordSet
Set oRst = Server.CreateObject("ADODB.Recordset")
'pour la surveillance d'erreur
on error resume next
'Ouverture du recorset et execution de la requete sql
oRst.Open Req,oConn
'Fermeture et destruction du recordset
oRst.close
Set oRst = Nothing
'Affichage de l'erreur
If Err Then
Response.write Err.description
Else
Response.write "Cet enregistrement a bien été ajouter"
End If
'J arrete toute surveillance d'erreur
on error goto 0
'-------déclaration de la base------------------------------
'-------création de la connection et du recordset-----------
'set connexion = Server.CreateObject("ADODB.Connection")
'connexion.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../fpdb/demandetravaux.mdb") & ";"
'set rs = Server.CreateObject("ADODB.Recordset")
'thesql="INSERT INTO Ensembledemande (nom,prenom,salle,typeDemande,autrecommnet,dates,heure) VALUES ('"&nom&"','"&prenom&"','"&salle&"','"&demande&"','"&commentaire&"','"&dates&"','"&heure&"');"
'response.write(thesql)
'connexion.Execute(thesql)
'-------fermeture de la connection et du recordset----------
'rs.Close
'Set rs = Nothing
'connexion.Close
'Set connexion = Nothing
%> |
Partager