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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Fiche des Campings </title>
<style type="text/css">
<!--
body {background: #FF6600 url(../picsbase/c2.jpg) repeat;}
h1 {text-align: center;border-bottom:1px #000000 solid;}
label {float: left;width:40%;text-align:right;padding-right:.3em;}
#gauche p, #droite p
{
margin: 5px auto 5px auto;
text-align: left;
font-size: 1em;
font-weight: bold;
font-family: Serif,Verdana, Arial, Sans-serif;
font-style:italic;
width:100%;
}
#gauche, #droite
{
float: left;
width: 530px;
overflow: center;
height:610px;
margin-top: -5px;
}
-->
</style>
<script language="JavaScript" type="text/javascript">
function right(e)
{
var msg = "Dsol, le bouton de droit est dsactiv.";
if (navigator.appName == 'Netscape' && e.which == 3)
{
alert(msg);
}
else if (navigator.appName == 'Microsoft Internet Explorer' && event.button==2)
{
alert(msg);
}
return true;
}
document.onmousedown = right;
</SCRIPT>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<h1>Faites votre choix : </h1>
<p style="font-weight: bold; width: 96%; font-style: italic; height: 31px; text-align: center;" align="center">
<a href="?quoi=Enregistre">Ajouter un camping</a> |
<a href="?quoi=Modifier">Modifier un camping</a> |
<a href="?quoi=recherche">Rechercher un camping</a> |
<a href="?quoi=Supprimer">Effacer un camping</a></p>
<%
if request.querystring("quoi") <> "" then
Select case request.querystring("quoi")
case "Enregistre"
response.write "<form action=""recept4.asp"" method=""post"">"&vbcrlf
response.write " <div id=""gauche"">"
Response.write " <p><label>Nom du Camping :</label> <input type=""text"" name=""nom"" size=""40""/></p>"&vbcrlf
Response.write " <p><label>Nom du Grant :</label> <input type=""text"" name=""nomg"" size=""40""/></p>"&vbcrlf
Response.write " <p><label>Adresse :</label> <input type=""text"" name=""adresse"" size=""40""/></p>"&vbcrlf
Response.write " <p><label>Code postal : </label><input type=""text"" name=""codepostal"" size=""8""/></p>"&vbcrlf
Response.write " <p><label>Ville : </label><input type=""text"" name=""ville"" size=""30"" maxlength=""30""/></p>"
Response.write " <p><label>Lieu gographique : </label><input type=""text"" name=""lieugeographique"" size=""20"" maxlength=""10""/></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel"" size=""11"" maxlength=""15""/></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel1"" size=""11"" maxlength=""15""/></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel2"" size=""11"" maxlength=""15""/></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel3"" size=""11"" maxlength=""15""/></p>"&vbcrlf
Response.write " <p><label>FAX : </label><input type=""text"" name=""telecopie"" size=""11"" maxlength=""15""/></p>"&vbcrlf
Response.write " <p><label>Adresse E-m@il : </label><input type=""text"" name=""email""size=""40""/></p>"&vbcrlf
Response.write " <p><label>Site internet : </label><input type=""text"" name=""siteinternet"" size=""40""/></p>"&vbcrlf
response.write " </div>"
response.write " <div id=""gauche"">"
Response.write " <p><label>Classement : </label><select name=""classement"" size=""1"" >"&vbcrlf _
&"<option value=""1 toile"">1 toile"&vbcrlf _
&"<option value=""2 toiles"">2 toiles"&vbcrlf _
&"<option value=""3 toiles"">3 toiles"&vbcrlf _
&"<option value=""4 toiles"">4 toiles</option>"&vbcrlf _
&"</select></p>"&vbcrlf
Response.write " <p><label>Taille des emplacements : </label><select name=""tailledesemplacements"" size=""1"" >"&vbcrlf _
&"<option value="""">"&vbcrlf _
&"<option value=""100 m2"">100 m2"&vbcrlf _
&"<option value=""150 m2"">150 m2"&vbcrlf _
&"<option value=""200 m2"">200 m2"&vbcrlf _
&"<option value=""250 m2"">250 m2"&vbcrlf _
&"<option value=""300 m2 et plus"">300 m2 et plus</option>"&vbcrlf _
&"</select></p>"&vbcrlf
Response.write " <p><label>Emplacements Diponibles : </label><select name=""dispo"" size=""1"" >"&vbcrlf _
&"<option value=""oui"">oui"&vbcrlf _
&"<option value=""non"">non</option>"&vbcrlf _
&"</select></p>"&vbcrlf
Response.write " <p><label>Matriel accept : </label><select name=""etat"" size=""1"" >"&vbcrlf _
&"<option value="""">"&vbcrlf _
&"<option value=""Neuf"">Neuf"&vbcrlf _
&"<option value=""Occasion"">Occasion"&vbcrlf _
&"<option value=""Neuf et Occasion"">Neuf et Occasion</option>"&vbcrlf _
&"</select></p>"&vbcrlf
Response.write " <p><label>A partir de : </label><input type=""text"" name=""neufapartir"" size=""10""/></p>"&vbcrlf
Response.write " <p><label>Frais d'installation : </label><input type=""text"" name=""fraisdinstallation"" size=""10""/></p>"&vbcrlf
Response.write " <p><label>Piscine : </label><select name=""piscine"" size=""1"" >"&vbcrlf _
&"<option value=""Oui"">Oui"&vbcrlf _
&"<option value=""Non"">Non</option>"&vbcrlf _
&"</select>Etang : </label><select name=""etang"" size=""1"" >"&vbcrlf _
&"<option value=""Oui"">Oui"&vbcrlf _
&"<option value=""Non"">Non</option>"&vbcrlf _
&"</select>animations : </label><select name=""animations"" size=""1"" >"&vbcrlf _
&"<option value=""Oui"">Oui"&vbcrlf _
&"<option value=""Non"">Non</option>"&vbcrlf _
&"</select></p>"&vbcrlf
Response.write " <p><label>Type d'animation : </label><textarea name=""typedanimation"" cols=""35"" rows=""4""></textarea></p>"&vbcrlf
Response.write " <p><label>Date d'ouverture du terrain :</label> <input type=""text"" name=""oudt"" size=""35""/></p>"&vbcrlf
Response.write " <p><label>Remarques divers : </label><textarea name=""remarquesdivers"" cols=""35"" rows=""4""></textarea></p>"&vbcrlf
Response.write " <p><label>photos : </label><textarea name=""photos"" cols=""35"" rows=""4""></textarea></p>"&vbcrlf
Response.write " <p><label><input type=""submit"" name=""Envoie"" value=""Enregistrer""/></p>"&vbcrlf
response.write " </div>"
response.write "</form>"
case "Modifier"
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT id, nom FROM Campings"
Rs.open Sql, conn
response.write "<form action=""choixcampings.asp"" name=""post"">"
response.write "<select name=""liste"">"
Do while not rs.eof
response.write "<option value="""& rs(0) &""">"& rs(1) &vbcrlf
rs.movenext
loop
response.write "</option>"&vbcrlf
response.write "</select>"
response.write "<input type=""submit"" value=""ok"">"
response.write "</form>"
Set RS = Nothing
Conn.Close
Set Conn = Nothing
case "visualiser"
strProvider = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\base\bd1.mdb;"
Set rs = server.CreateObject("ADODB.connection")
rs.open strProvider
set rsliste = rs.execute("SELECT * FROM [Campings]")
response.Write(".<table style=""border:2px #000000 solid;margin-left: auto;margin-right: auto;border-style:auto;""><tr><td>N de camping|</tD><td>Nom du camping |</td><td>Lieu gographique|</td><td>N de Tlphone|</td><td>N de Tlcopie|</td><td>Ville</td>")
do while not rsliste.eof
response.Write("<tr>")
response.write("<p><td>"& rsliste("id")& "</td><td>"& rsliste("nom")&"</td><td>"& rsliste("lieugeographique")&"</td><td>"& rsliste("tel")&"</td><td>"& rsliste("telecopie")&"</td><td>"& rsliste("ville")&"</td>")
response.Write("</tr>")
rsliste.movenext
loop
response.Write("</table>")
rsliste.close
set rsliste = nothing
rs.close
set rs = nothing
case "recherche"
Response.write "<form action=""choixcampings.asp"" method=""get"">"
response.write "<p><label>Code postal :</label><select name=""codepostal"">"&vbcrlf
response.write "<option selected>-- choisir ---"&vbcrlf
for i=1 to 6
response.write "<option value="& i &">"& i &vbcrlf
next
response.write "</option></select> "&vbcrlf
response.write "<input type=""submit"" value=""Valider"">"&vbcrlf
response.write "</form>"
case "Supprimer"
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM Campings"
Rs.open Sql, conn
response.write "<form action=""choixcampings.asp"" method=""post"">"&vbcrlf
do while not rs.eof
response.write "<p><label>"& rs(1) &"</label><input type=""checkbox"" name=""efface_clt"" value="""& rs(0) &"""/></p>"&vbcrlf
rs.movenext
loop
response.write "<p><label><input type=""submit"" value=""Effacer"" name=""eff"" /></p>"&vbcrlf
response.write "</form>"&vbcrlf
Set RS = Nothing
Conn.Close
Set Conn = Nothing
case else
Response.write ""
end select
end if
if request.querystring("liste") <> "" then
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
Sql = "SELECT * FROM Campings where id = "& request.querystring("liste") &""
Rs.open Sql, conn
response.write "<form action=""recept4.asp"" method=""post"">"&vbcrlf
response.write " <div id=""gauche"">"
Response.write " <p><label>ID :</label> <input readonly type=""text"" name=""id"" size=""1"" value="""& rs(0) &"""></p>"&vbcrlf
Response.write " <p><label>Nom du Camping :</label> <input type=""text"" size=""40"" name=""nom"" value="""& rs(1) &"""></p>"&vbcrlf
Response.write " <p><label>Nom du Grant :</label> <input type=""text"" size=""40"" name=""nomg"" value="""& rs(2) &"""></p>"&vbcrlf
Response.write " <p><label>Adresse :</label> <input type=""text"" size=""40"" name=""adresse"" value="""& rs(3) &""" /></p>"&vbcrlf
Response.write " <p><label>Code postal : </label><input type=""text"" name=""codepostal"" size=""3"" value="""& rs(4) &"""></p>"&vbcrlf
Response.write " <p><label>Ville : </label><input type=""text"" name=""ville"" size=""20"" maxlength=""20"" value="""& rs(5) &"""></p>"&vbcrlf
Response.write " <p><label>Lieu gographique : </label><input type=""text"" name=""lieugeographique"" size=""40"" maxlength=""10"" value="""& rs(6) &"""></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel"" size=""11"" maxlength=""15"" value="""& rs(7) &"""></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel1"" size=""11"" maxlength=""15"" value="""& rs(8) &"""></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel2"" size=""11"" maxlength=""15"" value="""& rs(9) &"""></p>"&vbcrlf
Response.write " <p><label>N de tlphone : </label><input type=""text"" name=""tel3"" size=""11"" maxlength=""15"" value="""& rs(10) &"""></p>"&vbcrlf
Response.write " <p><label>N de tlcopie : </label><input type=""text"" name=""telecopie"" size=""11"" maxlength=""15"" value="""& rs(11) &"""></p>"&vbcrlf
Response.write " <p><label>Adresse E-m@il : </label><input type=""text"" name=""email"" size=""40"" value="""& rs(12) &""" /></p>"&vbcrlf
Response.write " <p><label>Site internet : </label><input type=""text"" name=""siteinternet"" size=""40"" value="""& rs(13) &""" /></p>"&vbcrlf
response.write " </div>"
response.write " <div id=""gauche"">"
Response.write " <p><label>Classement : </label><input type=""text"" name=""classement"" size=""6"" value="""& rs(14) &""" /></p>"&vbcrlf
Response.write " <p><label>Taille des emplacements : </label><input type=""text"" name=""tailledesemplacements"" size=""6"" value="""& rs(15) &""" /></p>"&vbcrlf
Response.write " <p><label>Emplacements diponibles : </label><input type=""text"" name=""dispo"" size=""6"" value="""& rs(16) &""" /></p>"&vbcrlf
Response.write " <p><label>Matril accept : </label><input type=""text"" name=""etat"" size=""15"" value="""& rs(17) &""" /></p>"&vbcrlf
Response.write " <p><label>A partir de : </label><input type=""text"" name=""neufapartir"" size=""10"" value="""& rs(18) &""" /></p>"&vbcrlf
Response.write " <p><label>Frais d'installation : </label><input type=""text"" name=""fraisdinstallation"" size=""10"" value="""& rs(19) &""" /></p>"&vbcrlf
Response.write " <p><label>Piscine : </label><input type=""text"" name=""piscine"" size=""1"" value="""& rs(20) &""" />Etang : </label><input type=""text"" name=""etang"" size=""1"" value="""& rs(21) &""" />Animations : </label><input type=""text"" name=""animations"" size=""1"" value="""& rs(22) &""" /></p>"&vbcrlf
Response.write " <p><label>Type d'animation : </label><textarea name=""typedanimation"" cols=""35"" rows=""4"">"& rs(23) &"</textarea></p>"&vbcrlf
Response.write " <p><label>Taille des emplacements : </label><input type=""text"" name=""tailledesemplacements"" size=""6"" value="""& rs(24) &""" /></p>"&vbcrlf
Response.write " <p><label>Date d'ouverture du terrain : </label><input type=""text"" name=""oudt"" size=""35"" value="""& rs(25) &""" /></p>"&vbcrlf
Response.write " <p><label>Remarques divers : </label><textarea name=""remarquesdivers"" cols=""35"" rows=""4"">"& rs(26) &"</textarea></p>"&vbcrlf
Response.write " <p><label><input type=""submit"" name=""Envoie"" value=""Modifier""/></p>"&vbcrlf
response.write " </div>"
response.write "</form>"
Set RS = Nothing
Conn.Close
Set Conn = Nothing
end if
if request.querystring("codepostal") <> "" then
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
if request.querystring("codepostal") <> "" then
Sql="Select * From Campings where codepostal(codepostal) = "& Cint(request.querystring("codepostal")) &""
end if
end if
if request.form("eff") = "Effacer" then
DSN_BASE = "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "bd1.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")
if len(request.form("efface_clt")) = 1 then
Sql="Delete * From Campings where ID = "& Cint(request.form("efface_clt")) &""
Rs.open Sql, conn
response.write "<p>Le camping "& request.form("efface_clt") &" a bien t ffac de la base</p>"&vbcrlf
else
for each i in request.form("efface_clt")
Sql="Delete * From Campings where id = "& i &""
Rs.open Sql, conn
next
response.write "<p>Les campings ont bien été effacés de la base</p>"&vbcrlf
end if
end if
%>
</body>
</html> |
enregistrer et afficher images en ASP d'une base ACCES via internet
Répondre avec citation
Partager