<%
'Write this form to db
on error resume next
path = "photocap/" & year(nowcalibrate) & "-" & month(nowcalibrate) & "-" & day(nowcalibrate) & "/"
uploadpath = "../" & path
localpath = server.mappath(uploadpath) & "\"
'response.write localpath
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.folderexists(localpath) then
fso.createfolder(localpath)
end if
if not fso.folderexists(localpath) then
response.write "Sorry, folder creation fail! (" & localpath & ")"
response.end
end if
set fso = nothing
Set Upload = Server.CreateObject("Persits.Upload")
' We must call Upload.Save or SaveToMemory before we can use Upload.Form!
Upload.SetMaxSize 900000, True
Upload.OverwriteFiles = false
tmpuplcount = Upload.SaveVirtual(uploadpath)
If Err.Number = 8 Then
Response.Write "Your file is too large. Please try again."
else
'Request Data
prod_id = Upload.form("prod_id")
prod_code = Upload.form("prod_code")
prod_describe = Upload.form("prod_describe")
prod_detail = Upload.form("prod_detail")
prod_specName = Upload.form("prod_specName")
prod_specUrl = Upload.form("prod_specUrl")
band_id = Upload.form("band_id")
if err then
ErrMSG = err.description
err.clear
else
if tmpuplcount > 0 then
ErrMsg = "Upload OK. "
For Each File in Upload.Files
'Check the file extension. If not GIF, JPG, BMP, or PNG do not display size
Ext = UCase(Right(File.ExtractFileName, 3))
If Ext = "GIF" or Ext = "JPG" or Ext = "BMP" or Ext = "PNG" or Ext = "PSD" or Ext = "EPS" Then
ErrMsg =ErrMsg & uploadpath & File.ExtractFileName & " (" & _
File.ImageWidth & " x " & File.ImageHeight & ") "
'ADD RECORD
previewImage = uploadpath & File.ExtractFileName
qryimg ="update products set prod_code='" & encode(prod_code) & "', prod_describe='" & encode(prod_describe) & "', prod_detail='" & encode(prod_detail) & "', prod_specName = '"& encode(prod_specName) &"', prod_specUrl = '"& encode(prod_specUrl) &"', band_id=" & band_id & ", prod_picture='" & encode(path & File.ExtractFileName) & "', prod_picturex='" & encode(File.ImageWidth) & "', prod_picturey='" & encode(File.ImageHeight) & "' where prod_id = "& prod_id &""
'response.write qryimg
'response.end
Set rsImg = conn.execute(qryimg)
Else
ErrMsg =ErrMsg & uploadpath & File.ExtractFileName & " is not an image. "
End If
Next
else
ErrMsg = "No file to be uploaded."
'ADD RECORD
qrynoimg ="update products set prod_code='" & encode(prod_code) & "', prod_describe='" & encode(prod_describe) & "', prod_detail='" & encode(prod_detail) & "', prod_specName = '"& encode(prod_specName) &"', prod_specUrl = '"& encode(prod_specUrl) &"', band_id=" & band_id & " where prod_id = "& prod_id &""
'response.write qrynoimg
'response.end
Set rsnoImg = conn.execute(qrynoimg)
end if
end if
'response.write ErrMsg
set rsnoImg = nothing
set rsImg = nothing
set rsIcon = nothing
set Upload = nothing
'response.end
end if
%>
:: SWDSBD Dot Com's Web Admin ::
บันทึกข่าวประชาสัมพันธ์!
Code
:
<%=prod_code%>
Preview
:
<%=prod_describe%>
Detail
:
<%=prod_detail%>
Spec.
name :
<%=prod_specName%>
Spec.
URL :
<%=prod_specUrl%>
Group
:
<%
qryGrp = "select * from bands where band_id = "& band_id &""
set rsGrp = conn.execute(qryGrp)
if not rsGrp.eof then
response.write rsGrp("band_name")
end if
%>
<%
if len(rsSel("prod_picture")) > 0 then
response.write imgsrc("../" & rsSel("prod_picture"), rsSel("prod_picturex"), rsSel("prod_picturey"), 200, 0)
end if
%>
