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
| <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nouvelle page 1</title>
</head>
<body bgcolor="#FFFF00">
<% IDENTAD=Request.QueryString("identad")
NOMAD=Request.QueryString("nomad")
ADRESSEAD=Request.QueryString("adressead")
VILLEAD=Request.QueryString("villead")
SECTEURAD=Request.QueryString("secteurad")
TELAD=Request.QueryString("telad")
MAILAD=Request.QueryString("mailad")
HORAIR=Request.QueryString("horair")
DESCRIP1=Request.QueryString("descrip1")
DESCRIP2=Request.QueryString("descrip2")
DESCRIP3=Request.QueryString("descrip3")
PHOTO1=Request.QueryString("photo1")
PHOTO2=Request.QueryString("photo2")
PHOTO3=Request.QueryString("photo3")
%>
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("webadherent.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")%>
<%'-------définition et exécution de la requête---------------
RequeteSQL = "Update adherent Set (Logi='"&IDENTAD&"', Nom_adherent='"&NOMAD&"',Adresse_adherent='"&ADRESSEAD&"',Ville='"&VILLEAD&"',Secteur_activite='"&SECTEURAD&"',Téléphone='"&TELAD&"', Email='"&MAILAD&"',Horaire='"&HORAIR&"',Specialite='"&DESCRIP1&"',Marque='"&DESCRIP2&"',Marque1='"&DESCRIP3&"',Photo1='"&PHOTO1&"',Photo2='"&PHOTO2&"',Photo3='"&PHOTO3&"') Where Logi= '"&IDENTAD&"'"
RS.Open RequeteSQL , Conn
if RS.EOF then%>
<p align="center">
<font color="#000000">Problème rencontré lors de la modification, réessayez plus tard !!! </font></p>
<%else%>
<p align="center"><font color="#000000">Vous venez de modifier votre page. Les modifications ont été enregistrées dans la base de données</font></p>
<p align="center"><br>
<a href="../index.html">RETOURNER A L'ACCUEIL </a>
</p>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
Set RS = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html> |
Partager