<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%SET upl=Server.CreateObject("SoftArtisans.FileUp")
IPath= Server.MapPath("\") & "\Uploads\WhatsNewImages\"
upl.Path= Server.MapPath("\") & "\Uploads\WhatsNewImages\"
%>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - 'What's New' Images" %>
<% PageID=503 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%WhatsNewImages%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub WhatsNewImages
message=""
tmessage=""
OpenConnection1
EntryID = Request.QueryString("EID")
If upl.Form("chkDelete")="deletemain" then
SET del=Server.CreateObject("SoftArtisans.SAFile")
SET rs=Server.CreateObject("ADODB.Recordset")
SEL="SELECT txtImage FROM WhatsNew WHERE EntryID=" & EntryID
rs.Open SEL,DB,1,3
If rs("txtImage")<>"" then
del.Delete IPath & rs("txtImage")
rs("txtImage")=""
rs.Update
rs.Close
Response.Redirect("WhatsNew_Images.asp?EID=" & EntryID)
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=EntryID&NewFileName
PIC = "SELECT * FROM WhatsNew WHERE EntryID=" & EntryID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open PIC,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("WhatsNew_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("WhatsNew_Images.asp?EID="&EntryID)
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("WhatsNew_Images.asp?EID="&EntryID)
End If
End If
End If
PIC = "SELECT txtHeading,txtImage FROM WhatsNew WHERE EntryID=" & EntryID
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open PIC,DB,1,3
If rs.EOF then expire="The associated product has been deleted - return to the Product List!"
If rs("txtImage")<>"" then
txtImage=rs("txtImage")
Else
message="There is currently no image associated with this 'What's New' entry"
End If
txtHeading=DisPrepText(rs("txtHeading"))
rs.Close%>
<%= FormatDateTime(Date,1) %>
<%If expire<>"" then%>
<%=expire%>
<%End If%>
<%=txtHeading%>
WhatsNew Image:
<%If txtImage<>"" then%>
<%Else%>
<%=message%>
<%End If%>
<%End Sub%>