<%
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** This program is free software; you can redistribute it and/or
'** modify it under the terms of the GNU General Public License
'** as published by the Free Software Foundation; either version 2
'** of the License, or any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to 
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
%><!-- #INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "256697926329" Then %> 
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->
<table border="0" width="100%">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="icon_folder_open.gif" height=15 width=15 border="0">&nbsp;<a href="default.asp">Home</a><br>
    <img src="icon_blank.gif" height=15 width=15 border="0"><img src="icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;<a href="admin_home.asp">Admin Section</a><br>
	<img src="icon_blank.gif" height=15 width=15 border="0"><img src="icon_blank.gif" height=15 width=15 border="0"><img src="icon_folder_open_topic.gif" height=15 width=15 border="0">&nbsp;<a href="admin_pic_main.asp">Pictures Admin</a><br>
    </font></td>
  </tr>
</table>
<table width="100%" border="0">
	<tr>
		<td width="25%" valign=top>
<!--#include file="admin_pic_menu.asp" -->
		</td>
		<td width="100%" align="left">
<%

pic = Request.QueryString("id")


Set RS = my_Conn.Execute("select * from pic where pic_ID =" & pic)
boolShow = rs("SHOW")
%>
<FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="#008000">
<b>Editing picture:</b></font>
<form action="admin_pic_step1update.asp" method="post">
<table border="0">
  <tr>
    <td align="right">
      <input type="hidden" name="webid" value="<%=pic%>">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>"> 
      <b>Title:</b></font></td><td><input type="text" value="<%=replace(ChkString(RS("Title"), "edit"), "''","'", 1, -1, 1)%>" name="title" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Description:</b></font></td><td><textarea name="description" cols=30 rows=4><%= ChkString(rs("DESCRIPTION"), "display") %></textarea></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Keyword:</b></font></td><td><input type="text" name="keyword" value="<%=ChkString(RS("keyword"), "edit")%>" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Copyright:</b></font></td><td><input type="text" name="copyright" value="<%=ChkString(RS("COPYRIGHT"), "edit")%>" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>URL :</b></font></td><td><input type="text" value="<%=replace(ChkString(RS("url"), "display"), "''","'", 1, -1, 1)%>" name="url" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Thumbnail URL :</b></font></td><td><input type="text" value="<%=replace(ChkString(RS("turl"), "display"), "''","'", 1, -1, 1)%>" name="turl" size="40"></td></tr>
   <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Poster:</b></font></td><td><input type="text" value="<%=ChkString(RS("poster"), "edit")%>" name="poster" size="40"><FONT face=<%= strDefaultFontFace %> size="<%= strFooterFontSize %>" color="<%= strDefaultFontColor %>"> (Member Name)</font></td></tr>
   <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Owners:</b></font></td><td><input type="text" value="<%=ChkString(RS("OWNER"), "edit")%>" name="owner" size="40"><FONT face=<%= strDefaultFontFace %> size="<%= strFooterFontSize %>" color="<%= strDefaultFontColor %>"> (Use 0 for public.|MemberID|)</font></td></tr>      
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>"><b>Show :</b></font></td><td><input name="show" type="checkbox" value="1" <%=Chked(boolShow)%>></font></td></tr>
  <tr><td></td>
    <td align="left"><input type="submit" value="Update first step"><input type="reset" value="Cancel"></td></tr>
</table>
</form> 

<%

RS.Close 
set RS = nothing ' added
%>
		</td>
	</tr>
</table>
<br>
<!-- #INCLUDE FILE="inc_footer.asp" -->
<% Else %><% Response.Redirect "admin_login.asp" %><% End If %>