Video gallery

Daily Web Day - Latest videos

<% rss_url = "http://video.dailywebday.com/feed/magnify.rss/recent" Set xml = Server.CreateObject("msxml2.ServerXMLHTTP") xml.open "GET", rss_url, False xml.send Set doc = Server.CreateObject("msxml2.DOMDocument") doc.loadXML( xml.ResponseText ) Set items = doc.getElementsByTagName("item") Dim curitme Response.Write "" countrow = 0 Response.Write "" For inum = 0 To 11 Set curitem = items.item(inum) title = getNodeText(curitem,"title") description = getNodeText(curitem,"description") descpos = Instr(description,"align=") desc1 = Mid(description,1,descpos-1) enclosure = getNodeText(curitem,"enclosure/@url") Response.Write "" countrow = countrow + 1 If countrow > 3 Then Response.Write "" countrow = 0 End if Next 'Go through each link in the rss feed. Response.Write "

" & desc1 & "

" Function getNodeText(curnode,name) dim node Set node = curnode.SelectSingleNode(name) If node IS NOTHING Then getNodeText = "[no " & name & "]" Else getNodeText = node.Text End Function %>

Daily Web Day - Movie trailers

<% rss_url1 = "http://video.dailywebday.com/feed/magnify.rss/DWB08X1CCKT8WCXF" Set xml1 = Server.CreateObject("msxml2.ServerXMLHTTP") xml1.open "GET", rss_url1, False xml1.send Set doc1 = Server.CreateObject("msxml2.DOMDocument") doc1.loadXML( xml1.ResponseText ) Set items1 = doc1.getElementsByTagName("item") Dim curitme1 Response.Write "" countrow1 = 0 Response.Write "" For inum1 = 0 To 7 Set curitem1 = items1.item(inum1) title1 = getNodeText(curitem1,"title") description1 = getNodeText(curitem1,"description") descpos1 = Instr(description1,"align=") desc2 = Mid(description1,1,descpos1-1) enclosure1 = getNodeText(curitem1,"enclosure/@url") Response.Write "" countrow1 = countrow1 + 1 If countrow1 > 3 Then Response.Write "" countrow1 = 0 End if Next 'Go through each link in the rss feed. Response.Write "

" & desc2 & "

" Function getNodeText(curnode,name1) dim node1 Set node1 = curnode.SelectSingleNode(name1) If node1 IS NOTHING Then getNodeText = "[no " & name1 & "]" Else getNodeText = node1.Text End Function %>

Daily Web Day - Full Length Movies

<% rss_url2 = "http://video.dailywebday.com/feed/magnify.rss/NKTCRW352Z8MWBNL" Set xml2 = Server.CreateObject("msxml2.ServerXMLHTTP") xml2.open "GET", rss_url2, False xml2.send Set doc2 = Server.CreateObject("msxml2.DOMDocument") doc2.loadXML( xml2.ResponseText ) Set items2 = doc2.getElementsByTagName("item") Dim curitme2 Response.Write "" countrow2 = 0 Response.Write "" For inum2 = 0 To 7 Set curitem2 = items2.item(inum2) title2 = getNodeText(curitem2,"title") description2 = getNodeText(curitem2,"description") descpos2 = Instr(description2,"align=") desc3 = Mid(description2,1,descpos2-1) enclosure2 = getNodeText(curitem2,"enclosure/@url") Response.Write "" countrow2 = countrow2 + 1 If countrow2 > 3 Then Response.Write "" countrow2 = 0 End if Next 'Go through each link in the rss feed. Response.Write "

" & desc3 & "

" Function getNodeText(curnode,name2) dim node2 Set node2 = curnode.SelectSingleNode(name2) If node2 IS NOTHING Then getNodeText = "[no " & name2 & "]" Else getNodeText = node2.Text End Function %>

Daily Web Day - Food Recipes

<% rss_url3 = "http://video.dailywebday.com/feed/magnify.rss/HBSM9Z35ZBQ5WBBN" Set xml3 = Server.CreateObject("msxml2.ServerXMLHTTP") xml3.open "GET", rss_url3, False xml3.send Set doc3 = Server.CreateObject("msxml2.DOMDocument") doc3.loadXML( xml3.ResponseText ) Set items3 = doc3.getElementsByTagName("item") Dim curitme3 Response.Write "" countrow3 = 0 Response.Write "" For inum3 = 0 To 3 Set curitem3 = items3.item(inum3) title3 = getNodeText(curitem3,"title") description3 = getNodeText(curitem3,"description") descpos3 = Instr(description3,"align=") desc4 = Mid(description3,1,descpos3-1) enclosure3 = getNodeText(curitem3,"enclosure/@url") Response.Write "" countrow3 = countrow3 + 1 If countrow3 > 3 Then Response.Write "" countrow3 = 0 End if Next 'Go through each link in the rss feed. Response.Write "

" & desc4 & "

" Function getNodeText(curnode,name3) dim node3 Set node3 = curnode.SelectSingleNode(name3) If node3 IS NOTHING Then getNodeText = "[no " & name3 & "]" Else getNodeText = node3.Text End Function %>

Daily Web Day - Travel Videos

<% rss_url4 = "http://video.dailywebday.com/feed/magnify.rss/TPTLHN0RMKF7S667" Set xml4 = Server.CreateObject("msxml2.ServerXMLHTTP") xml4.open "GET", rss_url4, False xml4.send Set doc4 = Server.CreateObject("msxml2.DOMDocument") doc4.loadXML( xml4.ResponseText ) Set items4 = doc4.getElementsByTagName("item") Dim curitme4 Response.Write "" countrow4 = 0 Response.Write "" For inum4 = 0 To 3 Set curitem4 = items4.item(inum4) title4 = getNodeText(curitem4,"title") description4 = getNodeText(curitem4,"description") descpos4 = Instr(description4,"align=") desc5 = Mid(description4,1,descpos4-1) enclosure4 = getNodeText(curitem4,"enclosure/@url") Response.Write "" countrow4 = countrow4 + 1 If countrow4 > 3 Then Response.Write "" countrow4 = 0 End if Next 'Go through each link in the rss feed. Response.Write "

" & desc5 & "

" Function getNodeText(curnode,name4) dim node4 Set node4 = curnode.SelectSingleNode(name4) If node4 IS NOTHING Then getNodeText = "[no " & name4 & "]" Else getNodeText = node4.Text End Function %>