<%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim conn
dim rs
dim ssql
dim objUpload
dim sPress_Release_Id
dim sPress_Release_Date
dim sPress_Release_Title
dim sPress_Release_Details
dim sImages
dim sOld_Press_Release_Image
dim FileControler
dim myfile
dim fsize
dim TotalRecord
dim return_page
dim item
dim value
dim file
%>
<%
set FileControler = server.CreateObject("Scripting.FileSystemObject")
Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload
For each file In objUpload.Files
sImages = file.FileName
Next
'Select each item in form
'************************
For each item In objUpload.Form
'Select each value of the current item
'*************************************
For each value In objUpload.Form(item)
'get information
if item = "press_release_id" then
sPress_Release_Id = value
end if
if item = "press_release_date" then
sPress_Release_Date = value
end if
if item = "press_release_title" then
sPress_Release_Title = value
end if
if item = "press_release_details" then
sPress_Release_Details = value
end if
if item = "old_press_release_image" then
sOld_Press_Release_Image = value
end if
Next
Next
If Len(sImages) > 0 Then
sImages = lcase(sImages)
objUpload.Save server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/")
set myfile = FileControler.GetFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/") & "/" & sImages)
fsize = myfile.size
else
fsize = 1
End If
if fsize >= session("press_release_image_file_size") then
FileControler.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/images/") & "/" & sImages
Response.Write ""
Response.Write "Sorry, images size are limited at " & session("display_press_release_image_file_size")
Response.Write "
click here to modify..."
else
if sImages = "" then
sImages = sOld_Press_Release_Image
else
if sImages <> sOld_Press_Release_Image then
if len(sOld_Press_Release_Image) > 0 then
ssql = "select press_release_id from tbl_press_release where press_release_image = '" & sOld_Press_Release_Image & "'"
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql,conn,3,3
if not rs.EOF then
TotalRecord = rs.RecordCount
if TotalRecord = 1 then
if FileControler.FileExists(session("images_folder") & "/" & sOld_Press_Release_Image) = true then
FileControler.DeleteFile session("images_folder") & "/" & sOld_Press_Release_Image
end if
end if
end if
rs.Close
set rs = nothing
end if
end if
end if
'replace vbCrLf to
if len(sPress_Release_Details) > 0 then
sPress_Release_Details = replace(sPress_Release_Details, vbcrlf, "
", 1, -1, 1)
end if
'update data
ssql = "select * from tbl_press_release where press_release_id = '" & sPress_Release_Id & "'"
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql,conn,3,3
rs.Fields("press_release_date") = sPress_Release_Date
rs.Fields("press_release_title") = sPress_Release_Title
rs.Fields("press_release_details") = sPress_Release_Details
rs.Fields("press_release_image") = sImages
rs.Update
rs.Close
conn.Close
set rs = nothing
set conn = nothing
return_page = ""
Response.Write return_page
end if
set FileControler = nothing
else
Response.Redirect "../../index.asp"
end if
%>