<% dim onglet const TypeSecu = 2 onglet = cint(2^(CG_ONGLET_GENERAL)) '--------------------- 'CONSTANTES const nbrep="../" const CF_ChoixMenu = "0" theID = Request.QueryString("id") %> IT Business.ca Mobile Article <% if Request.QueryString("Home")="false" then 'create the cookie Response.Cookies("mobile") = "" End if %>
Home

IT Business.ca

Menu
<% '--------------------------------------------------------------------------- ' Projet : Mokasofa ' Fichier : iDetailNewsPrint.asp ' Version ToolsBox : -- ' Auteur : Dave Farrell ' Date : 16 dec 2002 ' ' Description : Page de détail imprimable pour les news ' ' (c) 2002 Marcotte Multimédia, Inc. Tous droits reservés. '--------------------------------------------------------------------------- '--------------------------------------------------------------------------- ' Modifié par : ' En date du : ' ' Modification : '--------------------------------------------------------------------------- Dim sql_News, ors_News, ct, iLastPage Dim vec_TitrePage(4), vec_Intro(4), vec_Texte(4), vec_RefImage(4), vec_Width(4) Dim vec_Height(4), vec_Vignette(4) newsId = Request.QueryString("id") if not (IsNumeric(newsId) and newsId <> "") then newsId = -1 else newsId = clng(newsId) end if %> <% '-------------------------------------------------------------------- ' OUVERTURE DU RECODSET sql_News = "SELECT" &_ " nw.titre AS ntitre" &_ ", nw.soustitre" &_ ", nwa.prenom+' '+nwa.nom AS nomprenom" &_ ", nw.activation" &_ ", nw.Intro1" &_ ", nw.Intro2" & _ ", nw.Intro3" & _ ", nw.Intro4" & _ ", nw.Intro5" & _ ", nw.TitrePage1" &_ ", nw.TitrePage2" &_ ", nw.TitrePage3" &_ ", nw.TitrePage4" &_ ", nw.TitrePage5" &_ ", nw.texte1" &_ ", nw.texte2" & _ ", nw.texte3" & _ ", nw.texte4" & _ ", nw.texte5" & _ ", nw.Refimage1" &_ ", nw.RefImage2" & _ ", nw.RefImage3" & _ ", nw.RefImage4" & _ ", nw.RefImage5" & _ ", nw.Width1" &_ ", nw.Width2" & _ ", nw.Width3" & _ ", nw.Width4" & _ ", nw.Width5" & _ ", nw.Height1" &_ ", nw.Height2" & _ ", nw.Height3" & _ ", nw.Height4" & _ ", nw.Height5" & _ ", nw.Vignette1" &_ ", nw.Vignette2" & _ ", nw.Vignette3" & _ ", nw.Vignette4" & _ ", nw.Vignette5" & _ ", nw.AltText1" &_ ", nw.AltText2" & _ ", nw.AltText3" & _ ", ed.id_Edition" &_ ", ed.dateedition" &_ ", ed.volume" &_ ", ed.numero" &_ ", ch.id_Channel" &_ ", ch.titre AS ctitre" &_ ", ed.sTitre" &_ " FROM (" &_ " SELECT id_Channel, titre" &_ " FROM "& CS_TABLE_OWNER &".chChannel" &_ " WHERE idLangue = " & CG_OBTENIRLANGUE &_ " AND idPublication = " & CG_PUBLICATION_SITE &_ " AND iEtat = 1" &_ " AND bOnline = 1" &_ " ) ch" &_ " RIGHT JOIN (" &_ " SELECT titre, soustitre, activation,idChannel,idAuteur,idEdition," &_ " Intro1, Intro2, Intro3, Intro4, Intro5," &_ " TitrePage1, TitrePage2, TitrePage3, TitrePage4, TitrePage5," &_ " texte1, texte2, texte3, texte4, texte5," &_ " refImage1, refImage2, refImage3, refImage4, refImage5," &_ " Width1, Width2, Width3, Width4, Width5," &_ " Height1, Height2, Height3, Height4, Height5," &_ " Vignette1, Vignette2, Vignette3, Vignette4, Vignette5," &_ " AltText1, AltText2, AltText3" &_ " FROM "& CS_TABLE_OWNER &".nwNews" &_ " WHERE id_News = " & newsId &_ " AND idLangue = " & CG_OBTENIRLANGUE &_ " AND idPublication = " & CG_PUBLICATION_SITE If Request.QueryString("bApercu") <> "1" Then sql_News = sql_News &_ " AND activation <= getdate()" &_ " AND etat = 1" End If sql_News = sql_News &_ " ) nw" &_ " ON nw.idChannel = ch.id_Channel" &_ " LEFT JOIN (SELECT id_Edition, dateedition, volume, numero, sTitre" &_ " FROM "& CS_TABLE_OWNER &".chEdition" &_ " WHERE idLangue = " & CG_OBTENIRLANGUE &_ " AND idPublication = " & CG_PUBLICATION_SITE If Request.QueryString("bApercu") <> "1" Then sql_News = sql_News &_ " AND dateedition <= getdate()" End If sql_News = sql_News &_ " ) AS ed" &_ " ON nw.idEdition = ed.id_Edition" &_ " LEFT JOIN (SELECT id_Auteur, nom, prenom" &_ " FROM "& CS_TABLE_OWNER &".nwAuteur" &_ " WHERE idLangue = " & CG_OBTENIRLANGUE &_ " AND idPublication = " & CG_PUBLICATION_SITE &_ " ) AS nwa" &_ " ON nw.idAuteur = nwa.id_Auteur" gf_OuvrirRecordset gf_ObtenirChaineConnexion(0), sql_News, ors_News '-------------------------------------------------------------------- If Not (ors_News.Eof AND ors_News.Bof) Then 'Boucle pour pages 1 a 3 for ct=1 to 5 vec_TitrePage(ct-1) = "" & ors_News("TitrePage" & cstr(ct)) vec_Intro(ct-1) = "" & ors_News("Intro" & cstr(ct)) vec_Texte(ct-1) = "" & ors_News("texte" & cstr(ct)) vec_RefImage(ct-1) = "" & ors_News("refimage" & cstr(ct)) vec_Width(ct-1) = "" & ors_News("Width" & cstr(ct)) vec_Height(ct-1) = "" & ors_News("Height" & cstr(ct)) vec_Vignette(ct-1) = "" & ors_News("Vignette" & cstr(ct)) next 'Fin boucle pour pages 1 a 3 iLastPage=0 if vec_TitrePage(1)<>"" then iLastPage=1 if vec_TitrePage(2)<>"" then iLastPage=2 if vec_TitrePage(3)<>"" then iLastPage=3 if vec_TitrePage(4)<>"" then iLastPage=4 Dim title, stitle title= ors_News.Fields("ntitre").Value stitle= Replace(title,"""","'") %>

<%=title%>

<%If ors_News.Fields("vignette1").Value <> "" Then Response.Write("
" & ors_News.Fields("vignette1").Value & "
") End If%> <%=ors_News.Fields("soustitre").Value%>
<%=gf_ObtenirFormatDate(ors_News.Fields("activation").Value,16)%>
by <%=ors_News.Fields("nomprenom").Value%>

" alt="<%=ors_News.Fields("AltText1").Value%>" height="<%=CLng(ors_News.Fields("height1").Value)%>" width="<%=CLng(ors_News.Fields("width1").Value)%>" border="0" align="right" style="padding:3px;"> <%'Boucle des pages For ct=0 To iLastPage%> <%'="" & vec_TitrePage(ct) & "
"%> <%If ct > 0 And vec_RefImage(ct) <> "" Then%> " alt="" height="<%=CLng(vec_Height(ct))%>" width="<%=CLng(vec_Width(ct))%>" border="0"> <%If vec_Vignette(ct) <> "" Then Response.Write("
" & vec_Vignette(ct) & "
") End If%> <%End If%> <%=replace(vec_Intro(ct),vbcrlf,"
")%>

<% Dim content, start, finish, videoID , length, video content = vec_Texte(ct) content = Replace(content,"href","rel=""external"" href") start = InStr(content,"@videoPlayer=") if start > 0 then finish = InStr(content,"&playerID") length = finish - start videoID = Mid(content,start+13,length-13) video = "
" content = Replace(content,"","-->") ' else videoID = "No Video" end If %> <%=content%> <%=video%> <%Next%> <% End If '-------------------------------------------------------------------- gf_FermerRecordset ors_News '-------------------------------------------------------------------- %>
Tweet This Share on Facebook Post to Linked in Bookmark and Share


View full Site