<%
'***********************************************************************
'** 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_classified_main.asp">Classified Admin</a><br>
    </font></td>
  </tr>
</table>
<table width="100%" border="0">
	<tr>
		<td width="25%" valign=top>
<!--#include file="admin_classified_menu.asp" -->
		</td>
		<td width="75%" align="center">
<%

url = Request.QueryString("id")


Set RS = my_Conn.Execute("select TITLE, DESCRIPTION, KEYWORD, PRICE, EMAIL, ADDRESS, CITY, STATE, ZIPCODE, LINK, IMAGELINK, POST_DATE, END_DATE from CLASSIFIED where CLASSIFIED_ID =" & url)

%>
<FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="#008000">
<b>Editing Ad:</b></font>
<form action="admin_classified_step1update.asp" method="post">
<table border="0">
  <tr>
    <td align="right">
      <input type="hidden" name="webid" value="<%=url%>">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>"> 
      <b>Title :</b></font></td><td><input type="text" value="<%=ChkString(RS("title"), "edit")%>" 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><textarea name="keyword" cols=30 rows=4><%=ChkString(RS("keyword"), "display")%></textarea></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Price :</b></font></td><td><input type="text" value="<%=ChkString(RS("price"), "edit")%>" name="price" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Email :</b></font></td><td><input type="text" value="<%=ChkString(RS("email"), "edit")%>" name="email" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Address :</b></font></td><td><input type="text" value="<%=ChkString(RS("address"), "edit")%>" name="address" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>City :</b></font></td><td><input type="text" value="<%=ChkString(RS("city"), "edit")%>" name="city" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>State :</b></font></td><td><input type="text" value="<%=ChkString(RS("state"), "edit")%>" name="state" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Zip Code :</b></font></td><td><input type="text" value="<%=ChkString(RS("zipcode"), "edit")%>" name="zipcode" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Link :</b></font></td><td><input type="text" value="<%=ChkString(RS("link"), "edit")%>" name="link" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Image Link :</b></font></td><td><input type="text" value="<%=ChkString(RS("imagelink"), "edit")%>" name="imagelink" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>Post Date :</b></font></td><td><input type="text" value="<%=ChkString(RS("post_date"), "edit")%>" name="post_date" size="40"></td></tr>
  <tr>
    <td align="right">
      <FONT face=<%= strDefaultFontFace %> size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">
      <b>End Date :</b></font></td><td><input type="text" value="<%=ChkString(RS("end_date"), "edit")%>" name="end_date" size="40"></td></tr>
  <tr>
    <td colspan=2 align="right">
      <input type="submit" value="Update first step"><input type="reset" value="Cancel">&nbsp;</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 %>