<% if Request.QueryString("video") = "" then videofound = "0" else videofound = "1" videoNum = displaystring(Request.QueryString("video")) queryInsert = replace(videoNum, "'", "''") queryInsert = replace(queryInsert, "'", "") queryInsert = cstr(queryInsert) sql = "SELECT db.iid, issue.iid, issue.issue, [db].[date], [db].[title], [db].[link], [db].[summary], [db].[type], [db].[type]" sql = sql & "FROM db, issue " 'sql = sql & "WHERE (db.ID=" & videoNum & ")" sql = sql & "WHERE (db.iid=issue.iid) AND (db.ID=" & queryInsert & ")" rs.Open sql, conn, 3, 3 If rs.EOF And rs.BOF Then response.Redirect("/404.asp") End If ' end issuesRS.EOF And issuesRS.BOF rs.MoveFirst videolink = rs("link") videodate = rs("date") videotitle = rs("title") videoissue = rs("issue") videoissueNum = rs("iid") end if %> Bernie :: Multimedia :: Video

<% call previousPage() %> Home >> News / Audio-Video >>
AUDIO/VIDEO - <%=videotitle%> (<%=videodate%>) <% if videofound="1" Then %>


Other Recent Video and Audio bits:

<% sql = "SELECT * from db WHERE type = 'multimedia' ORDER BY date DESC" rs.Open sql, conn, 0, 1 %> <% For varCounter = 1 to 4 %> <% Response.Write(rs.Fields("date")) %> : '" > <% if rs.Fields("splash") <> "" Then Response.Write(rs.Fields("splash") & " ") else Response.Write(rs.Fields("title") & "

") end if rs.MoveNext Next rs.close %> • For a complete list of Audio/Video click here...

- - - - - - - - - - - - - - - - - - - - - - - -

This video was filed under the Issue: <%=videoissue%>. For more archive material under this category click here.

Video and Sound Files Require RealPlayer or Flash Player To View.
Real   

<% else %> Video not found... <% end if %>