<% Dim iReceipe, iImagePath strAction = Request.Querystring("action") iReceipeId = Request.Querystring("receipe_id") resto = Request.Querystring("resto_id") if strAction = "" then strAction = "start" end if if request.QueryString("act") = "del" then if request.QueryString("laphoto") = "5" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path5 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "6" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path6 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "7" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path7 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "8" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path8 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "2" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path2 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "3" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path3 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "4" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path4 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL else mySQL = "UPDATE tbl_receipe_sante Set t_img_path = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL end if end if Select case strAction case "start" 'cnnrecettes.Open "Driver={MySQL ODBC 3.51 Driver};Server=mysql3.brinkster.com;uid=parisfrance;pwd=veronique;database=parisfrance;" Set cnnresto = Server.CreateObject("ADODB.Connection") strSQL = "SELECT t_rec_num, t_receipe, t_img_path, t_img_path2, t_img_path3, t_img_path4, t_img_path5, t_img_path6, t_img_path7, t_img_path8 FROM tbl_receipe_sante WHERE t_rec_num =" & iReceipeId & ";" 'rstresto.Open strSQL, cnnrecettes, adOpenKeyset, adLockPessimistic, adCmdText 'Set rstresto = cnnresto.Execute(strSQL) Set rstresto = cnnrecettes.Execute(strSQL) %>

&resto_id=<%= request.QueryString("resto_id") %>">Modifier recette - &resto_id=<%= request.QueryString("resto_id") %>" target="_blank">Visualiser recette

Ajout d'une photo de recette.

&resto_id=<%= resto %>&laphoto=1" enctype="multipart/form-data" method="post">

Nom de la recette :	<%= rstresto("t_receipe") %>
Petite photo 1
Photo de la recette :

Photo en cour d'utilisation : <%= rstresto("t_img_path") %>.

"> &resto_id=<%= resto %>&laphoto=2" enctype="multipart/form-data" method="post">

Petite photo 2

Photo de la recette :

<% if rstresto("t_img_path2") <> "" then %> &resto_id=<%= resto %>&laphoto=2&act=del">"> <% end if %> &resto_id=<%= resto %>&laphoto=3" enctype="multipart/form-data" method="post">

Petite photo 3

Photo de la recette :

<% if rstresto("t_img_path3") <> "" then %> &resto_id=<%= resto %>&laphoto=3&act=del">"> <% end if %> &resto_id=<%= resto %>&laphoto=4" enctype="multipart/form-data" method="post">

Petite photo 4

Photo de la recette :

<% if rstresto("t_img_path4") <> "" then %> &resto_id=<%= resto %>&laphoto=4&act=del">"> <% end if %>

&resto_id=<%= resto %>&laphoto=5" enctype="multipart/form-data" method="post">

Grosse photo 1
Photo de la recette :

<% if rstresto("t_img_path5") <> "" then %> &resto_id=<%= resto %>&laphoto=5&act=del">

"> <% end if %> &resto_id=<%= resto %>&laphoto=6" enctype="multipart/form-data" method="post">

Grosse photo 2
Photo de la recette :

<% if rstresto("t_img_path6") <> "" then %> &resto_id=<%= resto %>&laphoto=6&act=del">

"> <% end if %> &resto_id=<%= resto %>&laphoto=7" enctype="multipart/form-data" method="post">

Grosse photo 3
Photo de la recette :

<% if rstresto("t_img_path7") <> "" then %> &resto_id=<%= resto %>&laphoto=7&act=del">

"> <% end if %> &resto_id=<%= resto %>&laphoto=8" enctype="multipart/form-data" method="post">

Grosse photo 4
Photo de la recette :

<% if rstresto("t_img_path8") <> "" then %> &resto_id=<%= resto %>&laphoto=8&act=del">

"> <% end if %>

<% 'rstresto.Close 'cnnrecettes.Close case "done" Dim Uploader Set Uploader = New FileUploader Uploader.Upload() If Uploader.Files.Count = 0 Then Response.Write "File(s) not uploaded." Else For Each File In Uploader.Files.Items File.SaveToDisk Server.MapPath("images/sante/") Set myrs = CreateObject("ADODB.Recordset") 'mySQL = "SELECT * FROM tbl_receipe_sante WHERE t_rec_num =" & iReceipeId & ";" 'myrs.Source = mySQL 'Set myrs.ActiveConnection = cnnrecettes 'myrs.CursorLocation = adUseClient 'myrs.LockType = adLockPessimistic 'myrs.Open LeFichier = File.FileName if request.QueryString("laphoto") = "2" then 'myrs("t_img_path2") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path2 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "3" then 'myrs("t_img_path3") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path3 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL elseif request.QueryString("laphoto") = "4" then 'myrs("t_img_path4") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path4 = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL else 'myrs("t_img_path") = File.FileName mySQL = "UPDATE tbl_receipe_sante Set t_img_path = '" & LeFichier & "' WHERE t_rec_num =" & iReceipeId & " " cnnrecettes.Execute mySQL end if ' myrs.Update 'myrs.Close cnnrecettes.Close Next End If %>

La photo pour la recette <%= iReceipe %> est modifiée.

Retour à la liste

<% End Select %>