<%@ Language=VBScript %>

<!-- #include file="fbpresets.asp" -->

<%




thispage="coveragerequests.asp"
halfpage = false


if fmembersonly then checksecurity


dim allowedit, editing, singleuser, casestatement
allowedit = false
editing = false
singleevent = false


when = request("when")
uid = request("uid")
cat = request("cat")
ob = request("ob")
search = request("search")
constrain = request("constrain")
cstate = request("cstate")

if len(ob) = 0 then ob = "date ASC" 


casestatement = ""

if request("id") <> "" then 
  casestatement = "id = '" & request("id") & "'"
  singleevent = true
end if



if cat <> "" then casestatement = "type = '" & cat & "'"


if len(uid) <> "0" then
  singleuser = true
  if casestatement = "" then 
    casestatement = "uid = '" & uid & "'"

  else
  	casestatement = casestatement & "AND uid = '" & uid & "'"
  end if


end if



'---------------when stuff---------
'

whenclause = ""

select case when 
  case "today" 
   whenclause = "(date = CURRENT_DATE())"
  case "tomorrow"  
     whenclause = "(date = date_add(CURRENT_DATE(), INTERVAL 1 DAY))"
  case else
     if isdate(when) then whenclause = "(date = '" & when & "')" 

end select

if whenclause = "" then whenclause = "(date >= CURRENT_DATE())"





'-----------------------------------------------
'--------------------SEARCH STUFF---------------
if len(request("search")) <> "0" then
  searchterm = request("search")
  newsearchterm = ""
'  replace(searchterm,chr(34)&chr(34),chr(34))

  '- handle quote-marks
  dim quotearray()
  quotecount = 0
  i = 1
  do
	  i = 1
	  i2 = 0
	  i = instr(i, searchterm, chr(34))
	  if i > 0 then 
	    if i > 1 then newsearchterm = newsearchterm  & " " & trim(mid(searchterm, 1, i-1))
	    i2 = instr(i+1, searchterm, chr(34))
        if i2 <> 0 then 
          redim preserve quotearray(quotecount)
          quotearray(quotecount) = mid(searchterm, i+1, i2-i-1)
          searchterm = mid(searchterm, i2+1)   
          quotecount = quotecount + 1
        end if  
      end if
  loop while i2 <> 0
  
  searchterm = newsearchterm  & " " & searchterm
  'response.write searchterm
  
  if searchterm <> "" then 
	  SearchTermArray=Split(trim(searchterm)," ")
	  NumSearchTerms=ubound(SearchTermArray)
  else
     dim searchtermarray()
     NumSearchTerms= -1
 end if
     
	if quotecount > 0 then   
	  for i = 0 to ubound(quotearray) 
	    redim preserve searchtermarray(NumSearchTerms + i + 1)
	    searchtermarray(NumSearchTerms + i + 1) = quotearray(i)
	  next
	end if 
  NumSearchTerms=ubound(SearchTermArray)
  
  if constrain ="on" then 
    if cstate <> "" then casestatement = cstate & " AND "    
  else
    casestatement = ""
  end if  


  subcasestatement = "name LIKE '%" & replace(SearchTermArray(0), "'", "&#39;") & "%' "
  for i = 1 to NumSearchTerms 
   if SearchTermArray(i) <> "" then subcasestatement =  subcasestatement & "AND name LIKE '%" & replace(SearchTermArray(i), "'", "&#39;") & "%' "
  next
    
  casestatement = casestatement & "(" & subcasestatement


  subcasestatement = "subtype LIKE '%" & replace(SearchTermArray(0), "'", "&#39;") & "%' "
  for i = 1 to NumSearchTerms 
   if SearchTermArray(i) <> "" then subcasestatement =  subcasestatement & "AND subtype LIKE '%" & replace(SearchTermArray(i), "'", "&#39;") & "%' "
  next
    
  casestatement = casestatement & " or " & subcasestatement

  subcasestatement = "description LIKE '%" & replace(SearchTermArray(0), "'", "&#39;") & "%' "
  for i = 1 to NumSearchTerms 
   if SearchTermArray(i) <> "" then subcasestatement =  subcasestatement & "AND description LIKE '%" & replace(SearchTermArray(i), "'", "&#39;") & "%' "
  next

  casestatement = casestatement & "or " & subcasestatement & ")"
end if




