<% '--------------------------------------------------------------------------- ' Projet : IT Business ' Fichier : SMBExtra.asp ' Version ToolsBox : -- ' Auteur : Jean-François Gingras ' Date : 23 Août 2005 ' ' Description : Page des events ' ' (c) 2005 Marcotte Multimédia, Inc. Tous droits reservés. '--------------------------------------------------------------------------- '--------------------------------------------------------------------------- ' Modifié par : ' En date du : ' ' Modification : '--------------------------------------------------------------------------- '-- Securité --------- dim onglet const TypeSecu = 2 onglet = cint(2^(CG_ONGLET_GENERAL)) '--------------------- 'CONSTANTES const nbrep="../" const CF_ChoixMenu = "0" %>
Channel Security Recent News <% cpt_sec = 1 sql_News = "SELECT TOP 4 nwNews.id_News, nwCategorieSubCategorie.idCategorie, nwCategorieSubCategorie.idSubCategorie, nwNews.titre, nwNews.SousTitre, " &_ " nwNews.datePosting, nwAuteur.prenom, nwAuteur.nom, nwNews.refImage1, nwNews.width1 " &_ "FROM nwCategorieSubCategorie INNER JOIN " &_ "nwNewsCategorieSubCategorie ON " &_ "nwCategorieSubCategorie.id_CategorieSubCategorie = nwNewsCategorieSubCategorie.idCategorieSubCategorie " &_ "INNER JOIN nwNews ON nwNewsCategorieSubCategorie.idNews = nwNews.id_News " &_ "INNER JOIN nwAuteur ON nwNews.idAuteur = nwAuteur.id_Auteur " &_ "WHERE (nwCategorieSubCategorie.idCategorie = 53 ) " &_ "AND nwNews.activation <= getdate()" &_ "AND nwNews.bOnline = 1 " &_ "AND nwNews.etat = 1 " &_ "ORDER BY nwNews.datePosting DESC" gf_OuvrirRecordset gf_ObtenirChaineConnexion(0), sql_News, ors_News '-------------------------------------------------------------------- If Not (ors_News.Eof AND ors_News.Bof) Then vec_News = ors_News.GetRows() End If '--------------------------------------------------- 'Fermer Recordset gf_FermerRecordset ors_News '--------------------------------------------------- If isarray(vec_News) And Not IsNull(vec_News) Then Do While cpt <= UBound(vec_News,2) %> <% if cpt = 0 then %> <%if vec_News(9,cpt) > 0 then%> Computer Dealer News Product Reviews-<%=vec_News(8,cpt)%> <% else %> Computer Dealer News Product Reviews <% end if %> <%=vec_News(3,cpt)%>
<%=vec_News(4,cpt)%>
By: <%=vec_News(6,cpt)%> <%=vec_News(7,cpt)%>   (<%=vec_News(5,cpt)%>)

<%else%> <%=vec_News(3,cpt)%>
<%=vec_News(4,cpt)%>
By: <%=vec_News(6,cpt)%> <%=vec_News(7,cpt)%>   (<%=vec_News(5,cpt)%>)

<% end if %> <% cpt = cpt + 1 Loop erase vec_News set vec_News = Nothing vec_News = Null cpt=0 End If %>
More Security Articles , RSS


<% Response.Expires = -1 ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005-2008 (c) www.Bytescout.com ' version 1.27, 16 August 2008 ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://link.brightcove.com/services/mrss/1815854478/playlist614673063001" ' ##### max number of displayed items ##### MaxNumberOfItems = 4 ' ##### Main template constants MainTemplateHeader = "
Recent Security Videos
" MainTemplateFooter = "" ' ##### ' ###################################### Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too ' ################################# ItemTemplate = "
{TITLE} {LENGTH}
" ' ##### Error message that will be displayed if not items etc ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
Please contact web-master" ' ================================================ Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") xmlHttp.Open "GET", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = False xmlDOM.validateOnParse = False xmlDom.resolveExternals = False If not xmlDOM.LoadXml(RSSXML) Then ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage End If Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS RSSItemsCount = RSSItems.Length-1 ' if not .. entries, then try to get .. if RSSItemsCount = -1 Then Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS RSSItemsCount = RSSItems.Length-1 End If Set xmlDOM = Nothing ' clear XML ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) ' fix for the issue when a description from a previous item ' is used if current item description is empty provided by George Sexton RSSdescription=" " RSSCommentsLink=" " for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" If child.Attributes.length>0 Then RSSLink = child.GetAttribute("href") if (RSSLink <> "") Then if child.GetAttribute("rel") <> "alternate" Then RSSLink = "" End If End If End If ' if has attributes If RSSLink = "" Then RSSlink = child.text End If case "description" RSSdescription = child.text case "content" ' atom format RSSdescription = child.text case "published"' atom format RSSDate = child.text case "pubdate" RSSDate = child.text case "bc:titleid" RSSid = child.text case "bc:duration" RSStime = child.text RSStime2 = Rsstime / 60 RSSmins = Int(RSStime2) remain = Rsstime mod 60 RSSlength = RSSmins &":" & remain case "media:thumbnail" imgHeight = child.GetAttribute("height") if imgHeight < 120 then RSSthumb = child.GetAttribute("url") end if End Select next ' now check filter If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this for use in on-the-fly output %>
More Technology Videos , RSS


