<% '--------------------------------------------------------------------------- ' 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" %>
Research and Reports 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 (id_CategorieSubCategorie = 109 ) " &_ "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 %> <%end if%> <%=vec_News(3,cpt)%>
<%=vec_News(4,cpt)%>
By: <%=vec_News(6,cpt)%> <%=vec_News(7,cpt)%>   (<%=vec_News(5,cpt)%>)

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

Computer Dealer News White Paper Library


Case Studies <% cpt_sec = 1 sql_News = "SELECT TOP 3 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 (id_CategorieSubCategorie = 145 ) " &_ "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 %> <%end if%> <%=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 Case Studies

<% 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/playlist541394203001" ' ##### max number of displayed items ##### MaxNumberOfItems = 3 ' ##### Main template constants MainTemplateHeader = "
Recent Data Centre 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
Product Reviews <% cpt_sec = 1 sql_News = "SELECT TOP 3 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 (id_CategorieSubCategorie = 50 ) " &_ "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 %> <%end if%> <%=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 Product Reviews