'---------------end search-------------------------
'---------------------------------------------------


dim objConn     ' Our Connection Object
dim rsCateg 'as ADODB.Recordset
Set objConn = CreateObject("ADODB.Connection")
set rsCateg = Server.CreateObject("ADODB.Recordset")


objConn.open  connStr


 Response.Buffer = True 
'On Error Resume Next


'---------------this is where we delete an event record
if request("del") <> "" then
			'first delete file

    set objRS1 = objConn.Execute("DELETE FROM events  WHERE id = '" & request("del") & "' AND UID ='" & uid & "'") 
end if


if editing then
 if Request.ServerVariables("REQUEST_METHOD") = "POST" then 
     set objRS1 = objConn.Execute("UPDATE content SET title = '" & replace(replace(request("title"), "'", "&#39;"), "%34", "&#34;") & "', description = '" & replace(replace(request("description"), "'", "&#39;"), "%34", "&#34;") & "', artist = '" & replace(replace(request("artist"), "'", "&#39;"), "%34", "&#34;") &  "', type = '" & request("cat") & "'  where id = '" & request("id") & "' AND uid = '" & uid & "'")
 end if
end if



  ' here we retrieve the column names

set objRS1 = objConn.Execute("SHOW columns FROM coverage")

If Not objRS1.EOF then
   datArray = objRS1.GetRows
End if

colLength = ubound(datArray,2)

dim nameArray()
redim nameArray(colLength)
dim typeArray()
redim typeArray(colLength)

for i = 0 to colLength
	nameArray(i) = datArray(0,i)
	typeArray(i) = datArray(1,i)

'set some preset valz

    if datArray(0,i) = "id" then iid = i
	if datArray(0,i) = "uid" then iuid = i
	if datArray(0,i) = "description" then idescription = i
    if datArray(0,i) = "name" then iname = i
	if datArray(0,i) = "date" then idate = i 
	if datArray(0,i) = "subdate" then isubdate = i 
	if datArray(0,i) = "compensation" then icompensation = i 
	if datArray(0,i) = "zip" then izip = i 
	if datArray(0,i) = "media1" then imedia1 = i 
	if datArray(0,i) = "media2" then imedia2 = i 

next



   ' and now the media
dim norezult
norezult = false


ob = " ORDER BY " & ob

strSQL = "SELECT * FROM coverage WHERE " & whenclause 
if casestatement <> "" then strSQL = strSQL & "AND " & casestatement
strSQL = strSQL & ob

'response.write strSQL

set objRS1 = objConn.Execute(strSQL)

If Not objRS1.EOF then
   theArray = objRS1.GetRows
   arrayLength = ubound(theArray,2)
else   
 norezult = true
End if



 %>

<HTML>
<head>

<script language="javascript">
<!--



function deleteum() 

{

if (confirm("Are you sure you want to delete this request?")){
       window.location = "<%=thispage%>?del=<%=request("id")%>";
 }
}


function subpic() {
window.name = "coverage"
subwin = window.open("submitpic.asp?wn=events&type=event&id=<%=request("id")%>","subpop","width=400,height=300,location=1,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");
}





       //-->

</script>
<!-- #include file="i_top.asp" -->







<%

dim filesysx
Set filesysx = CreateObject("Scripting.FileSystemObject") 
fileext = Server.MapPath("eventsbin") 


if singleevent then
	i = 0

     '-------Single Event Mode-----


if lcase(thearray(iuid,i)) = lcase(session("memberuid")) and thearray(iuid,i) <> "" then allowedit = true

%>





<table cellpadding = 0 cellspacing = 5   border = 0><tr><td width = 160>


<%


set objRS1 = objConn.Execute("SELECT id FROM members WHERE uid = '" & thearray(iuid,i) & "'")
if filesysx.FileExists(Server.MapPath("memberpics") & servPRESETslash &  objRS1("id") & ".jpg") then%>

<img src ='memberpics/<%=objRS1("id") & ".jpg"%>' width = 160  border = 0 >


<%else %>
<img src ='images/blankimage.gif' width = 160 border = 0 >
<%end if%>


<center>
<% if allowedit then%>
<a href = '#' onclick ="javascript:subpic();"><font size = 1>Add/Change JPG Image</font></a>
<%end if%>
</center>


</td><td valign = top align = left width=450>
<font size = 2>

