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