<%@ Language=VBScript %> <% 'Filter out any unsafe value Function FormatTextHTML (strASCII) if isNumeric(strASCII) = false then FormatTextHTML = Trim(strASCII) FormatTextHTML = Replace(FormatTextHTML, "<","<") FormatTextHTML = Replace(FormatTextHTML, "%","%") FormatTextHTML = Replace(FormatTextHTML, "/*","/*") FormatTextHTML = Replace(FormatTextHTML, vbCrLf,"
") FormatTextHTML = Replace(FormatTextHTML, "'","'") FormatTextHTML = Replace(FormatTextHTML, chr(34),"''") FormatTextHTML = Replace(FormatTextHTML, "--","—") FormatTextHTML = Replace(FormatTextHTML, "select","select",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "drop","drop",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "insert","insert",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "delete","delete",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "xp_","xp_",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "sp_","sp_",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "exec","exec",1,-1,1) FormatTextHTML = Replace(FormatTextHTML, "update","update",1,-1,1) else FormatTextHTML= strASCII end if End Function 'restore the encode value for the user. Some value already display in html format and dont need to decode Function FormatHTMLText (strASCII) FormatHTMLText = Trim(strASCII) FormatHTMLText = Replace(FormatHTMLText, "<","<") FormatHTMLText = Replace(FormatHTMLText, "//","/") FormatHTMLText = Replace(FormatHTMLText, "''",chr(34)) FormatHTMLText = Replace(FormatHTMLText, "
",vbCrLf) FormatHTMLText = Replace(FormatHTMLText, "Ç",chr(199)) FormatHTMLText = Replace(FormatHTMLText, "¿",chr(191)) FormatHTMLText = Replace(FormatHTMLText, "ñ",chr(241)) End Function 'restore the encode value for the user, such as generate email. Function FormatHTMLTextAll (strASCII) if isNumeric(strASCII) = false and not isNull(strASCII) then FormatHTMLTextAll = Trim(strASCII) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "<","<") FormatHTMLTextAll = Replace(FormatHTMLTextAll, "%","%") FormatHTMLTextAll = Replace(FormatHTMLTextAll, "/*","/*") FormatHTMLTextAll = Replace(FormatHTMLTextAll, "
",vbCrLf) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "'","'") FormatHTMLTextAll = Replace(FormatHTMLTextAll, "''",chr(34)) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "—","--") FormatHTMLTextAll = Replace(FormatHTMLTextAll, "select","select",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "drop","drop",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "insert","insert",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "delete","delete",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "xp_","xp_",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "sp_","sp_",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "exec","exec",1,-1,1) FormatHTMLTextAll = Replace(FormatHTMLTextAll, "update","update",1,-1,1) else FormatHTMLTextAll= strASCII end if End Function 'Loop to request all the value with filder it Function ReqestAllFields() For Each Field In Request.Form TheString = Field & "=FormatTextHTML(Request.Form(""" & Field & """))" Execute(TheString) 'response.write TheString Next End Function Function ReqestAllQueryStringFields() For Each Field In Request.QueryString TheString = Field & "=FormatTextHTML(Request.QueryString(""" & Field & """))" Execute(TheString) ' response.write TheString Next End Function 'Get all Form Value and build the SQL statement Function ReqestAllFieldsWithSQL(tableName) SQL1="Insert into "&tableName&"(" SQL2=" Values(" For Each Field In Request.Form if instr(Field,"_NDB")=0 and Field <>"x" and Field <>"y" and Field <>"callback" then TheString = Field & "=FormatHTMLTextAll(Request.Form(""" & Field & """))" Execute(TheString) SQL1=SQL1 & Field & "," SQL2=SQL2 & "''"& FormatTextHTML(Request.Form( Field )) &"''," end if Next SQL1=mid(SQL1,1,len(SQL1)-1) SQL2=mid(SQL2,1,len(SQL2)-1) FinalSQL=SQL1 &") "&SQL2&")" ReqestAllFieldsWithSQL=FinalSQL End Function 'Get all Form Value and build the SQL statement Function ReqestAllURLFieldsWithSQL(tableName) SQL1="Insert into "&tableName&"(" SQL2=" Values(" For Each Field In Request.QueryString if instr(Field,"_NDB")=0 and Field <>"x" and Field <>"y" and Field <>"callback" then TheString = Field & "=FormatHTMLTextAll(Request.QueryString(""" & Field & """))" Execute(TheString) SQL1=SQL1 & Field & "," SQL2=SQL2 & "''"& FormatTextHTML(Request.QueryString( Field )) &"''," end if Next SQL1=mid(SQL1,1,len(SQL1)-1) SQL2=mid(SQL2,1,len(SQL2)-1) FinalSQL=SQL1 &") "&SQL2&")" ReqestAllURLFieldsWithSQL=FinalSQL End Function 'Loop to request all the value with deFilter it Function ReqestBackAllFields() For Each Field In Request.Form TheString = Field & "=FormatHTMLTextAll(Request.Form(""" & Field & """))" Execute(TheString) 'response.write TheString & "
" Next End Function 'Loop to request all the value with filter for FileUp object ONLY Function ReqestAllFieldsUpload() For Each Field In FileUp.Form TheString = Field & "=FormatTextHTML(FileUp.Form(""" & Field & """))" Execute(TheString) 'response.write TheString & "
" Next End Function 'Warning***: Loop to request all the value without FILTER ONLY if it has nothing to do with DATABASE and EMAIL Function ReqestAllFieldsWOFormat() For Each Field In Request.Form TheString = Field & "=Trim(request.Form(""" & Field & """))" Execute(TheString) 'response.write TheString & "
" Next End Function Function ReqestAllQueryFieldsWOFormat() For Each Field In Request.Querystring TheString = Field & "=Trim(request.Querystring(""" & Field & """))" Execute(TheString) ' response.write TheString & "
" Next End Function Function ReqCheck() If Request.QueryString.Count > 0 Then ReqCheck = "get" ElseIf Request.Form.Count > 0 Then ReqCheck = "post" End If End Function Function FilterFileName(FileName) FileName=trim(FileName) FileName=replace(FileName,"'","") FileName=replace(FileName," ","") FileName=replace(FileName,"""","") FileName=replace(FileName,"*","") FileName=replace(FileName,",","") FilterFileName=FileName End Function function URLDecode(sText) sDecoded = sText Set oRegExpr = Server.CreateObject("VBScript.RegExp") oRegExpr.Pattern = "%[0-9,A-F]{2}" oRegExpr.Global = True Set oMatchCollection = oRegExpr.Execute(sText) For Each oMatch In oMatchCollection sDecoded = Replace(sDecoded,oMatch.value,Chr(CInt("&H" & Right(oMatch.Value,2)))) Next URLDecode = sDecoded End function Function ExternalContent(URL) Dim XmlHttp Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0") on error resume next XmlHttp.open "GET", URL, false XmlHttp.send 'if it completed and success if err.number <> 0 or XmlHttp.status <> 200 then ExternalContent= "error" else if (XmlHttp.readyState=4) then if XmlHttp.status = 200 Then ExternalContent=XmlHttp.responseText end if end if end if Set XmlHttp=Nothing END Function '''''''''''''''''''''''Get the RSS Feed and Put it in the Dictionary object. So the Dictionary Object Must create before you can use this function in the page. ''''here is the Example in the page where it call the RSSFeed Function. 'Set dictObj = Server.CreateObject("Scripting.Dictionary") 'Call RSSFeed("http://blog.scholastic.com/ink_splot_26/rss.xml") ' title=dictObj.Item("title") 'dictObj.RemoveAll 'Set dictObj = Nothing Function RSSFeed(URL,ListNum) Dim XmlHttp,items,objItems Set XmlHttp = Server.CreateObject("MSXML2.DOMDocument") XmlHttp.setProperty "ServerHTTPRequest", True XmlHttp.async = False XmlHttp.Load(URL) 'GET THE RECENT ITEM Set items = XmlHttp.getElementsByTagName("item").Item(0) Set objItems = XmlHttp.getElementsByTagName("item") 'if it completed and success if err.number <> 0 then RSSFeed= "error" else if (XmlHttp.readyState=4) then 'Parse the item children For each child in items.childNodes Select case lcase(child.nodeName) case "title" dictObj.Add "title",child.text case "url" dictObj.Add "url",child.text case "link" dictObj.Add "link",child.text case "description" dictObj.Add "description",child.text case "content:encoded" dictObj.Add "content:encoded",child.text case "pubdate" dictObj.Add "pubdate",child.text case "lastBuildDate" dictObj.Add "lastBuildDate",child.text case "author" dictObj.Add "author",child.text case "dc:creator" dictObj.Add "creator",child.text End Select Next if ListNum>0 then ' following code is for project that need to list other article 'Parse the item children For x = 1 to ListNum Set objItem = objItems.item(x) For each child in objItem.childNodes Select case lcase(child.nodeName) case "title" title=child.text case "link" link=child.text case "pubdate" pubdate=child.text case "description" description=child.text End Select Next weekDatePos=instr(pubdate,",") DateEndPos=instr(pubdate,":")-8 formatpubdate=cdate(mid(pubdate,weekDatePos+1,DateEndPos)) slashposi=InStrRev(formatpubdate,"/") formatpubdate=mid(formatpubdate,1,slashposi-1) output=output & "
  • "&title&"
  • " outputIDate=outputIDate & "
  • "&formatpubdate&" "&title&"
  • " newsDes=replace(description,"") 'aboutschnews= aboutschnews & ""&title&"
    " & mid(newsDes,1,newsDateEPos-1) & "

    " aboutschnews= aboutschnews & ""&title&"
    " & description & "

    " Next dictObj.Add "LinkList",output dictObj.Add "LinkWDateList",outputIDate dictObj.Add "SchNews",aboutschnews end if end if end if Set XmlHttp=Nothing End Function Function GetRSSFeed(URL,Num) Dim XmlHttp,items,objItems Set XmlHttp = Server.CreateObject("MSXML2.DOMDocument") XmlHttp.setProperty "ServerHTTPRequest", True XmlHttp.async = False XmlHttp.Load(URL) 'GET THE RECENT ITEM 'if it completed and success if err.number <> 0 then call ReportXMlError() else if (XmlHttp.readyState=4) then itemlength = XmlHttp.getElementsByTagName("item").length if itemlength < Num then Num=itemlength if itemlength >0 then set objItems = XmlHttp.getElementsByTagName("item") Dim ArrayValue() Redim ArrayValue(Num,8) For x = 0 to Num-1 Set objItem = objItems.item(x) For each child in objItem.childNodes Select case lcase(child.nodeName) case "title" ArrayValue(x,0)=child.text case "link" ArrayValue(x,1)= child.text case "published" ArrayValue(x,2)=child.text case "updated" ArrayValue(x,3)=child.text case "summary" ArrayValue(x,4)=child.text case "description" ArrayValue(x,4)=child.text case "author" ArrayValue(x,5)=child.text case "content" ArrayValue(x,6)= child.text End Select Next Next end if end if end if Set XmlHttp=Nothing GetRSSFeed=ArrayValue End Function Function convertRSSDate(pubdate,format) dim StartDateP,EndDateP StartDateP=instr(1,pubdate,",")+1 EndDateP=instr(pubdate,Year(Date)) pubdate=mid(pubdate,StartDateP,EndDateP) pubdate=FormatDateTime(pubdate,format) convertRSSDate=pubdate End Function '''''''''''''''''''Check subdomain Name'''''''''''' Function ServerName(domain) if instr(domain,"teacherdev.scholastic.com") > 0 then ServerName="teacherdev" elseif instr(domain,"comdev2.scholastic.com") > 0 then ServerName="comdev2.scholastic.com" elseif instr(domain,"teacherqual.scholastic.com") > 0 then ServerName="teacherqual.scholastic.com" elseif instr(domain,"comqual2.scholastic.com") > 0 then ServerName="comqual2.scholastic.com" elseif instr(domain,"teacher.scholastic.com") > 0 then ServerName="teacher" elseif instr(domain,"www.scholastic.com") > 0 then ServerName="www" end if End Function 'This function use to send out email Function CDOEmail(femail,toemail,format,subject,body,attachment) Set MailObj=CreateObject("CDO.Message") MailObj.Subject=subject MailObj.From=femail MailObj.To=toemail if format="HTML" then MailObj.HTMLBody=body else MailObj.TextBody=body end if if attachment<>"" then MailObj.AddAttachment attachment MailObj.Send set MailObj=nothing End Function Function ReportXMlError() XMLError=XMLError & "Error Code: " & XmlHttp.ParseError & "
    " XMLError=XMLError & "Error Code: " & XmlHttp.ParseError.errorCode & "
    " XMLError=XMLError & "Error Description: " & XmlHttp.ParseError.reason & "
    " XMLError=XMLError & "Error File Position: " & XmlHttp.ParseError.filepos & "
    " XMLError=XMLError & "Error Line: " & XmlHttp.ParseError.line & "
    " XMLError=XMLError & "Error Line Position: " & XmlHttp.ParseError.linepos & "
    " XMLError=XMLError & "Error URL pointing the loaded document " & XmlHttp.ParseError.url & "
    " XMLError=XMLError & "Error Source Text: " & XmlHttp.ParseError.srcText & "
    " call CDOEmail("jwu@scholastic.com","jwu@scholastic.com","HTML","XML Error Report",XMLError,"") End Function Sub DisplayErrorInfo() 'URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.Querystring & Request.Form REFERERURL=Request.ServerVariables ("HTTP_REFERER") errorString=errorString & "Error: : " & Err & "
    " errorString=errorString & "Source : " & Err.Source & "
    " errorString=errorString & "Description : " & Err.Description & "
    " errorString=errorString & "Number : " & Err.Number & "
    " errorString=errorString & "HTTP_REFERER : " & REFERERURL & "
    " errorString=errorString & "Current URL : " & URL & "
    " call CDOEmail("jwu@scholastic.com","jwu@scholastic.com","HTML","ASP Error" ,errorString,"") Err.Clear response.redirect("/404error.asp") End Sub Sub DisplayErrorSQLInfo(SQL) 'URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.Querystring & Request.Form REFERERURL=Request.ServerVariables ("HTTP_REFERER") if SQL="" then SQL="none" errorString=errorString & "Error: : " & Err & "
    " errorString=errorString & "Source : " & Err.Source & "
    " errorString=errorString & "Description : " & Err.Description & "
    " errorString=errorString & "Number : " & Err.Number & "
    " errorString=errorString & "HTTP_REFERER : " & REFERERURL & "
    " errorString=errorString & "Current URL : " & URL & "
    " errorString=errorString & "SQL : " & SQL & "
    " call CDOEmail("jwu@scholastic.com","jwu@scholastic.com","HTML","ASP Error" ,errorString,"") Err.Clear response.redirect("/404error.asp") End Sub Sub SendErrorOnly() 'URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") & "?" & Request.Querystring & Request.Form REFERERURL=Request.ServerVariables ("HTTP_REFERER") errorString=errorString & "Error: : " & Err & "
    " errorString=errorString & "Source : " & Err.Source & "
    " errorString=errorString & "Description : " & Err.Description & "
    " errorString=errorString & "Number : " & Err.Number & "
    " errorString=errorString & "HTTP_REFERER : " & REFERERURL & "
    " errorString=errorString & "Current URL : " & URL & "
    " call CDOEmail("jwu@scholastic.com","jwu@scholastic.com","HTML","ASP Error" ,errorString,"") Err.Clear End Sub 'This function use to list of all the data that user enter Function EmailBodyDataList() For j = 1 to Request.Form.Count fName = Request.Form.Key(j) fValue = Request.Form.Item(j) if instr(fName,"_NDB")=0 then EmailData = EmailData & fName & ": " & fValue & vbCrLf end if Next EmailBodyDataList=EmailData End Function 'This function use to list of all the data that user enter Function EmailBodyDataListFromURL() For j = 1 to Request.querystring.Count fName = Request.querystring.Key(j) fValue = Request.querystring.Item(j) if instr(fName,"_NDB")=0 then EmailData = EmailData & fName & ": " & fValue & vbCrLf end if Next EmailBodyDataListFromURL=EmailData End Function Function GetSPSCookies(field) SPS_UD=Request.Cookies("SPS_UD") ' response.Write Request.Cookies("SPS_UD") If SPS_UD="" or len(SPS_UD)=0 then GetSPSCookies="none" else cookies=Request.Cookies("SPS_UD") SPSArray=split(SPS_UD,"|") if field="SPSID" then GetSPSCookies=SPSArray(0) elseif field="UserName" then GetSPSCookies=replace(SPSArray(1),"'","'") elseif field="FirstName" then GetSPSCookies=replace(SPSArray(2),"'","'") elseif field="LastName" then GetSPSCookies=replace(SPSArray(3),"'","'") else GetSPSCookies=cookies end if END if End Function sub ForceSSL() DomainName=Request.ServerVariables("SERVER_NAME") If Request.ServerVariables("SERVER_PORT")=80 and InStr(1, DomainName, "comdev")= 0 Then strSecureURL = "https://" strSecureURL = strSecureURL & DomainName strSecureURL = strSecureURL & Request.ServerVariables("URL") Response.Redirect strSecureURL End If end sub function FilterFName(filename) chkstr = "abcdefghijklmnopqrstuvwxyz0123456789_." filename = trim(lcase(filename)) filename2 = "" for i=1 to len(filename) if instr(chkstr,mid(filename,i,1)) > 0 then filename2 = filename2 & mid(filename,i,1) elseif mid(filename,i,1) = " " then filename2 = filename2 & "_" end if next FilterFName=filename2 end function function UploadPath(folder) If InStr(1, Request.ServerVariables("SERVER_NAME"), "comdev2")= 0 and InStr(1, Request.ServerVariables("SERVER_NAME"), "teacherdev")= 0 Then upPath = "\\cel1dm2\Artisan_Fileup\ufile\"&folder&"\" WebURL = "http://www.scholastic.com/ufile/"&folder&"/" else upPath = Server.MapPath("\testupload\") WebURL = "http://"&Request.ServerVariables("SERVER_NAME")&"/testupload/" end if end function Function filterHTML(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") filterHTML = strOutput Set objRegExp = Nothing End Function %> <% On Error Resume Next Dim RSSXML(10) RSSXML(0)="http://scholasticadministrator.typepad.com/admin_featured/scholastic.xml" RSSXML(1)="http://scholasticadministrator.typepad.com/thisweekineducation/scholastic.xml" RSSXML(2)="http://blogs.scholastic.com/techtools/scholastic.xml" RSSXML(3)="http://blogs.scholastic.com/royaltreatment/scholastic.xml" RSSXML(4)= "http://scholasticadministrator.typepad.com/admin_top_stories/scholastic.xml" RSSXML(5)= "http://blogs.scholastic.com/practical_leadership/scholastic.xml" RSSXML(6)= "http://scholasticadministrator.typepad.com/admin_webinars/scholastic.xml" RSSXML(7)= "http://scholasticadministrator.typepad.com/admin_whitepapers/scholastic.xml" RSSXML(8)= "http://blogs.scholastic.com/bestintechtoday/scholastic.xml" %> Scholastic Administrator | Scholastic.com <% doMenu %>
    <% 'EPI="

    More Stories Below

    " EPI = "
    " MidSection=GetRSSFeed(RSSXML(0),8) For i= 0 to ubound(MidSection)-1 title=MidSection(i,0) link=MidSection(i,1) published=MidSection(i,2) summary=mid(MidSection(i,4),1,140) if i=0 then content=MidSection(i,6) ImageStart=instr(content,"src=") ' response.Write ImageStart fquote=instr(ImageStart,content,"""",1) +1 equote=instr(fquote+1,content,"""",1)-2 imagelen=equote-ImageStart response.Write "" response.write "

    "&title&"

    " response.write "
    "&summary&"
    " else if i = 4 then ListArticle=ListArticle & "
  • " & EPI & "
  • " else ListArticle=ListArticle & "
  • "&title&"

    "&summary&"
  • " end if end if Next Erase MidSection %>
      <%=ListArticle%>

    TOP 5 NEWS STORIES

    <% 'Top Stories: RSS value for the right bottom TopStories=GetRSSFeed(RSSXML(4),5) For m= 0 to ubound(TopStories)-1 title=TopStories(m,0) link=TopStories(m,1) summary=TopStories(m,4) ListTop=ListTop & "
  • "&title&"

    "&summary&"
  • " Next response.Write ("
      "&ListTop&"
    ") Erase TopStories %>

    ON OUR BLOGS

      <% 'Item 1: RSS value on the right top corner response.Write("
    • ") Item1=GetRSSFeed(RSSXML(1),1) title=Item1(0,0) link=Item1(0,1) published=Item1(0,2) response.write ("

      Alexander Russo

      ") response.write ("

      "&title&"

      "&published&"

      ") response.Write("
    • ") Erase Item1 'Item 5: RSS value on the right top corner 'response.Write("
    • ") 'Item5=GetRSSFeed(RSSXML(5),1) 'title=Item5(0,0) 'link=Item5(0,1) 'published=Item5(0,2) 'response.write ("

      Practical Leadership

      ") 'response.write ("

      "&title&"

      "&published&"

      ") 'response.Write("
    • ") 'Erase Item5 'Item 2: RSS value on the right top corner response.Write("
    • ") Item2=GetRSSFeed(RSSXML(2),1) title=Item2(0,0) link=Item2(0,1) published=Item2(0,2) response.write ("

      Tech Tools

      ") response.write ("

      "&title&"

      "&published&"

      ") response.Write("
    • ") Erase Item2 %>

    RESOURCES

    • Best in Tech Archive

      Essential education technology chosen by district leaders for Administrator magazine.
    • Video Interviews

      See and hear leaders—from Ray Cortines to author Michael Horn (Disrupting Class)—intelligently discussing today’s hottest education topics.
    • Profiles in Education

      Get advice from today's newsmakers to guide you through the landmines that every superintendency holds. Including interviews with San Francisco's Carlos Garcia and AASA Superintendent of the Year Betty Morgan.
    • Weigh In:

      Trusted collegues share advice on the thorniest problems our schools are facing.

    VIDEO

    See All Videos

    Permission to repost video content available by request.

    <% If Request.QueryString("subscribeSuccess") <> "true" Then %>
    /administrator" name="successURL"/> /administrator" name="failureURL"/>
    <% Else %>
    Thank you! We've processed your information and you will receive your first issue shortly.
    <% End If %>

    Download your free article collection about keeping schools healthy.

    <% 'webinar rss feed webinar=GetRSSFeed(RSSXML(6),4) For n= 0 to ubound(webinar)-1 wtitle=webinar(n,0) wlink=webinar(n,1) wsummary=webinar(n,4) webinarList=webinarList & "
  • "&wtitle&" "&wsummary&"
  • " Next response.write "
    " response.write "

    Free Webinar Series

    " response.Write ("
      "&webinarList&"
    ") response.write "

    View more webinars >" response.write "

    " Erase webinar %>
    <% 'white rss feed white=GetRSSFeed(RSSXML(7),4) For n= 0 to ubound(white)-1 whTitle=white(n,0) whLink=white(n,1) whSummary=white(n,4) whiteList=whiteList & "
  • "&whTitle&" "&whSummary&"
  • " Next response.write "
    " response.write "

    Free Whitepapers

    " response.Write ("
      "&whiteList&"
    ") response.write "
    " Erase white %>
    <% doFooter %> <% If Err.Number <> 0 then Response.write("") Error.Clear End If %>