<u>UID:</u>  <a href='users.asp?uid=<%=thearray(iuid,i)%>'><b><%=thearray(iuid,i)%></b></a> 

<br>
<u>Title:</u> <b><%=thearray(iname,i)%></b>  <br>
<u>Date:</u> <b>

<%
	if date = DateSerial(year(thearray(idate,i)), month(thearray(idate,i)), day(thearray(idate,i)))  then
	  response.write "Today"
	else
	  if 1 = DateDiff("d", Date, DateSerial(year(thearray(idate,i)), month(thearray(idate,i)), day(thearray(idate,i))))  then
		  response.write "Tomorrow"
	  else
	 	if year(thearray(idate,i)) = year(date)then 
		 response.write month(thearray(idate,i)) & "/" & day(thearray(idate,i))
		else
		 response.write month(thearray(idate,i)) & "/" & day(thearray(idate,i)) & "/" & year(thearray(idate,i))
		end if
	  end if
	end if
	
%>
</b>

<br>


<u>Compensation:</u> <%=thearray(icompensation,i)%>
<br> <u>Location Zip:</u> 


<%
	for counter = len(cstr(thearray(izip,i))) to 4
	response.write "0"
	next
	response.write thearray(izip,i)
%>




<table  height = 4 width = 350 cellspacing = 0 ><tr><td></td></tr></table>
<table bgcolor = "cccccc" height = 1 width = 350 cellspacing = 0 ><tr><td></td></tr></table>

<font size = 2>
<%response.write thearray(idescription,i)%>
	
<table bgcolor = "cccccc" height = 1 width = 350 cellspacing = 0 ><tr><td></td></tr></table>

<br><a href = "#" onclick = 'javascript:contactwin = window.open("contactuser.asp?wn=coverage&id=<%=thearray(iid,i)%>&num=1","subpop","width=500,height=300,location=0,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");'>RESPOND!</a>
<br>

<font size = 2>
<b>  <%
' this is the attached media stuff  


disabled = true   ' (for now this feature is disabled)
if not disabled then
if allowedit then %>
		<br> <u>Change/add Related Media:</u>
	<%  
	
		if thearray(imedia1,i) <> "" then
		   colon =  instr(thearray(imedia1,i),":")
		   desc = mid(thearray(imedia1,i), 1, colon - 1)
		   filename = mid(thearray(imedia1,i), colon + 1)%>
		<a href = "#" onclick = 'javascript:subwin = window.open("attachmedia.asp?wn=coverage&type=user&id=<%=thearray(iid,i)%>&num=1","subpop","width=400,height=300,location=0,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");'><%=desc%></a>
	
	   
		<% else%>
		<a href = "#" onclick = 'javascript:subwin = window.open("attachmedia.asp?wn=coverage&type=user&id=<%=thearray(iid,i)%>&num=1","subpop","width=400,height=300,location=1,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");'>add</a>   	
		  <%
	 end if
		
		if thearray(imedia2,i) <> ""  then
		   colon =  instr(thearray(imedia2,i),":")
		   desc = mid(thearray(imedia2,i), 1, colon - 1)
		   filename = mid(thearray(imedia2,i), colon + 1)%>
		, 	<a href = "#" onclick = 'javascript:subwin = window.open("attachmedia.asp?wn=coverage&type=user&id=<%=thearray(iid,i)%>&num=2","subpop","width=400,height=300,location=1,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");'><%=desc%></a>   
		   
		<% else%>
	     ,	<a href = "#" onclick = 'javascript:subwin = window.open("attachmedia.asp?wn=coverage&type=user&id=<%=thearray(iid,i)%>&num=2","subpop","width=400,height=300,location=1,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");'>add</a>   	
		  <% end if
		
else
%>
<br> 
<%if session("memberuid") <> "" then %>
<a href = "#" onclick = 'javascript:subwin = window.open("attachmedia.asp?wn=coverage&type=difuser&id=<%=thearray(iid,i)%>&user=<%=session("memberid")%>","subpop","width=400,height=300,location=1,menubar=0,resizable=1,scrollbars=0,status=1,titlebar=1,toolbar=0,screenX=100,left=100,screenY=30,top=60");'>  
<%end if%>
<u>Related Media:</u></a>
<% 
	related = false
	if thearray(imedia1,i) <> "" then
	   colon =  instr(thearray(imedia1,i),":")
	   desc = mid(thearray(imedia1,i), 1, colon - 1)
	   filename = mid(thearray(imedia1,i), colon + 1)
	   related = true%>
	 
	<a href = 'player.asp?id=<%=filename%>'><%=desc%></a>   
	   
	<% end if
	
	if thearray(imedia2,i) <> "" then
	   colon =  instr(thearray(imedia2,i),":")
	   desc = mid(thearray(imedia2,i), 1, colon - 1)
	   filename = mid(thearray(imedia2,i), colon + 1)
	   related = true%>
	, <a href = 'player.asp?id=<%=filename%>'><%=desc%></a>   
	   
	 <%   
    if related = false then %>
    None
    <% end if
