<%
' 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 & "
"
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 & "
"
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">