<%@LANGUAGE="VBSCRIPT"%> <%Response.Buffer = true RedirURL = "/jgallery/jgallery.asp?g="& g Datafile = datadir&"npc_jphotos.mdb" PhotoTable = "tblPhotos" slide_path = "/jgallery/photos/" If not (editor or master) then Response.Redirect(RedirURL) 'Dim rs PageMode = Request("PageMode") If PageMode = "" Then PageMode = Request.Form("PageMode") If PageMode = "cancel changes" or PageMode = "abandon new record" Then Response.Redirect(RedirURL) If PageMode = "AddNew" or PageMode = "show slide" Then m_ID = 0 'dummy value If PageMode = "show slide" then mFileName = nz(Request.form("ffilename")) else mFileName = "" mTitle = "" mdescription = "" mDateTaken = "" mKeywords = "" savlabel = "save new record" canlabel = "abandon new record" editing = false titlesuffix = " (now adding a new record)" Else savlabel = "save changes" canlabel = "cancel changes" editing = true titlesuffix = " (now editing this record)" End If If PageMode = "Edit" Then OpenOleConn(DataFile) set rs = objConn.execute("SELECT * from " & PhotoTable &" where ID = " & Request("ID")) m_ID = rs("ID") mFileName = rs("filename") mTitle = rs("title") mdescription = rs("description") mDateTaken = rs("datetaken") mKeywords = rs("keywords") CloseData() End If If PageMode = "delete record" Then OpenOleConn(DataFile) set rs = Server.CreateObject("ADODB.Recordset") SQL = "DELETE * from " & PhotoTable &" WHERE ID = " & Request.form("ID") & " " rs.Open SQL, objConn CloseData() Response.Redirect(RedirURL) End If If PageMode = "save changes" or PageMode = "save new record" Then OpenOleConn(DataFile) set rs = Server.CreateObject("ADODB.Recordset") sqlStr = "select * from " & PhotoTable & " WHERE ID = " & Request.form("ID") & " " rs.Open sqlStr, objConn, 2, 3 If PageMode = "save new record" Then rs.addnew rs("filename") = Request.form("ffilename") rs("title") = ReplaceChar(34,ReplaceChar(39,Request.form("ftitle"))) rs("description") = ReplaceChar(34,ReplaceChar(39,Request.form("fdescription"))) rs("datetaken") = Request.form("fdatetaken") rs("keywords") = Request.form("fkeywords") rs.update CloseData() Response.Redirect(RedirURL) End If %>

Slide Details<%=titlesuffix%>

Image File Name

<%if PageMode = "AddNew" then response.write("") end if %>
(file name without the .jpg suffix)

Title

Date taken

(month and year)

Search Keywords

Text

<%If Editing Then%> <%End if%>