<% id = val(request("id")) picurl = "/admin/videopictures/" if id <> 0 then openrs_access rs,"Select * from tbl_video where id = " & id if rs.bof <> true and rs.eof <> true then entry_date = rs("entry_date") titlename = rs("title") details = rs("details") videoname = "videos/"&rs("videourl") keywords = rs("keywords") video_picture = rs("video_picture") featured = rs("featured") else response.Write("Video does not exists.") response.End() end if else openrs_access rs,"Select * from tbl_video where featured = 1" if rs.bof <> true and rs.eof <> true then entry_date = rs("entry_date") titlename = rs("title") details = rs("details") videoname = "videos/"&rs("videourl") keywords = rs("keywords") video_picture = rs("video_picture") featured = rs("featured") else openrs_access rs,"Select * from tbl_video where featured = 1" if rs.bof <> true and rs.eof <> true then entry_date = rs("entry_date") titlename = rs("title") details = rs("details") videoname = "videos/"&rs("videourl") keywords = rs("keywords") video_picture = rs("video_picture") featured = rs("featured") else response.Write("Does not exists any video to show.") response.End() end if end if end if %>

Video Gallery

<%=titlename%>

Video List

<% openrs_access rs,"Select * from tbl_video ORDER BY entry_date DESC" if rs.bof <> true and rs.eof <> true then do while not(rs.eof) %> <%=rs("entry_date")%>

"> <% video_picture = rs("video_picture") if video_picture <> "" then %>

" border="0" /> <% else response.Write("Click here to see video") end if%>

<%=rs("title")%>
<%=rs("details")%> ________________________________

<% rs.movenext loop end if %>