More Channel Security Articles <% cpt_sec = 0 cpt = 4 sql_News = "SELECT TOP 9 nwNews.id_News, nwCategorieSubCategorie.idCategorie, nwCategorieSubCategorie.idSubCategorie, nwNews.titre, nwNews.SousTitre, " &_ " nwNews.datePosting, nwAuteur.prenom, nwAuteur.nom, nwNews.refImage1, nwNews.width1 " &_ "FROM nwCategorieSubCategorie INNER JOIN " &_ "nwNewsCategorieSubCategorie ON " &_ "nwCategorieSubCategorie.id_CategorieSubCategorie = nwNewsCategorieSubCategorie.idCategorieSubCategorie " &_ "INNER JOIN nwNews ON nwNewsCategorieSubCategorie.idNews = nwNews.id_News " &_ "INNER JOIN nwAuteur ON nwNews.idAuteur = nwAuteur.id_Auteur " &_ "WHERE (nwCategorieSubCategorie.idCategorie = 53 ) " &_ "AND nwNews.activation <= getdate()" &_ "AND nwNews.bOnline = 1 " &_ "AND nwNews.etat = 1 " &_ "ORDER BY nwNews.datePosting DESC" gf_OuvrirRecordset gf_ObtenirChaineConnexion(0), sql_News, ors_News '-------------------------------------------------------------------- If Not (ors_News.Eof AND ors_News.Bof) Then vec_News = ors_News.GetRows() End If '--------------------------------------------------- 'Fermer Recordset gf_FermerRecordset ors_News '--------------------------------------------------- If isarray(vec_News) And Not IsNull(vec_News) Then Do While cpt <= UBound(vec_News,2) %> <%=vec_News(3,cpt)%>
<%=vec_News(4,cpt)%>
By: <%=vec_News(6,cpt)%> <%=vec_News(7,cpt)%>   (<%=vec_News(5,cpt)%>)

<% cpt = cpt + 1 Loop erase vec_News set vec_News = Nothing vec_News = Null cpt=0 End If %>
More Channel Security News

<% Response.Expires = -1 ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005-2008 (c) www.Bytescout.com ' version 1.27, 16 August 2008 ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://jobs.itworldcanada.com/Search/Feed/RSS?SortOrder=EXPLORER_DATE_DESC&Skills=Security&Page=1" ' ##### max number of displayed items ##### MaxNumberOfItems = 5 ' ##### Main template constants MainTemplateHeader = "Recent Security Job Postings" ' ##### ' ###################################### Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too ' ################################# ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {DESCRIPTION} will be replaced with item description ' ##### {DATE} will be replaced with item date and time ' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog) ' ##### {CATEGORY} will be replaced with item category ItemTemplate = "
  • {TITLE}
  • " ' ##### Error message that will be displayed if not items etc ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
    Please contact web-master" ' ================================================ Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") xmlHttp.Open "GET", URLToRSS, false xmlHttp.Send() RSSXML = xmlHttp.ResponseText Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0") xmlDOM.async = False xmlDOM.validateOnParse = False xmlDom.resolveExternals = False If not xmlDOM.LoadXml(RSSXML) Then ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage End If Set xmlHttp = Nothing ' clear HTTP object Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS RSSItemsCount = RSSItems.Length-1 ' if not .. entries, then try to get .. if RSSItemsCount = -1 Then Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS RSSItemsCount = RSSItems.Length-1 End If Set xmlDOM = Nothing ' clear XML ' writing Header if RSSItemsCount > 0 then Response.Write MainTemplateHeader End If j = -1 For i = 0 To RSSItemsCount Set RSSItem = RSSItems.Item(i) ' fix for the issue when a description from a previous item ' is used if current item description is empty provided by George Sexton RSSdescription=" " RSSCommentsLink=" " for each child in RSSItem.childNodes Select case lcase(child.nodeName) case "title" RSStitle = child.text case "link" If child.Attributes.length>0 Then RSSLink3 = child.GetAttribute("href") if (RSSLink3 <> "") Then if child.GetAttribute("rel") <> "alternate" Then RSSLink3 = "" End If End If End If ' if has attributes If RSSLink3 = "" Then RSSlink3 = child.text End If case "description" RSSdescription = child.text case "content" ' atom format RSSdescription = child.text case "published"' atom format RSSDate = child.text case "dc:creator"' atom format RSSAuthor = child.text case "pubdate" RSSDate = child.text case "comments" RSSCommentsLink = child.text case "category" Set CategoryItems = RSSItem.getElementsByTagName("category") RSSCategory = "" for each categoryitem in CategoryItems if RSSCategory <> "" Then RSSCategory = RSSCategory & ", " End If RSSCategory = RSSCategory & categoryitem.text Next End Select next ' now check filter If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then j = J+1 if J 0 then Response.Write MainTemplateFooter else Response.Write ErrorMessage End If ' Response.End ' uncomment this for use in on-the-fly output %>
    More IT Security Jobs

    Featured Sponsor Content
    Bring ‘em on! – The Consumerization of Enterprise Mobility
    The consumerization and mobilization of enterprise IT is a real, irreversible, and unstoppable movement that needs immediate attention and innovative solutions. In order to maintain secure endpoints, as the potential for breach expands, IT departments must be flexible and inclusive when developing polices so employees are encouraged to use their personal mobile devices without fear of losing control over them. Discover How
    How Security is Changing to Support Virtualization and Cloud Computing
    Server Defense for Virtual Machines -How security must evolve to enable your data center's journey from physical to virtual to cloud. This white paper describes the evolution of these changes as enterprises adopt virtualization and then cloud computing. Download Now
    Endpoint Security: Become Aware of Virtual Desktop Infrastructures! An Ogren Group Special Report
    When it comes to VDI, what you don’t know can hurt you. If you don’t know which features will help you make the most of your VDI implementation, you may see disappointing results. Find out how you can avoid stalling your VDI project by sidestepping "performance-killing contention issues." In a new white paper, analyst Eric Ogren outlines success factors that will help you unleash the full potential of your VDI implementation. Learn More
    Brought to you By: