Lesson Plans:
Accounting
Business Law
Business Math/Economics
Business/Office Technology
Career Prep
Computer Concepts
Computer Applications
Desktop Publishing
General Business
Keyboarding
Multimedia
HTML/Web Publishing
International Business
Internet Literacy

Other Resources:
Bulletin Board Ideas
Curriculum/Course Descriptions
Classroom Management/New Teacher
FBLA Resources
Freeware Resources
Online Class Tools
Professional Organizations
Scavenger Hunts
Other Resources/Answers to Hunts
Teacher Vacancy Listings
Submit Comments/Lessons
View/Post Messages for Other Teachers
About Tonya Skinner
Sign/Read Guestbook

SEARCH THIS SITE:


powered by FreeFind

DOWNLOAD POWERPOINT PRESENTATION FROM NBEA CHICAGO CONFERENCE: EFFECTIVE MULTIMEDIA INSTRUCTION

  <% src = "http://tonyaskinner.edublogs.org/feed/" lines = "3" b_width = "225" b_height = "0" boxpadding = "10" rb_color = "" b_color = "ffffff" b_color_o = "" b_style = "dotted" rb_b_color = "" b_b_color = "000000" rb_b_color_o = "" rb_b_weight = "" b_b_weight = "thin" b_b_weight_o = "" mq = "n" mq_di = "DOWN" mq_n = "3" mq_dy = "200" title = "n" t_font = "Arial" rt_color = "" t_color = "4444aa" t_color_o = "" t_s_bold = "y" t_s_underline = "n" t_size = "16" t_align = "center" i_max_char = "0" i_font = "Arial" ri_color = "" i_color = "4444aa" i_color_o = "" i_s_bold = "y" i_s_italic = "y" i_s_underline = "n" i_size = "12" c_max_char = "0" c_font = "Arial" rc_color = "" c_color = "000000" c_color_o = "" c_size = "10" c_align = "left" c_s_bold = "n" c_s_italic = "n" c_s_underline = "n" t_s_marquee = "n" i_s_marquee = "n" c_s_marquee = "n" mq_height = "" lb = "" linkback1 = "http://www.feedcommander.com" linkback2 = "add RSS feeds to any website" %> <% ' ##### Main template constants MainTemplateHeader = "" MainTemplateFooter = "
" ' ##### ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ' ================================================ Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0") xmlHttp.Open "Get", src, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = false xmlDOM.LoadXml(RSSXML) Set BlogHeadlines = xmlDOM.getElementsByTagName("title") Set BlogHeadline = BlogHeadlines.item(0) for each child in BlogHeadline.childNodes BlogTitle = child.text next Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") Set xmlDOM = Nothing ' clear XML if lines = "0" then totalFeeds = RSSItems.Length - 1 else totalFeeds = lines - 1 end if t_bold = t_s_bold if t_bold = "y" then t_bold = "bold" else t_bold = "normal" end if t_italic = t_s_italic if t_italic = "y" then t_italic = "italic" else t_italic = "normal" end if t_underline = t_s_underline if t_underline = "y" then t_underline = "underline" else t_underline = "none" end if if rt_color = "o" then t_color = t_color_o end if if t_size = "" then t_size = "8" end if if boxpadding = "" then boxpadding = "0" end if if b_color_o = "" then tbgcolor = b_color else tbgcolor = b_color_o end if if rb_b_weight = "s" then rb_b_weight = b_b_weight else rb_b_weight = b_b_weight_o end if if rb_b_color = "s" then rb_b_color = b_b_color else rb_b_color = rb_b_color_o end if mq_style = "scroll" if t_s_marquee = "y" then title_mq = "" title_mq_end = "" else title_mq = "" title_mq_end = "" end if if mq_height = "" then mq_height = i_size end if if totalFeeds > 0 then if mq = "y" then Response.Write "" end if Response.Write "" if title = "y" then Response.Write "" End If End If cntVar = -1 For i = 0 To totalFeeds Set RSSItem = RSSItems.item(i) for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" item = child.text case "link" link = child.text case "description" content = child.text End Select next i_bold = i_s_bold if i_bold = "y" then i_bold = "bold" else i_bold = "normal" end if i_italic = i_s_italic if i_italic = "y" then i_italic = "italic" else i_italic = "normal" end if i_underline = i_s_underline if i_underline = "y" then i_underline = "underline" else i_underline = "none" end if c_bold = c_s_bold if c_bold = "y" then c_bold = "bold" else c_bold = "normal" end if c_italic = c_s_italic if c_italic = "y" then c_italic = "italic" else c_italic = "normal" end if c_underline = c_s_underline if c_underline = "y" then c_underline = "underline" else c_underline = "none" end if if ri_color = "o" then i_color = i_color_o end if if rc_color = "o" then c_color = c_color_o end if if i_size = "" then i_size = "8" end if if c_size = "" then c_size = "8" end if if i_s_marquee = "y" then item_mq = "" item_mq_end = "" else item_mq = "" item_mq_end = "" end if if c_s_marquee = "y" then content_mq = "" content_mq_end = "" else content_mq = "" content_mq_end = "" end if tdFormat = "" i_max_char = i_max_char c_max_char = c_max_char cntVar = J + 1 if J < totalFeeds then tdContent = Replace(tdFormat,"{LINK}",link) if i_max_char = "0" then i_max_char = len(item) end if tdContent = Replace(tdContent,"{TITLE}",Left(item,i_max_char)) if c_max_char = "0" then c_max_char = len(content) end if Response.Write Replace(tdContent,"{DESCRIPTION}",Left(content,c_max_char)) tdContent = "" End if Next if lb = "2" then Response.Write "" end if if totalFeeds > 0 then Response.Write "
" & title_mq & "" _ & BlogTitle & "" & title_mq_end & "
" & item_mq & "" _ & "{TITLE}" & item_mq_end & "
" _ & content_mq & "" _ & "{DESCRIPTION}" & content_mq_end & "
" _ & "" & linkback2 & "
" if mq = "y" then Response.Write "
" end if else Err = "

Error: Feed failed! Causes may be (1) No data found for RSS feed $src; (2) There are no items are available for this feed; (3) The RSS feed does not validate.

Please verify that the URL " & src & " works first in your browser and that the feed passes a validator test.

" Response.Write Err End If %>

Use this site often?
Donate to this site!

Visitor count to date:
 

Free Counter
Graphic Design Jobs
Graphic Design Jobs
Tonya Skinner, Webmaster
E-mail: tonya
@btskinner.com

 

 


 

 

-->Tonya's Business Teacher Forum

Website Awards Received::