end if 
end if
end if%>

  
  </b>



</td>
</tr></table>














<%
else
'-----------------------------------------------------------------------------------------------
          '-------list mode-----


if norezult then 

%>
<center>
No Results Found</center><br><br><br><br>

<%else%>
<center>
<font size = 1>
<i>When:</i> 
<a href = "<%=thispage%>?uid=<%=uid%>&cat=<%=cat%>&search=<%=search%>&constrain=<%=constrain%>&cstate=<%=encodeme(cstate)%>">All</a>, 
<a href = "<%=thispage%>?uid=<%=uid%>&cat=<%=cat%>&when=today&ob=name+ASC&search=<%=search%>&constrain=<%=constrain%>&cstate=<%=encodeme(cstate)%>">Today</a>, 
<a href = "<%=thispage%>?uid=<%=uid%>&cat=<%=cat%>&when=tomorrow&ob=name+ASC&search=<%=search%>&constrain=<%=constrain%>&cstate=<%=encodeme(cstate)%>">Tomorrow</a>,

<SCRIPT LANGUAGE="JavaScript" ID="js1">
<!-- #include file="calendarpopup.js" -->

var cal1 = new CalendarPopup();
//i modified the calendarpopup file around line 1040 to automatically redirect to THISPAGE with the new date info
</SCRIPT>
<INPUT TYPE="hidden" NAME="date1" VALUE="" SIZE=25>
<A HREF="#" onClick="cal1.select(document.all.date1,'anchor1','yyyy-MM-dd'); return false;" TITLE="Pick Day" NAME="anchor1" ID="anchor1">Pick day</A>


&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

<i>Sort by: </i>Date & 
<a href = "<%=thispage%>?uid=<%=uid%>&cat=<%=cat%>&when=<%=when%>&ob=name+ASC&search=<%=search%>&constrain=<%=constrain%>&cstate=<%=encodeme(cstate)%>">Name</a>, 
<a href = "<%=thispage%>?uid=<%=uid%>&cat=<%=cat%>&when=<%=when%>&ob=date+ASC,+time+ASC&search=<%=search%>&constrain=<%=constrain%>&cstate=<%=encodeme(cstate)%>">Time</a>,
<a href = "<%=thispage%>?uid=<%=uid%>&cat=<%=cat%>&when=<%=when%>&ob=uid+ASC&search=<%=search%>&constrain=<%=constrain%>&cstate=<%=encodeme(cstate)%>">User</a>
<br>





</font></center>
<font size = 2>
<%
if singleuser then 
	set objRS1 = objConn.Execute("SELECT id, name FROM members WHERE uid = '" & thearray(iuid,0) & "'")
	if filesysx.FileExists(Server.MapPath("memberpics") & servPRESETslash &  objRS1("id") & ".jpg") then%>
	
	<a href = 'users.asp?uid=<%=thearray(iuid,0)%>'>
	<img src ='memberpics/<%=objRS1("id") & ".jpg"%>' width = 64 height = 48 border = 1 ></a>
	<%end if %>
	
Coverage Requests for <i> <b><%=objRS1("name")%></b></i>:
<%else%>
	<br>Requests for Coverage: 
<%end if%>

