<% ' PROJECT: Affiliate Projects ' PAGE: Default.asp ' AUTHOR: Warren ' PURPOSE: Home Page ' CREATED ON: 2000.11.02 ' INCLUDED FUNCTIONS: ' ' REVISION HISTORY: ' %> <% dim strPage dim strPrintHeader dim strPrint dim strTitle dim strRelated dim strDeepLinking dim strDeepLinking2 Sub subDisplayArticleByID(intID) dim cnnArticleConnection set cnnArticleConnection = funGetDBConnection() dim strArticleSQL dim rsArticleResults dim intFind dim intFindID1 dim intFindID2 dim strArticleID dim strReplace if intID = "" then intID = 0 End if Set rsArticleResults = Server.CreateObject("ADODB.Recordset") strArticleSQL = "exec fp_RetrieveArticleByID " & intID rsArticleResults.Open strArticleSQL, cnnArticleConnection if rsArticleResults.EOF or rsArticleResults.EOF then strPrintHeader = strPrintHeader & "

No Match Found

" Else strTitle = rsArticleResults("Title") strDeepLinking = replace(strDeepLinking, "class=""", "class=""" & strCodePrefix) strPrintHeader = strPrintHeader & "

" & rsArticleResults("Title") & "

" strPrint = strPrint & " " strPrint = strPrint & "" if rsArticleResults("AuthorName") <> "" then strPrint = strPrint & "Author: " & rsArticleResults("AuthorName") & " " & rsArticleResults("AuthorSurname") & "

" End if strPrint = strPrint & "" strPrint = strPrint & "" if rsArticleResults("Image") <> "NoImage" then strPrint = strPrint & "" End If strPrint = strPrint & "" & rsArticleResults("Article") & "

" End If strPrint = Replace(strPrint, "~InsertPagePrefix~", SiteURL & strPagePrefix & strCodePrefix & "-") strPrint = replace(strPrint, "~InsertSiteName~", Site) strPrint = replace(strPrint, "~InsertSiteURL~", SiteURL) strPrint = replace(strPrint, "class=""", "class=""" & strCodePrefix) strPrint = replace(strPrint, "~InsertAffiliatesNoDeposit~", funDisplayAffiliatesNoDeposit()) intFind = instr(strPrint, "~InsertArticle~") If intFind > 0 Then intFindID1 = instr(strPrint, "~~") intFindID2 = instr(strPrint, "~~~") strArticleID = mid(strPrint, intFindID1 + 2, intFindID2 - 2 - intFindID1) strReplace = "~InsertArticle~~" & strArticleID & "~~~" strPrint = replace(strPrint, strReplace, funInsertSubArticle(strArticleID)) End If Call subDisplayRelatedArticles(intID) strPrint = strPrint & strRelated strPrint = replace(strPrint, "~InsertMoverURL~", strMoverURL) rsArticleResults.Close subDBDisconnect(cnnArticleConnection) End Sub Function funInsertSubArticle(intID) dim cnnArticleConnection set cnnArticleConnection = funGetDBConnection() dim strArticleSQL dim rsArticleResults if intID = "" then intID = 0 End if Set rsArticleResults = Server.CreateObject("ADODB.Recordset") strArticleSQL = "exec fp_RetrieveArticleByID " & intID rsArticleResults.Open strArticleSQL, cnnArticleConnection if rsArticleResults.EOF or rsArticleResults.EOF then ' Do Nothing Else funInsertSubArticle = replace(rsArticleResults("Article"), "class=""", "class=""" & strCodePrefix) End If rsArticleResults.Close subDBDisconnect(cnnArticleConnection) End Function Sub subDisplayRelatedArticles(intID) dim cnnArticleConnection2 set cnnArticleConnection2 = funGetDBConnection() dim strArticleSQL2 dim rsArticleResults2 dim intFound intFound = 0 if intID = "" then intID = 0 End if Set rsArticleResults2 = Server.CreateObject("ADODB.Recordset") strArticleSQL2 = "exec fp_RetrieveRelatedArticles " & intID rsArticleResults2.Open strArticleSQL2, cnnArticleConnection2 do until rsArticleResults2.EOF or rsArticleResults2.EOF if rsArticleResults2("Prefix") = "" Then strRelated = strRelated & "
  • " & rsArticleResults2("Title") & "
  • " Else strRelated = strRelated & "
  • " & rsArticleResults2("Title") & "
  • " End If intFound = 1 rsArticleResults2.Movenext loop rsArticleResults2.Close if intFound = 0 Then strRelated = "" Else strRelated = "Related Articles:
    " & strRelated & " " End If strRelated = replace(strRelated, "class=""", "class=""" & strCodePrefix) subDBDisconnect(cnnArticleConnection2) End Sub Sub subDisplayArticleSpecificLinks(intID, SiteTitle) dim cnnArticleConnection2 set cnnArticleConnection2 = funGetDBConnection() dim strArticleSQL2 dim rsArticleResults2 Set rsArticleResults2 = Server.CreateObject("ADODB.Recordset") strArticleSQL2 = "exec fp_RetrieveSiteLinks '" & SiteTitle & "', " & intID rsArticleResults2.Open strArticleSQL2, cnnArticleConnection2 do until rsArticleResults2.EOF or rsArticleResults2.EOF strDeepLinking2 = strDeepLinking2 & "" & rsArticleResults2("LinkTitle") & "     " rsArticleResults2.Movenext loop if strDeepLinking2 <> "" Then strDeepLinking2 = "
    " & strDeepLinking2 & "
    " End If strDeepLinking2 = replace(strDeepLinking2 , "class=""", "class=""" & strCodePrefix) rsArticleResults2.Close subDBDisconnect(cnnArticleConnection2) End Sub call subDisplayArticleByID(request("artID")) call subDisplayArticleSpecificLinks(request("artID"), Site) objSEO.SetArticleSEO(request("artID")) strPage = objSEO.pstrPage %> <% =strTitle %> .css" rel="stylesheet" type="text/css">

    <% =Site %>

    <% call subDisplayTopBanner(strPage) %>
    <% call subShowLeftNav(strPage, "N") %>
    <% = strPrintHeader %> <% = strPrint %>
    <% call subShowRightNav(strPage, "N") %>
    <% =strDeepLinking %> <% =strDeepLinking2 %>