<% 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, strSummary, strPrix, strKilometrage, strMillesime, strCouleur, 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, "'", "''") strTitre = UploadRequest.Item("txtTitle").Item("Value") strTitre = replace(strTitle, "'", "''") strCatID = UploadRequest.Item("txtCatID").Item("Value") strCatID = replace(strCatID, "'", "''") strSummary = UploadRequest.Item("txtSummary").Item("Value") strSummary= replace(strSummary, "'", "''") strPrix = UploadRequest.Item("txtPrix").Item("Value") strPrix = replace(strPrix, "'", "''") strKilometrage = UploadRequest.Item("txtKilometrage").Item("Value") strKilometrage = replace(strKilometrage, "'", "''") strMillesime = UploadRequest.Item("txtMillesime").Item("Value") strMillesime = replace(strMillesime, "'", "''") strCouleur = UploadRequest.Item("txtCouleur").Item("Value") strCouleur = replace(strCouleur, "'", "''") strContent = UploadRequest.Item("txtContent").Item("Value") strContent = replace(strContent, "'", "''") 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, Summary, Prix, Kilometrage, Millesime, Couleur, Content, FileName, MimeType) VALUES ('" &_ ImageName &_ "','" & strCatID &_ "','" & strLoginName &_ "','" & strActive &_ "','" & strTitle &_ "','" & strPrix &_ "','" & strMillesime &_ "','" & strKilometrage &_ "','" & strCouleur &_ "','" & strSummary &_ "','" & strContent &_ "','" & 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, Millesime, Prix, Kilometrage, Couleur, Summary, Content) VALUES ('" &_ ImageName &_ "','" & strCatID &_ "','" & strLoginName &_ "','" & strActive &_ "','" & strTitle &_ "','" & strPrix &_ "','" & strKilometrage &_ "','" & strMillesime &_ "','" & strCouleur &_ "','" & strSummary &_ "','" & strContent &_ "')") end if set UploadRequest = nothing Response.Redirect "liste.asp" End If %>

Ajouter une page

Esplanade Parmentier
62600 Berck-sur-Mer
Tél : 03.21.09.21.21
Fax : 03.21.09.29.29