|
| | Esplanade Parmentier
62600 Berck-sur-Mer
Tél : 03.21.09.21.21
Fax : 03.21.09.29.29 |
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
Dim strCatName, ImageName, strCatID, strLoginName, ContentType, FilePathName, FileName, intImageID, strTitle, strKilometrage, strCouleur, strMillesime, strSummary, strPrix, strContent,Value
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
intImageID = UploadRequest.Item("txtImageID").Item("Value")
intImageID=replace(intImageID, "'", "''")
ImageName=UploadRequest.Item("ImageName").Item("Value")
ImageName=replace(ImageName, "'", "''")
strCatID = UploadRequest.Item("txtCatID").Item("Value")
strCatID = replace(strCatID, "'", "''")
strLoginName= UploadRequest.Item("txtLoginName").Item("Value")
strLoginName = replace(strLoginName, "'", "''")
strTitle = UploadRequest.Item("txtTitle").Item("Value")
strTitle = replace(strTitle, "'", "''")
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, "'", "''")
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,"\"))
Value = UploadRequest.Item("File").Item("Value")
else
FileName = ""
end if
if filename <>"" then
strSQL = "Update Images set Title = '" & strTitle &_
"', CatID='" & strCatID &_
"', LoginName='" & strLoginName &_
"', Kilometrage='" & strKilometrage &_
"', Millesime='" & strMillesime &_
"', Couleur='" & strCouleur &_
"', Summary='" & strSummary &_
"', Content='" & strContent &_
"', ImageName='" & ImageName &_
"', FileName='" & FileName &_
"', MimeType='" & ContentType &_
"', Prix='" & strPrix &_
"', Bindata='" & Bindata &_
"' where ImageID=" & intImageID
adoCn.Execute strSQL
strSQL = "Select * From Images where ImageID=" & intImageID
adoRs.Open strSQL, adoCn, 1, 3
if not adoRs.eof then
adoRs.Fields("Bindata").appendChunk value & chrB(0)
adoRs.Update
adoRs.close
end if
Else
strSQL = "Update Images set Title = '" & strTitle &_
"', CatID='" & strCatID &_
"', LoginName='" & strLoginName &_
"', Kilometrage='" & strKilometrage &_
"', Millesime='" & strMillesime &_
"', Couleur='" & strCouleur &_
"', Summary='" & strSummary &_
"', Content='" & strContent &_
"', Prix='" & strPrix &_
"', ImageName='" & ImageName &_
"' where ImageID=" & intImageID
adoCn.Execute strSQL
end if
set UploadRequest = nothing
Response.Redirect "liste.asp"
else
%>
<%
intImageID = Request.QueryString("ImageID")
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Images where ImageID=" & intImageID
set adoRs = adoCn.Execute(strSQL)
If not adoRs.EOF then
intImageID = adoRs("ImageID")
ImageName = adoRs("ImageName")
FileName = adoRs("FileName")
strCatID = adoRs("CatID")
strLoginName = adoRs("LoginName")
strTitle = adoRs("Title")
strKilometrage = adoRs("Kilometrage")
strMillesime = adoRs("Millesime")
strCouleur = adoRs("Couleur")
strSummary = adoRs("Summary")
strContent = adoRs("Content")
strPrix = adoRs("Prix")
End If
adoRs.Close
set adoRs = nothing
End If
%>
<% Sub AdminEditTable() %>
<% If IsNull(FileName) Then %>
<% ELSE%>
<% END IF%>
|
<% End Sub %>
<% IF Session("AccessLevel")= "Admin" Then%>
<% AdminEditTable()%>
<% Else %>
<% IF Session("LoginName")= strLoginName and Session("AccessLevel")= "Author" Then%>
<% AdminEditTable() %>
<% Else%>
Vous n'avez pas les droits pour cette modification.
[ Retour ]
|
<% End IF%>
<% End IF %>
|