<%@  Language=VBScript  %>
<%


Set  sshow1  =  Server.CreateObject  ("eBizTSWebModules.SlideShow")
sshow1.log  =  1
fid  =  Request("fid") '  Function  ID
sid  =  Request("sid") '  Show  ID
id  =  Request("id") '  Slide  ID
pos  =  Request("pos") '  Top  or  Bottom
dir  =  Request("dir")        '  Up  or  Down
caption  =  Request("caption")
action  =  Request("action")
ImgSrc  =  Request("ImgSrc")
if  action  <>  ""  Then
      sshow1.ReturnURL  =  "sshow.asp?fid=msglist&sid="  &  sid
      sshow1.submit  action,  sid,  mssid,  nick,  subject,  content  
else
      Select  Case  fid
            Case  "listslide"
                  sshow1.listslide  sid
            Case  "show"
                  sshow1.show  sid
            Case  "move"
                  sshow1.move  sid,  id,  dir      
            Case  "edit"
                  sshow1.Edit  sid,  id      
            Case  "delete"
                  sshow1.delete  sid,  id      
            Case  "upload"
                  sshow1.upload  sid,  pos      
            Case  "repost"
                  sshow1.repost  sid,  pos,  ImgSrc
            Case  "addshow"
                  '  lower  case  show  name  for  now
                  sshow1.addshow  lcase(Request("ShowName")),  Request("Decription")
                  Response.Redirect  "sshow.asp"
            Case  "delshow"      
                  sshow1.delshow  sid
                  Response.Redirect  "sshow.asp"
            Case  ""
                  set  Shows  =  sshow1.listshow      
%>
  <H3>Slide  Show  List</H3>
                  <Table  border=1  width=100%>
                  <tr><th>List/Edit  Slides  in  this  Show</th><th>Show  Description</th><th>View  Slide  Show</th><th>Delete  this  Show</th></tr>
<%   i  =  1
                  for  each  Show  in  Shows  %>
<tr>
<td><a  href=sshow.asp?fid=listslide&sid=<%=Server.URLEncode(Show.name)%>><b><%=UCase(Show.name)%></b></td>
<td><%=show.description%></td>
<td><a  href=sshow.asp?fid=show&sid=<%=Server.URLEncode(Show.name)%>>View  Slide  Show</td>
<td><a  href=sshow.asp?fid=delshow&sid=<%=Server.URLEncode(Show.name)%>>Delete  Show</td>
</tr>                  
<%              i  =  i  +  1
                  next  %>
<tr><td  colspan=4>
<form  method=post>
<B>Add  New  Slide  Show.</B>
<br>Name:&nbsp;<input  type=text  name=ShowName>&nbsp;
<br>Description:<br>
<TextArea  cols=60  rows=5  name="Decription"></TextArea>
<input  type=hidden  name=fid  value=addshow>
<br>
<input  type=submit  name=submit  value="New  Show">
</td></tr>
                </Table>
                </form>  
<%          
      End  Select
end  if
%>