<%
' PROJECT: Affiliate Projects
' PAGE: Default.asp
' AUTHOR: Warren
' PURPOSE: Home Page
' CREATED ON: 2000.11.02
' INCLUDED FUNCTIONS:
'
' REVISION HISTORY:
'
%>
<%
dim strPrint
dim strPrintHeader
dim strPage
dim strTitle
Sub subDisplayAffiliatesByID(intID)
dim cnnAffiliateConnection
set cnnAffiliateConnection = funGetDBConnection()
dim strAffiliateSQL
dim rsAffiliateResults
dim strCategory
dim strBig
strCategory = ""
if intID = "" then
intID = 0
End if
Set rsAffiliateResults = Server.CreateObject("ADODB.Recordset")
strAffiliateSQL = "exec fp_RetrieveAffiliateByID " & intID
rsAffiliateResults.Open strAffiliateSQL, cnnAffiliateConnection
if rsAffiliateResults.EOF or rsAffiliateResults.EOF then
strPrintHeader = strPrintHeader & "
No Match Found
" & SiteHeadingIcon & "
"
Else
strBig = rsAffiliateResults("AffiliateDescriptionBig")
strTitle = rsAffiliateResults("affiliatename")
if strBig <> "" then
if rsAffiliateResults("AffiliateBannerBig") <> "" then
strPrintHeader = strPrintHeader & "
" & rsAffiliateResults("affiliatename") & "
"
strPrint = strPrint & "
" & rsAffiliateResults("AffiliateBannerBig") & "
"
strPrint = strPrint & "
" & strBig & "
"
if rsAffiliateResults("ExternalLink") <> "" then
strPrint = strPrint & "