<!-- #include file="i_utils.asp" -->
<%

check_security(2) 

%>
<!--#include file='i_fileupload.asp'-->
<%
	dim Feature
	dim ContentID
	dim update_feature_sql
	dim user_id
	dim ContentTypeID
	dim CatID
	dim Title
	dim Author
	dim RelatedURL
	dim DownloadURL
	dim FileName
	dim DateAdded
	dim ShortDesc
	dim LongDesc
	dim Display
	dim EMail
	dim Expire
	dim Priority
	dim Impressions
	dim ClickThrus
	dim AvgRating
	dim Ratings
	dim edit_content_sql
	dim ContentType
	dim Cat
	dim view_content_sql

sub request_update_feature
''' request form inputs from this form
	Feature = request("Feature")
	ContentID = request("ContentID")
end sub
sub request_edit_content
''' request form inputs from this form
	Feature = request("Feature")
	ContentID = request("ContentID")
	user_id = request("user_id")
	ContentTypeID = request("ContentTypeID")
	CatID = request("CatID")
	Title = request("Title")
	Author = request("Author")
	RelatedURL = request("RelatedURL")
	DownloadURL = request("DownloadURL")
	FileName = request("FileName")
	DateAdded = request("DateAdded")
	ShortDesc = request("ShortDesc")
	LongDesc = request("LongDesc")
	Display = request("Display")
	EMail = request("EMail")
	Expire = request("Expire")
	Priority = request("Priority")
	Impressions = request("Impressions")
	ClickThrus = request("ClickThrus")
	AvgRating = request("AvgRating")
	Ratings = request("Ratings")
end sub
sub request_view_content
''' request form inputs from this form
	CatID = request("CatID")
	ContentTypeID = request("ContentTypeID")
	user_id = request("user_id")
	ContentID = request("ContentID")
	Title = request("Title")
	ContentType = request("ContentType")
	Cat = request("Cat")
	Author = request("Author")
	DateAdded = request("DateAdded")
	ShortDesc = request("ShortDesc")
	Display = request("Display")
	Priority = request("Priority")
	Impressions = request("Impressions")
	ClickThrus = request("ClickThrus")
	AvgRating = request("AvgRating")
end sub

sub validate_update_feature
''' request and validate data entered from this form
	Feature = trim(request("Feature"))
	ContentID = trim(request("ContentID"))
end sub
sub validate_edit_content
''' request and validate data entered from this form
	Feature = trim(request("Feature"))
	ContentID = trim(request("ContentID"))
	user_id = trim(request("user_id"))
	if user_id = "" then
		error_list.add "587173","User must be specified."
		b_error = true
	end if
	ContentTypeID = trim(request("ContentTypeID"))
	if ContentTypeID = "" then
		error_list.add "587180","Content Type must be specified."
		b_error = true
	end if
	CatID = trim(request("CatID"))
	if CatID = "" then
		error_list.add "587161","Category must be specified."
		b_error = true
	end if
	Title = trim(request("Title"))
	if Title = "" then
		error_list.add "587172","Title must be specified."
		b_error = true
	end if
	Author = trim(request("Author"))
	RelatedURL = trim(request("RelatedURL"))
	DownloadURL = trim(request("DownloadURL"))
	FileName = trim(request("FileName"))
	DateAdded = trim(request("DateAdded"))
	if DateAdded <> "" AND (not isdate(DateAdded)) then
		error_list.add "587160date","Date Added must be a valid date (MM/DD/YY)."
		b_error = true
	end if
	ShortDesc = trim(request("ShortDesc"))
	LongDesc = trim(request("LongDesc"))
	Display = trim(request("Display"))
	EMail = trim(request("EMail"))
	Expire = trim(request("Expire"))
	if Expire <> "" AND (not isdate(Expire)) then
		error_list.add "587165date","Expire must be a valid date (MM/DD/YY)."
		b_error = true
	end if
	Priority = trim(request("Priority"))
	Impressions = trim(request("Impressions"))
	ClickThrus = trim(request("ClickThrus"))
	AvgRating = trim(request("AvgRating"))
	Ratings = trim(request("Ratings"))
end sub
sub validate_view_content
''' request and validate data entered from this form
	CatID = trim(request("CatID"))
	ContentTypeID = trim(request("ContentTypeID"))
	user_id = trim(request("user_id"))
	ContentID = trim(request("ContentID"))
	Title = trim(request("Title"))
	ContentType = trim(request("ContentType"))
	Cat = trim(request("Cat"))
	Author = trim(request("Author"))
	DateAdded = trim(request("DateAdded"))
	if DateAdded <> "" AND (not isdate(DateAdded)) then
		error_list.add "587191date","Created must be a valid date (MM/DD/YY)."
		b_error = true
	end if
	ShortDesc = trim(request("ShortDesc"))
	Display = trim(request("Display"))
	Priority = trim(request("Priority"))
	Impressions = trim(request("Impressions"))
	ClickThrus = trim(request("ClickThrus"))
	AvgRating = trim(request("AvgRating"))
