<%@ Language=VBScript %>
<%
If (Request.Cookies("ADMIN_LOGGED") <> "YES") then
Response.Redirect("../default.asp")
End If
%>
<%
MAX_FILE_SIZE = 150000
If Request("action") = "go" Then
Set fileUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
fileUpload.Upload
set file = fileUpload.Files.Item(1)
ext = lcase(right(file.FileName,4))
DESCRIPTION = Replace(FileUpload.Form("DESCRIPTION"),"'","''")
If not file.IsMissing then
If ext = ".gif" Or ext = ".jpg" Or ext = ".bmp" Then
If file.Size < MAX_FILE_SIZE Then
If DESCRIPTION <> "" Then
'--- UPLOAD DU FICHIER ---
serverMapPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
filePathName = "\imgs\EVENEMENTS\" & file.FileName
file.SaveAs(serverMapPath&filePathName)
'--- UPDATE DE LA BASE ---
Set RS_update = Server.CreateObject("ADODB.Recordset")
SQL_update = "INSERT INTO EVENEMENTS ( EVENEMENTS_Description, EVENEMENTS_PictureName ) VALUES ( '" & DESCRIPTION & "','" & file.FileName & "')"
RS_update.Open SQL_update, Connect, 1
'--- REDIRECTION ---
Response.Redirect("ok_message.asp")
Else
Erreur = "Yes"
MsgErreur = "Vous devez saisir une description !"
End If
Else
Erreur = "Yes"
MsgErreur = "Taille de fichier supérieure à " & Round(MAX_FILE_SIZE/1024,1) & " Ko..."
End If
Else
Erreur = "Yes"
MsgErreur = "Attention seules les extensions gif/jpg/bmp sont autorisées !"
End If
Else
Erreur = "Yes"
MsgErreur = "Fichier manquant !"
End If
End If
%>
TERRES D'AILLEURS