<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%SET upl=Server.CreateObject("SoftArtisans.FileUp")
IPath= Server.MapPath("\") & "\Uploads\SupplyImages\"
upl.Path= Server.MapPath("\") & "\Uploads\SupplyImages\"
%>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Supply Images" %>
<% PageID=300 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%SupplyImages%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub SupplyImages
message=""
tmessage=""
OpenConnection1
SupplyID = Request.QueryString("SID")
If upl.Form("chkDelete")="deletemain" then
SET del=Server.CreateObject("SoftArtisans.SAFile")
SET rs=Server.CreateObject("ADODB.Recordset")
SEL="SELECT txtImage FROM Supplies WHERE SupplyID=" & SupplyID
rs.Open SEL,DB,1,3
If rs("txtImage")<>"" then
del.Delete IPath & rs("txtImage")
rs("txtImage")=""
rs.Update
rs.Close
Response.Redirect("Supply_Images.asp?SID="&SupplyID)
Else
expire="There is no image to delete!"
End If
End If
If upl.Form("chkDelete")="" AND upl.Form("hidSave")="True" then
NewFileName = Mid(upl.form("f1").UserFilename, InstrRev(upl.form("f1").UserFilename, "\") + 1)
NewFileName=SupplyID&NewFileName
PIC = "SELECT * FROM Supplies WHERE SupplyID=" & SupplyID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open PIC,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("Supply_List.asp")
ElseIf rs("txtImage")<>"" then
If NewFileName <> rs("txtImage") then
If upl.IsEmpty then
expire="The file that you uploaded was empty or unreadable. Please try again."
rs.Close
Else
upl.Form("f1").SaveAs NewFileName
upl.Delete IPath & rs("txtImage")
rs("txtImage")= NewFileName
rs.Update
rs.Close
Response.Redirect("Supply_Images.asp?SID="&SupplyID)
End If
Else
expire="You cannot replace an image with an image of the same name - please rename the new image before uploading!"
rs.Close
End If
Else
If upl.IsEmpty then
expire="The file that you uploaded was empty or unreadable. Please try again."
rs.Close
Else
upl.Form("f1").SaveAs NewFileName
rs("txtImage")= NewFileName
rs.Update
rs.Close
Response.Redirect("Supply_Images.asp?SID="&SupplyID)
End If
End If
End If
PIC = "SELECT txtSupply,txtImage FROM Supplies WHERE SupplyID=" & SupplyID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open PIC,DB,1,3
If rs.EOF then
rs.close
Response.Redirect("Supply_List.asp")
End If
If rs("txtImage")<>"" then
txtImage=rs("txtImage")
Else
message="There is currently no image associated with this Supply!"
End If
txtSupply=DisPrepText(rs("txtSupply"))
rs.Close%>
<%= FormatDateTime(Date,1) %>
<%If expire<>"" then%>
<%=expire%>
<%End If%>
<%=txtSupply%>
Supply Image:
<%If txtImage<>"" then%>
<%Else%>
<%=message%>
<%End If%>
<%End Sub%>