end sub

sub get_defaults_edit_content
''' set default values for this form
	user_id = session("user_id")
	DateAdded = "" & now() & ""
	Display = 1
	Priority = 3
	Impressions = 0
	ClickThrus = 0
	Ratings = 0
end sub
sub get_defaults_view_content
''' set default values for this form
	Display = 1
end sub

sub db_select_update_feature
	sql = "SELECT ContentID FROM Content WHERE Feature=1"
	on error resume next
	set rs = cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "select_data_update_feature", "The data selection failed. " & err.description
	elseif rs.EOF then
		b_results = false
		msg_list.add "select_data_update_feature", "The record was removed from the database."
	else
		Feature = rs("Feature")
		ContentID = rs("ContentID")
	end if
	rs.Close
	on error goto 0
end sub
sub db_insert_update_feature
	sql = "INSERT INTO Content" & _ 
	"(" & _ 
	"Feature," & _ 
	"ContentID" & _ 
	") VALUES (" & to_sql(Feature,"text") & "," & _ 
	"" & to_sql(ContentID,"text") & ")" & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.Number <> 0 then
		b_error = true
		error_list.add "db_insert_update_feature" & err.Number ,"The database insert failed. " & err.Description
	else
		msg_list.add "db_insert_update_feature","The database insert was successful."	end if
	on error goto 0
end sub
sub db_update_update_feature
	sql = "UPDATE Content SET " & _ 
	"Feature = " & to_sql(1,"number") & " WHERE ContentID = " & to_sql(ContentID,"number") & ""
	'response.write sql
	on error resume next
	cn.execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_update_update_feature" & err.Number ,"The database update failed. " & err.Description
	else
	end if
	on error goto 0
end sub
sub db_delete_update_feature
	sql = "UPDATE CONTENT SET Feature = NULL"
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_delete_update_feature" & err.Number ,"The database deletion failed. " & err.Description
	else
		msg_list.add "db_delete_update_feature","The record was removed."
	end if
	on error goto 0
end sub
sub db_select_edit_Content
	sql = "SELECT " & _ 
	"Feature," & _ 
	"ContentID, " & _ 
	"user_id, " & _ 
	"ContentTypeID, " & _ 
	"CatID, " & _ 
	"Title, " & _ 
	"Author, " & _ 
	"FileName, " & _ 
	"RelatedURL, " & _ 
	"DownloadURL, " & _ 
	"DateAdded, " & _ 
	"ShortDesc, " & _ 
	"LongDesc, " & _ 
	"Display, " & _ 
	"EMail, " & _ 
	"Expire, " & _ 
	"Priority, " & _ 
	"Impressions, " & _ 
	"ClickThrus, " & _ 
	"AvgRating, " & _ 
	"Ratings FROM Content" & _ 
	" WHERE " & _ 
	"ContentID = " & to_sql(ContentID,"number") & ""
	on error resume next
	set rs = cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "select_data_edit_Content", "The data selection failed. " & err.description
	elseif rs.EOF then
		b_results = false
		msg_list.add "select_data_edit_Content", "The record was removed from the database."
	else
		Feature = rs("Feature")
		ContentID = rs("ContentID")
		user_id = rs("user_id")
		ContentTypeID = rs("ContentTypeID")
		CatID = rs("CatID")
		Title = rs("Title")
		Author = rs("Author")
		RelatedURL = rs("RelatedURL")
		DownloadURL = rs("DownloadURL")
		FileName = rs("FileName")
		DateAdded = rs("DateAdded")
		ShortDesc = rs("ShortDesc")
		LongDesc = rs("LongDesc")
		Display = rs("Display")
		EMail = rs("EMail")
		Expire = rs("Expire")
		Priority = rs("Priority")
		Impressions = rs("Impressions")
		ClickThrus = rs("ClickThrus")
		AvgRating = rs("AvgRating")
		Ratings = rs("Ratings")
	end if
	rs.Close
	on error goto 0
