<% Response.buffer=True If Session("LoginName") = "" then Response.redirect "login.asp?Redirect=" &Request.Servervariables("URL") End If %> <% dim adoCn dim strSQL set adoCn = Server.CreateObject("ADODB.Connection") adoCn.Open strConn dim adoRs set adoRs = Server.CreateObject("ADODB.Recordset") if Request.QueryString("action")="upload" then Response.Expires = 0 Response.Buffer = TRUE Response.Clear Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") ByteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) BuildUploadRequest RequestBin Dim aux, aux1, FILEFLAG Dim ImageName, strCatID, strLoginName, strActive, ContentType, FilePathName, FileName, strTitle, strKilometrage, strMillesime, strSummary, strPrix, strContent,Value ImageName=UploadRequest.Item("ImageName").Item("Value") ImageName=replace(ImageName, "'", "''") strLoginName= UploadRequest.Item("txtLoginName").Item("Value") strLoginName = replace(strLoginName, "'", "''") strActive= UploadRequest.Item("txtActive").Item("Value") strActive = replace(strActive, "'", "''") strTitle = UploadRequest.Item("txtTitle").Item("Value") strTitle = replace(strTitle, "'", "''") strCatID = UploadRequest.Item("txtCatID").Item("Value") strCatID = replace(strCatID, "'", "''") strKilometrage = UploadRequest.Item("txtKilometrage").Item("Value") strKilometrage= replace(strKilometrage, "'", "''") strMillesime = UploadRequest.Item("Millesime").Item("Value") strMillesime= replace(strMillesime, "'", "''") strSummary = UploadRequest.Item("txtSummary").Item("Value") strSummary= replace(strSummary, "'", "''") strContent = UploadRequest.Item("txtContent").Item("Value") strContent = replace(strContent, "'", "''") strPrix = UploadRequest.Item("txtPrix").Item("Value") strPrix= replace(strPrix, "'", "''") on error resume next ContentType =UploadRequest.Item("File").Item("ContentType") FILEFLAG = err.number on error goto 0 if FILEFLAG = 0 then ContentType = UploadRequest.Item("File").Item("ContentType") FilePathName = UploadRequest.Item("File").Item("FileName") FileName = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) FileName=LCase(FileName) Value = UploadRequest.Item("File").Item("Value") else FileName = "" end if if filename<>"" then adoCn.Execute("INSERT INTO Images (ImageName, CatID, LoginName, Active, Title, Kilometrage, Millesime, Summary, Content, Prix, FileName, MimeType) VALUES ('" &_ ImageName &_ "','" & strCatID &_ "','" & strLoginName &_ "','" & strActive &_ "','" & strTitle &_ "','" & strKilometrage &_ "','" & strMillesime &_ "','" & strSummary &_ "','" & strContent &_ "','" & strPrix &_ "','" & FileName &_ "','" & ContentType &_ "')") adoRs.open "select top 1 * from Images order by ImageID DESC", adoCn, 1, 3 if not adoRs.eof then adoRs.Fields("Bindata").appendChunk value & chrB(0) adoRs.Update adoRs.close end if Else adoCn.Execute("INSERT INTO Images (ImageName, CatID, LoginName, Active, Title, Kilometrage, Millesime, Summary, Content, Prix) VALUES ('" &_ ImageName &_ "','" & strCatID &_ "','" & strLoginName &_ "','" & strActive &_ "','" & strTitle &_ "','" & strKilometrage &_ "','" & strMillesime &_ "','" & strSummary &_ "','" & strContent &_ "','" & strPrix &_ "')") end if set UploadRequest = nothing Response.Redirect "liste.asp" End If %>

Posté par : " ReadOnly><%=Session("LoginName")%> Active : Non Catégorie : <% Set adoCn = Server.CreateObject("ADODB.Connection") Set adoRs = Server.CreateObject("ADODB.Recordset") adoCn.Open strConn strSQL = "SELECT * from Category order by CatName Asc" adoRs.Open strSQL, adoCn do while not adoRs.eof%> "><%=adoRs("CatName")%> <% adoRs.movenext loop %> <% adoRs.close set adoRs = nothing adoCn.close set adoCn = nothing %> Nom de la photo : Chemin de la photo : Titre : Kilométrage : Km Millésime : Description : Prix : €