<font color = "#4444ee">(Click on the request's picture for more details, or to respond.)</font><br>
<hr>
These are people who would like the help of someone from the VisualBoston community in making a video 
about their art, music, event, etc.. Feel free to contact them if you are interested, and make sure you post the results here!



<table cellpadding = 0 cellspacing = 5   border = 0 width = 710>

<% 
lastDateGroup = ""
DateGroup = ""
i = 0

do while i <= arraylength 
if lcase(thearray(iuid,i)) = lcase(session("memberuid")) and thearray(iuid,i) <> "" then allowedit = true

%>
<tr>
<td valign = top align = left width=750>

<%
if date = DateSerial(year(thearray(idate,i)), month(thearray(idate,i)), day(thearray(idate,i)))  then
	  DateGroup =  "Today"
else
	  if 1 = DateDiff("d", Date, DateSerial(year(thearray(idate,i)), month(thearray(idate,i)), day(thearray(idate,i))))  then
		  DateGroup =  "Tomorrow"
	  else
	 	if year(thearray(idate,i)) = year(date)then 
		 DateGroup =  month(thearray(idate,i)) & "/" & day(thearray(idate,i))
		else
		 DateGroup =  month(thearray(idate,i)) & "/" & day(thearray(idate,i)) & "/" & year(thearray(idate,i))
		end if
	  end if
end if

if dateGroup <> lastDateGroup then
  lastDateGroup = DateGroup
%>


<font size = 1 color = "#7d2000"><br>&nbsp;&nbsp;&nbsp;&nbsp;<b><u>
<%response.write dateGroup%>
</b></u></font><font size = 1>&nbsp;&nbsp; (click on picture for details/to respond)</font>
</td></tr><tr><td>
<%end if%>

<table cellspacing = 0 cellpadding = 0 width = 100% ><tr><td valign = top width = 32>

<%set objRS1 = objConn.Execute("SELECT id FROM members WHERE uid = '" & thearray(iuid,i) & "'")
if filesysx.FileExists(Server.MapPath("memberpics") & servPRESETslash &  objRS1("id") & ".jpg") then%>
	<a href = '<%=thispage%>?id=<%=thearray(iid,i)%>'>
	<img src ='memberpics/<%=objRS1("id") & ".jpg"%>' width = 32 height = 24 border = 1 align = left></a>
<%else %>
	<a href = '<%=thispage%>?id=<%=thearray(iid,i)%>'>
	<img src ='images/blankimage.gif' width = 32 height = 24 border = 1 align = left></a>
<%end if%>

</td><td>
<font size = 1>
<b><%=thearray(iname,i)%></b> | 

<u>UID:</u>  <a href='users.asp?uid=<%=thearray(iuid,i)%>'><b><%=thearray(iuid,i)%></b></a> | 
<u>Date:</u> <b>
<%
if date = DateSerial(year(thearray(idate,i)), month(thearray(idate,i)), day(thearray(idate,i)))  then
	  response.write "Today"
else
	  if 1 = DateDiff("d", Date, DateSerial(year(thearray(idate,i)), month(thearray(idate,i)), day(thearray(idate,i))))  then
		  response.write "Tomorrow"
	  else
	 	if year(thearray(idate,i)) = year(date)then 
		 response.write month(thearray(idate,i)) & "/" & day(thearray(idate,i))
		else
		 response.write month(thearray(idate,i)) & "/" & day(thearray(idate,i)) & "/" & year(thearray(idate,i))
		end if
  	  end if
end if
%>


</b>
 
| <u>Compensation:</u> <%=thearray(icompensation,i)%>
| <u>Location Zip:</u> 
<%	for counter = len(cstr(thearray(izip,i))) to 4
	response.write "0"
	next
	response.write thearray(izip,i)%>


<br>
<table cellpadding = 0 cellspacing = 0 bgcolor = "#e4e4e4" width = 100%><tr><td>
<font size = 1>
<%response.write thearray(idescription,i)%>
</td></tr></table>

  <%
if thearray(imedia1,i) <> "" then
   colon =  instr(thearray(imedia1,i),":")
   desc = mid(thearray(imedia1,i), 1, colon - 1)
   filename = mid(thearray(imedia1,i), colon + 1)%>
<u>Related Media:</u> <a href = 'player.asp?id=<%=filename%>'><%=desc%></a>   
   
<% end if

if thearray(imedia2,i) <> "" then
   colon =  instr(thearray(imedia2,i),":")
   desc = mid(thearray(imedia2,i), 1, colon - 1)
   filename = mid(thearray(imedia2,i), colon + 1)%>
, <a href = 'player.asp?id=<%=filename%>'><%=desc%></a>   
   
<% end if%>


</td></tr></table>

</td></tr>
<%i = i + 1
loop
%>
</table>
<%

end if
end if
%><!-- #include file="i_bot.asp" -->