end sub
sub db_insert_edit_Content
	sql = "INSERT INTO Content" & _ 
	"(" & _ 
	"user_id," & _ 
	"ContentTypeID," & _ 
	"CatID," & _ 
	"Title," & _ 
	"Author," & _ 
	"FileName," & _ 
	"RelatedURL," & _ 
	"DownloadURL," & _ 
	"DateAdded," & _ 
	"ShortDesc," & _ 
	"LongDesc," & _ 
	"Display," & _ 
	"EMail," & _ 
	"Expire," & _ 
	"Priority," & _ 
	"Impressions," & _ 
	"ClickThrus," & _ 
	"Ratings" & _ 
	") VALUES (" & _ 
	"" & to_sql(user_id,"number") & "," & _ 
	"" & to_sql(ContentTypeID,"number") & "," & _ 
	"" & to_sql(CatID,"number") & "," & _ 
	"" & to_sql(Title,"text") & "," & _ 
	"" & to_sql(Author,"text") & "," & _ 
	"" & to_sql(FileName,"text") & "," & _ 
	"" & to_sql(RelatedURL,"text") & "," & _ 
	"" & to_sql(DownloadURL,"text") & "," & _ 
	"" & to_sql(now(),"date") & "," & _ 
	"" & to_sql(ShortDesc,"text") & "," & _ 
	"" & to_sql(LongDesc,"text") & "," & _ 
	"" & to_sql(Display,"number") & "," & _ 
	"" & to_sql(EMail,"text") & "," & _ 
	"" & to_sql(Expire,"text") & "," & _ 
	"" & to_sql(Priority,"number") & "," & _ 
	"0," & _ 
	"0," & _ 
	"1)" & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.Number <> 0 then
		b_error = true
		error_list.add "db_insert_edit_Content" & err.Number ,"The database insert failed. " & err.Description
	else
		set rs = cn.Execute("SELECT @@IDENTITY")
		ContentID = rs(0)
		rs.Close
		msg_list.add "db_insert_edit_Content","The database insert was successful."	end if
	on error goto 0
end sub
sub db_update_edit_Content
	sql = "UPDATE Content SET " & _ 
	"user_id = " & to_sql(user_id,"number") & ", " & _ 
	"ContentTypeID = " & to_sql(ContentTypeID,"number") & ", " & _ 
	"CatID = " & to_sql(CatID,"number") & ", " & _ 
	"Title = " & to_sql(Title,"text") & ", " & _ 
	"Author = " & to_sql(Author,"text") & ", " & _ 
	"FileName = " & to_sql(FileName,"text") & ", " & _ 
	"RelatedURL = " & to_sql(RelatedURL,"text") & ", " & _ 
	"DownloadURL = " & to_sql(DownloadURL,"text") & ", " & _ 
	"ShortDesc = " & to_sql(ShortDesc,"text") & ", " & _ 
	"LongDesc = " & to_sql(LongDesc,"text") & ", " & _ 
	"Display = " & to_sql(Display,"number") & ", " & _ 
	"EMail = " & to_sql(EMail,"text") & ", " & _ 
	"Expire = " & to_sql(Expire,"text") & ", " & _ 
	"Priority = " & to_sql(Priority,"number") & ", " & _ 
	"Impressions = " & to_sql(Impressions,"number") & ", " & _ 
	"ClickThrus = " & to_sql(ClickThrus,"number") & ", " & _ 
	"AvgRating = " & to_sql(AvgRating,"text") & ", " & _ 
	"Ratings = " & to_sql(Ratings,"number") & " WHERE " & _ 
	"ContentID = " & ContentID & ""
	'response.write sql
	on error resume next
	cn.execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_update_edit_Content" & err.Number ,"The database update failed. " & err.Description
	else
	end if
	on error goto 0
