<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%SET upl=Server.CreateObject("SoftArtisans.FileUp")
IPath=Server.MapPath("\") & "\Uploads\MonthlyImages\"
upl.Path=Server.MapPath("\") & "\Uploads\MonthlyImages\"
%>
<% PageTitle = "SiteManager - Monthly Special Images" %>
<% PageID=600 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%MonthlyImages%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub MonthlyImages
message=""
tmessage=""
OpenConnection1
MonthID = Request.QueryString("MID")
If upl.Form("chkDelete")="deletemain" then
SET del=Server.CreateObject("SoftArtisans.SAFile")
SET rs=Server.CreateObject("ADODB.Recordset")
SEL="SELECT txtImage FROM Monthly WHERE MonthlyID=" & MonthID
rs.Open SEL,DB,1,3
If rs("txtImage")<>"" then
del.Delete IPath & rs("txtImage")
rs("txtImage")=""
rs.Update
rs.Close
Response.Redirect("monthly_images.asp?MID=" & MonthID)
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=MonthID&NewFileName
PIC = "SELECT * FROM Monthly WHERE MonthlyID=" & MonthID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open PIC,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("monthly_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("monthly_images.asp?MID=" & MonthID)
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("monthly_images.asp?MID=" & MonthID)
End If
End If
End If
PIC = "SELECT txtHeading,txtImage FROM Monthly WHERE MonthlyID=" & MonthID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open PIC,DB,1,3
If rs.EOF then Response.Redirect("monthly_list.asp")
If rs("txtImage")<>"" then
txtImage=rs("txtImage")
Else
message="There is currently no image associated with this Monthly Special"
End If
txtHeading=DisPrepText(rs("txtHeading"))
rs.Close%>
<%= FormatDateTime(Date,1) %>
<%If expire<>"" then%>
<%=expire%>
<%End If%>
<%=txtHeading%>
Monthly Special Image:
<%If txtImage<>"" then%>
<%Else%>
<%=message%>
<%End If%>
<%End Sub%>