<% strPW = "bullet" If Not Request("pw") = "" then Session("pw") = Request.Form("pw") End If If Not Request("imageID") = "" then imageID = cint(Request("imageID")) Else imageID = cint(36) End If If Request("page") = "" Then intPage = 1 Else intPage = Request("page") End If If Request("Action") = "edit" and Session("pw") <> strPW then call GetPassword Response.End End If If Request("Action") = "edit" and Request("Title") <> "" then Set oConn = Server.CreateObject("ADODB.Connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\database\recentwork.mdb") & ";" & _ "Persist Security Info=False" oConn.Open(sConnString) strTitle = Replace(Request("Title"),"'","''") strDescription = Replace(Request("ASPRichEdit"),"'","''") sql = "update paintings set title = '" & strTitle & "', description = '" & strDescription & "' where ImageID = " & imageID 'response.write sql oConn.Execute sql 'oConn.Commit Set oConn = nothing End If If Request("Action") = "edit" and Request("Delete") <> "" then Set oConn = Server.CreateObject("ADODB.Connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\database\recentwork.mdb") & ";" & _ "Persist Security Info=False" oConn.Open(sConnString) strTitle = Replace(Request("Title"),"'","''") strDescription = Request("ASPRichEdit") sql = "delete from paintings where ImageID = " & imageID 'response.write sql oConn.Execute sql 'oConn.Commit Set oConn = nothing End If Set oConn = Server.CreateObject("ADODB.Connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\database\recentwork.mdb") & ";" & _ "Persist Security Info=False" oConn.Open(sConnString) Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 RS.CursorType = 3 RS.ActiveConnection = oConn sql = "select * from paintings where imageid =" & imageID RS.Open sql If Not RS.EOF then pTitle = RS("Title") pImage = RS("PreviewFileName") If IsNull(RS("Description")) then pDescription = "" Else pDescription = RS("Description") End If pImageL = RS("LargeFileName") Else pTitle = "Image Removed from Gallery" pImage = "spacer.gif" End If Set RS = Nothing Set oConn = Nothing %> Stephen Conley : Recent Work
 conleyart.com : the art of Stephen Conley

: Home
: Bio
: Guestbook
: Contact



Early Work


Portraits


Recent Work


Animal Behavior

  Recent Work
(2000+)
<% If cInt(intPage) > 1 Then%> <%End If Set oConn = Server.CreateObject("ADODB.Connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("\database\recentwork.mdb") & ";" & _ "Persist Security Info=False" oConn.Open(sConnString) sql = "select * from paintings order by imageid" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 RS.CursorType = 3 RS.ActiveConnection = oConn RS.Open sql RS.PageSize = 15 RS.CacheSize = RS.PageSize intPageCount = RS.PageCount intRecordCount = RS.RecordCount If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 ' Make sure that the recordset is not empty. If it is not, then set the ' AbsolutePage property and populate the intStart and the intFinish variables. If intRecordCount > 0 Then RS.AbsolutePage = intPage intStart = RS.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RS.PageSize - 1) End if End If For intRecord = 1 to RS.PageSize%> <%rs.movenext If RS.EOF Then Exit for Next set rs = nothing set oconn = nothing If cInt(intPage) < cInt(intPageCount) Then%> <%End If%>
&imageID=<%=imageID%>" style="color: #336699;text-decoration: none;"><
back		 &page=<%=intPage%>&Action=<%=Request("action")%>"> " alt="<%=RS("title")%>"> &imageID=<%=imageID%>" style="color: #336699;text-decoration: none;"> more
>
       click for larger image  

"<%=pTitle%>"

<%=pDescription%>

 
.......................

all images on this site © Stephen Conley

<%If Request("Action") = "edit" then%>
Enter/Edit Title: 

Enter Description/Dimensions/Availability, etc.:
<% If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") then%>
BoldItalicUnderline LeftCentreRightJustify Bulleted ListNumbered List IndentOutdent Create/Edit Hyperlink

<%Else%> <%End If%>
  




<%=Request.Form("ASPRichEdit")%> <%End If%> <%Sub GetPassword%> Enter Password
This page is for administrative purposes only.
If you got here accidentally, take this link to go back.

Enter Password:
<%End Sub%>