end sub
sub db_delete_edit_Content
	sql = "DELETE FROM Content" & _ 
	" WHERE " & _ 
	"ContentID = " & to_sql(ContentID,"number") & ""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
		error_list.add "db_delete_edit_Content" & err.Number ,"The database deletion failed. " & err.Description
	else
		msg_list.add "db_delete_edit_Content","The record was removed."
	end if
	on error goto 0
end sub
sub db_select_view_Content
	view_Content_sql = "SELECT " & _ 
	"Content.ContentID, " & _ 
	"Content.user_id, " & _ 
	"Content.RegionID, " & _ 
	"Content.ContentTypeID, " & _ 
	"Content.CatID, " & _ 
	"Content.Title, " & _ 
	"Content.Author, " & _ 
	"Content.FileName, " & _ 
	"Content.RelatedURL, " & _ 
	"Content.DownloadURL, " & _ 
	"Content.DateAdded, " & _ 
	"Content.ShortDesc, " & _ 
	"Content.LongDesc, " & _ 
	"Content.Display, " & _ 
	"Content.EMail, " & _ 
	"Content.Expire, " & _ 
	"Content.Priority, " & _ 
	"Content.Impressions, " & _ 
	"Content.ClickThrus, " & _ 
	"Content.AvgRating, " & _ 
	"Content.Ratings, " & _ 
	"ContentTypes.ContentType, Cats.Cat FROM ((Content LEFT JOIN ContentTypes ON Content.ContentTypeID = ContentTypes.ContentTypeID) LEFT JOIN Cats ON Content.CatId = Cats.CatId)"
	if request("sortby") <> "" AND inStr(lcase(view_Content_sql),"order by") = 0 then view_Content_sql = view_Content_sql + " ORDER BY " & request("sortby")
end sub
sub db_delete_view_Content
	sql = "DELETE FROM " & _ 
	""
	'response.write sql
	on error resume next
	cn.Execute(sql)
	if err.number <> 0 then
		b_error = true
	end if
	on error goto 0
end sub

do_search = request("do_search")
''' request form keys and inputs
ContentID = request("ContentID")
ContentTypeID = request("ContentTypeID")

''' request action
action = lcase(request("action"))
''' action case handler
select case action

case "select_update_feature"
'  select the requested key record from database
if ContentID <> "" then
	db_select_update_feature
else
	b_error = true
	error_list.add "edit_update_feature", "Specify record to select."
end if


case "insert_update_feature"
'  request form data and insert a new record into database

validate_update_feature
if not b_error then
	db_insert_update_feature
end if


case "update_update_feature"
'  request form data and update an existing database record
validate_update_feature
if not b_error then
if ContentID <> "" then
	':: remove any existing feature
	db_delete_update_feature
	':: set new feature based on passed contentid
	db_update_update_feature
else
	b_error = true
	error_list.add "update_update_feature", "Specify record to update."
end if
end if

case "delete_update_feature"
'  delete the requested key database record
if ContentID <> "" then
	db_delete_update_feature
	response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
else
	b_error = true
	error_list.add "delete_update_feature", "Specify record to delete."
end if


case "select_edit_content"
'  select the requested key record from database
if ContentID <> "" then
	db_select_edit_Content
else
	b_error = true
	error_list.add "edit_edit_Content", "Specify record to select."
end if


case "insert_edit_content"
'  request form data and insert a new record into database

validate_edit_content
if not b_error then
	''' form validation passed, so save record
	db_insert_edit_content
else
	''' form validation failed, so re-display form
	display_edit_content = true 
end if


case "update_edit_content"
'  request form data and update an existing database record
validate_edit_content
if not b_error then
if ContentID <> "" then
	db_update_edit_content
else
	b_error = true
	error_list.add "update_edit_content", "Specify record to update."
end if
end if


case "delete_edit_content"
'  delete the requested key database record
if ContentID <> "" then
	db_delete_edit_content
	'' if there is a related file delete it
	filename = request("FileName")
	if filename <> "" then
		'' call delete_file in i_fileupload
		retv = delete_file(server.mappath("library/" & filename & ""))
	end if
	response.redirect request.servervariables("script_name") & "?ContentTypeId=" & ContentTypeId & "&msg=The+record+was+deleted."
else
	b_error = true
	error_list.add "delete_edit_content", "Specify record to delete."
end if


case "select_view_content"
'  select the requested key record from database
db_select_view_Content

case "display_edit_content"
	':: prepare to add new content
	display_edit_content = true
	get_defaults_edit_Content

end select
':: handle the default case(s) for each form (separate from action= parameter)
if ContentID <> "" then
	db_select_edit_Content
	display_edit_Content = true 
else
	':: select the featured content
	db_select_update_feature
	':: select all content
	db_select_view_Content
end if

%>

<!--#include file='i_header.asp'--><!--#include file='i_menu.asp'-->

<script language="JavaScript">
function update_field(sNewValue,sForm,sField)
{
	eval("document." + sForm + "[sField].value = sNewValue;");
}
</script>
<%
display_errs
display_msg
%>

<% if display_edit_Content <> true then %>
<%

':: check if hide form var was set
if not b_hide_update_feature then
%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
<A href='admin_content.asp'>Content Manager</A> | &nbsp; <a href='admin_contenttypes.asp'>Edit Content Types..</a>
</td>
</tr>
</table>
<form id="update_feature" name="update_feature" action="admin_content.asp" method="post" >

<table  >
		
		<input type=hidden name="Feature" value="<% =Feature %>">
		
<tr>
	<td class='labelTD'>select "featured" content</td>
	<td class='dataTD' width='75%'>
		
		<select name="ContentID"  "0">
		
		<%
		 =get_options ("SELECT ContentId, Title, Author FROM Content WHERE Display=1 ORDER BY Title", ContentID) 
		%>
		</select>
		<input class=cmd type=submit value='UPDATE'>
	</td>
</tr>
<tr>
	<td class=labelTD align=right>&nbsp;
	</td>
	<td class=dataTD>
	
	</td>
<input type=hidden name="action" value="update_update_feature"></tr>


</table>
</form>
<%

':: end hide form if
end if
%>


<%

end if

':: Reset ContentId so that succeding forms work
ContentId = request("ContentId")

%>
<br>
<! -- only display the edit form when the grid form is not displayed -->
<% if ContentID <> "" OR display_edit_content then %>[<A HREF='admin_content.asp'>list all content</A>]<br><br>

<%

if inStr(lcase(cn.Provider),"jet") = 0 then
	'' with SQL db this must be set so that the Category select list displays correctly	
	cn.Execute ("SET CONCAT_NULL_YIELDS_NULL OFF")
	cc = "+"
else
	'' Access concatentation
	cc = "&"
end if

%>
<%

':: check if hide form var was set
if not b_hide_edit_Content then
%>
<form  name="edit_Content" action="admin_content.asp" method="post" >
<table class='headerTable'>
<tr>
<td class='headerTD'>
<A href='admin_content.asp'>Content Manager</A> &#8250; Edit Content
</td>
</tr>
</table>

<table  >

<tr>
	<td class='labelTD'>Featured</td>
	<td class='dataTD' >
		<% =Feature %><% if Feature="" then %>
[add content first]
<% end if %>
	</td>
</tr>
		
		<input type=hidden name="ContentID" value="<% =ContentID %>">
		
<tr>
	<td class='labelTD'>User</td>
	<td class='dataTD' >
		
		<select name="user_id"  "0">
		<option></option>
		<%
		 =get_options ("SELECT user_id, user_name FROM Users ORDER BY user_name", user_id) 
		%>
		</select>
		
	</td>
</tr>
<tr>
	<td class='labelTD'>Content Type</td>
	<td class='dataTD' >
		
		<select name="ContentTypeID"  "0">
		<option></option>
		<%
		 =get_options ("SELECT ContentTypeID, ContentType FROM ContentTypes", ContentTypeID) 
		%>
		</select>
		<A class=dataFont href='admin_contenttypes.asp'>Edit Content Types..</A>
	</td>
</tr>
<tr>
	<td class='labelTD'>Category</td>
	<td class='dataTD' >
		<select name=CatId>
<%
	sql = "SELECT Cats3.CatId, Cats.Cat, Cats1.Cat, Cats2.Cat, Cats3.Cat, CatType, enabled FROM ((((CatTypes RIGHT JOIN Cats As Cats3 ON Cats3.CatTypeId = CatTypes.CatTypeId) LEFT JOIN Cats As Cats2 ON Cats3.ParentId = Cats2.CatId) left JOIN Cats As Cats1 ON Cats2.ParentId = Cats1.CatId) LEFT JOIN Cats As Cats ON Cats1.ParentId = Cats.CatId) WHERE (Cats.ParentId is NULL) and (enabled = 1) ORDER BY (CatType" & cc & "Cats.Cat " & cc & " Cats1.Cat " & cc & " Cats2.Cat " & cc & " Cats3.Cat)"
		set rsSelect = cn.Execute(sql)
	do until rsSelect.EOF
		if last <> rsSelect(5) then
		tmp = tmp + "<option value=''></option>"
		tmp = tmp + "<option value=''>'" & rsSelect(5) & "' categories</option>"
		end if
		tmp = tmp + "<option"
		if cStr(rsSelect(0)) = cStr(CatId) then
			tmp = tmp + " SELECTED"
		end if
		tmp = tmp + " value='" & rsSelect(0) & "'>&nbsp;"
		if rsSelect.Fields.Count-1 = 0 then
			tmp = tmp + "" & rsSelect(0) & " "
		else
			for i = 1 to rsSelect.Fields.Count-2
				if rsSelect(i) <> "" then
					tmp = tmp + "" & rsSelect(i)
					if i < rsSelect.Fields.Count-2 then tmp = tmp + " &#8250; "
				end if
			next
		end if
		tmp = tmp + "</option>" & vbCRLF & chr(9) & chr(9)
		last = rsSelect(5)
	rsSelect.MoveNext
	loop
	rsSelect.Close
	response.write tmp
	CatId = ""
%>
</select>
<% =CatID %>&nbsp;<A class=dataFont href='admin_cats.asp'>Edit Categories..</A>
	</td>
</tr>
<tr>
	<td class='labelTD'>Title</td>
	<td class='dataTD' >
		<input type=text  name="Title" size="60" maxlength="100" value="<% =Title%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Author</td>
	<td class='dataTD' >
		<input type=text  name="Author" size="" maxlength="50" value="<% =Author%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Related URL</td>
	<td class='dataTD' >
		<input type=text  name="RelatedURL" size="60" maxlength="70" value="<% =RelatedURL%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Download URL</td>
	<td class='dataTD' >
		<input type=text  name="DownloadURL" size="60" maxlength="50" value="<% =DownloadURL%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Filename</td>
	<td class='dataTD' >
		<input type=text  name="FileName" size="30" maxlength="" value="<% =FileName%>">&nbsp;<a class=dataFont href="javascript:openWindow('pu_upload.asp?ret_form=edit_Content&ret_field=FileName&folder=library','upload_popup','width=400,height=100')">Upload File..</a> | <a class=dataFont href="javascript:openWindow('pu_fileman.asp?ret_form=edit_Content&ret_field=FileName','file_popup','scrollbars=yes,resizable=yes,status=yes,width=500,height=450')">File Manager..</a>
	</td>
</tr>
<tr>
	<td class='labelTD'>Date Added</td>
	<td class='dataTD' >
		<% =DateAdded %><% if DateAdded="" then %>
[recorded when content is inserted]
<% end if %>
	</td>
</tr>
<tr>
	<td class='labelTD'>Description</td>
	<td class='dataTD' >
		
		<textarea  name="ShortDesc" rows='6' cols='60'><% =ShortDesc%></textarea>
		
	</td>
</tr><% 
response.write "<tr><td class='labelTD'>Content</td><td class='dataTD' >"
	
if instr(request.servervariables("HTTP_USER_AGENT"),"MSIE") = 0 then 
		
response.write	"<textarea name='LongDesc' >" & to_html(long_desc) & "</text><BR>" 

response.write LongDesc 

else

	form_name = "edit_Content"
	textarea_name = "LongDesc"
	initial_value = LongDesc

	%>

	<!--#include file='i_skedit.asp' -->

<% end if 
response.write "</td></tr>"
%>
	
<tr>
	<td class='labelTD'>Display</td>
	<td class='dataTD' >
		<% if Display = "" then Display = false %>
		<input type=checkbox  <% if Display then %>checked<% end if %> name="Display" value="1">
	</td>
</tr>
<tr>
	<td class='labelTD'>EMail</td>
	<td class='dataTD' >
		<input type=text  name="EMail" size="" maxlength="50" value="<% =EMail%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Expire</td>
	<td class='dataTD' >
		<input type=text  name="Expire" size="" maxlength="10" value="<% =Expire%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Priority</td>
	<td class='dataTD' >
	<%
	if not isnull(Priority) then
		 '' if (Priority < 1) AND (not Priority) then Priority = 0
	else
		Priority = 0
	end if
	%>
		
		<select name="Priority"  "0">
		
		<option <% if "3" = cStr(Priority) then %>selected<% end if %> value="3">3-normal</option>
		<option <% if "2" = cStr(Priority) then %>selected<% end if %> value="2">2-medium</option>
		<option <% if "1" = cStr(Priority) then %>selected<% end if %> value="1">1-high</option>
		</select>
		
	</td>
</tr>
<tr>
	<td class='labelTD'>Impressions</td>
	<td class='dataTD' >
		<input type=text  name="Impressions" size="3" maxlength="25" value="<% =Impressions%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Click-thrus</td>
	<td class='dataTD' >
		<input type=text  name="ClickThrus" size="3" maxlength="25" value="<% =ClickThrus%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Average Rating</td>
	<td class='dataTD' >
		<input type=text  name="AvgRating" size="3" maxlength="" value="<% =AvgRating%>">
	</td>
</tr>
<tr>
	<td class='labelTD'>Ratings</td>
	<td class='dataTD' >
		<input type=text  name="Ratings" size="3" maxlength="25" value="<% =Ratings%>">
	</td>
</tr>
<tr>
	<td class=labelTD align=right>&nbsp;
	<% if ContentID <> "" then %><% end if %>
	</td>
	<td class=dataTD>
	<% if ContentID = "" then %><input type=submit name=insert_button value='INSERT'><% end if %>
	<% if ContentID <> "" then %><input type=submit name=update_button value='UPDATE'><% end if %>
	<% if ContentID <> "" then %><input type=submit name=delete_button value='DELETE' onclick="document.edit_Content.action.value = 'delete_edit_Content'"><% end if %>
	</td>
<input type=hidden name="action" value="<% if ContentID <> "" then %>update<% else %>insert<%end if %>_edit_Content"></tr>


</table>
</form>
<%

':: end hide form if
end if
%>


<% end if %>
<%
sub list_contenttypes

	set rs2 = cn.execute("SELECT ContentTypeID, ContentType FROM ContentTypes WHERE Enabled=1")
	do until rs2.EOF
	%>
	<a href='admin_content.asp?ContentTypeId=<%=rs2("ContentTypeId")%>'><%=rs2("ContentType")%></a> |
	<%
	rs2.movenext
	loop
	rs2.close

end sub

%>

<! -- only display the grid when the edit form is not displayed -->
<br>
<% if display_edit_Content <> true then %>[<A HREF='admin_content.asp?action=display_edit_Content'>add new content</A> | <A href='submit_gallery.asp'>new image</A> | <A href='submit_download.asp'>new download file</A>]<br><br>
<%

page_no = request("page_no")
if page_no = "" then page_no = 1

if view_Content_sql <> "" then
	cmd.CommandText = view_Content_sql
	rs.Filter = ""
	if ContentTypeID <> "" then rs.Filter = "ContentTypeID = " & to_sql(ContentTypeID,"number")
	rs.CursorLocation = 3
	rs.CacheSize = 5
	rs.Open cmd
	if not rs.EOF then
			rs.MoveFirst
			rs.PageSize = 20
			max_count = cInt(rs.PageCount)
			num_recs = rs.RecordCount
			rs.AbsolutePage = page_no
			results = true
	else
		results = false
		rs.Close
	end if
else
	results = false
end if
rec_count = 0

%>

<table class='headerTable'>
<tr>
<td class='headerTD'>
<A href='admin_content.asp'>view all content</A> :: <% list_contenttypes %>
</td>
</tr>
</table>
<%

if results = true then

%>

<table  >
<form id="view_Content" name="view_Content" action="admin_content.asp" method="get" >
<tr>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=ContentID" class=fieldFont title="">#</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Title" class=fieldFont title="">Title</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=ContentType" class=fieldFont title="">Content Type</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Cat" class=fieldFont title="">Category</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Author" class=fieldFont title="">Author</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=DateAdded" class=fieldFont title="">Created</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=ShortDesc" class=fieldFont title="">Description</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Display" class=fieldFont title="">Display</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Priority" class=fieldFont title="">Priority</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=Impressions" class=fieldFont title="">Views</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=ClickThrus" class=fieldFont title="">Clicks</a></td>
	<td class='fieldTD'><a href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no %>&sortby=AvgRating" class=fieldFont title="">Rating</a></td>
</tr>
<%

do while not rs.EOF AND (rec_count < rs.Pagesize)

':: read db record
on error resume next
CatID = rs("CatID")
ContentTypeID = rs("ContentTypeID")
user_id = rs("user_id")
ContentID = rs("ContentID")
Title = rs("Title")
ContentType = rs("ContentType")
Cat = rs("Cat")
Author = rs("Author")
DateAdded = rs("DateAdded")
ShortDesc = rs("ShortDesc")
Display = rs("Display")
Priority = rs("Priority")
Impressions = rs("Impressions")
ClickThrus = rs("ClickThrus")
AvgRating = rs("AvgRating")
on error goto 0

%>
		
		<input type=hidden name="CatID" value="<% =CatID %>">
		
		
		<input type=hidden name="ContentTypeID" value="<% =ContentTypeID %>">
		
		
		<input type=hidden name="user_id" value="<% =user_id %>">
		
<tr>
	<td class='dataTD' width=10>
		<a href="admin_content.asp?ContentID=<%=ContentID%>"><% =ContentID %></a>
	</td>
	<td class='dataTD' >
		<a href="admin_content.asp?ContentID=<%=ContentID%>"><% =Title %></a>
	</td>
	<td class='dataTD' nowrap>
		<% =ContentType %>
	</td>
	<td class='dataTD' nowrap>
		<% =Cat %>
	</td>
	<td class='dataTD' >
		<% if user_id <> "" then %>[<a href='admin_users.asp?user_id=<% =user_id %>'><% end if %><% =Author %><% if user_id <> "" then %></A>]<% end if %>
	</td>
	<td class='dataTD' width=140 nowrap>
		<% =DateAdded %>
	</td>
	<td class='dataTD' no wrap>
		<% ShortDesc = left(ShortDesc,45) %><% =ShortDesc %>...
	</td>
	<td class='dataTD' >
		<% =Display %>
	</td>
	<td class='dataTD' >
		<% =Priority %>
	</td>
	<td class='dataTD' >
		<% =Impressions %>
	</td>
	<td class='dataTD' >
		<% =ClickThrus %>
	</td>
	<td class='dataTD' >
		<% =AvgRating %>
	</td>
</tr>
<%

rs.MoveNext
rec_count = rec_count + 1
loop
rs.Close

%>

</form>
</table>
<%

else

%>

	no matches were found.

<%

end if

%>

<%
 if max_count > 1 then 
%>

<!-- paging footer -->
<TABLE class=HeaderTable >
	<tr>
		<td width="20%" class=HeaderTD>
			<% if page_no > 1 then %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no-1 %>&sortby=<% =request("sortby") %>">PREV</a>
			<% else %>			<% end if %>		</td>
		<td align=center class=HeaderTD>
			Page&nbsp;
			<% for i = 1 to max_count %>
			<% if i = cint(page_no) then %>
			<b><%=i%></b>
			<% else %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =i %>&sortby=<% =request("sortby") %>"><%=i%></a>
			<% end if %>
			<%next %>
		</td>
		<td align=right width="20%" class=HeaderTD>
			<% if cInt(page_no) < cInt(max_count) then %>
			<a class=HeaderFont href="<% =request.servervariables("script_name") %>?<% =request_string %>page_no=<% =page_no+1 %>&sortby=<% =request("sortby") %>">NEXT</a>
			<% end if %>
		</td>
	</tr>
</TABLE>
<% end if %>


<% end if %>

<!--#include file='i_footer.asp'-->


<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>