|
|
| |
 |
Marketing Partners
 |
<%'Start Cut --------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------
Dim siteID
'##### Declare ID of site to pull #########
siteID = "35"
'##########################################
'--------------------------------------------------------------------------------------------
'Database Connection
Dim strConn, oConn
Dim conn_user, conn_pass
Dim conn_server, conn_dbname
'@@ Database Login Info @@
'Dev ---------------------
'conn_server = "yucca"
'conn_user = "sa"
'conn_pass = "subiacreative"
'conn_dbname = "addurl"
'Live --------------------
conn_server = "ns1.anonhostdns.com"
conn_user = "sa"
conn_pass = "Subiacreat1ve"
conn_dbname = "addurl"
'@@@@@@@@@@@@@@@@@@@@@@@@@
strConn = "Provider=SQLOLEDB; Data Source=" & conn_server & "; Initial Catalog=" & _
conn_dbname & "; User Id=" & conn_user & "; Password=" & conn_pass & ";"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open (strConn)
'--------------------------------------------------------------------------------------------
Dim sSql, rs, rsdbCount, dbCount, tmpPageCount, currentPage, tempHolder, pageCount, tmpPage, numdis
numdis = 10
currentPage = 1
'Get a Count for Page Listing
sSql = "Select Count(*) As dbCount from site_links WHERE linkID IN (SELECT linkID FROM sites_to_site_links WHERE siteID = " & siteID & ")"
Set rsdbCount = Server.CreateObject("ADODB.Recordset")
Set rsdbCount = oConn.Execute(sSql)
dbCount = rsdbCount("dbCount")
dbCount = cInt(dbCount)
If dbCount > 0 then pageCount = (dbCount / numdis) else pageCount = 0
tmpPageCount = Round(pageCount)
if tmpPageCount < pageCount then pageCount = tmpPageCount + 1 Else pageCount = tmpPageCount
sSql = "SELECT * FROM site_links WHERE linkID IN (SELECT linkID FROM sites_to_site_links WHERE siteID = " & siteID & ") ORDER BY linkID"
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = oConn.Execute(sSql)
if Not (rs.BOF and rs.EOF) then
rs.MoveFirst
If currentPage > 1 then
Dim x, y
x = 0
y = (currentPage * numdis) - numdis
Do Until x = y
if not rs.EOF then
rs.moveNext
x = x + 1
end if
Loop
End If
tempHolder = 0
Do Until tempHolder = numdis Or rs.EOF
'############# Here's where the links get displayed ###############
%>
<%
if not rs.EOF then
%>
" target="_blank"><%=rs("siteTitle")%>
<%=Replace(rs("webDesc"),vbcrlf,"
")%>
|
<%else%>
|
<%end if%>
|
|
|
<%
rs.MoveNext
if not rs.EOF then
tempHolder = tempHolder + 1
%>
" target="_blank"><%=rs("siteTitle")%>
<%=Replace(rs("webDesc"),vbcrlf,"
")%>
|
<%else%>
|
<%end if%>
|
|
|
|
|
<%
'##################################################################
if not rs.EOF then
rs.MoveNext
tempHolder = tempHolder + 1
end if
Loop
end if
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
'--------------------------------------------------------------------------------------------
' End Cut ---------------------------------------------------------------------------------%>
|
<%
If pageCount > 0 then
tmpPage = 0
Response.Write("Page ")
Do
tmpPage = tmpPage + 1
If tmpPage = currentPage then
Response.Write(tmpPage & " ")
Else
Response.Write("" & tmpPage & " ")
End If
Loop Until tmpPage = pageCount
Else
Response.Write(" ")
End If
%>
|
|
<%
If pageCount > 1 then
If currentPage > 1 then
Response.Write("Previous Page")
Else
Response.Write("Previous Page")
End If
Response.Write(" | ")
Response.Write("![]() ")
Response.Write(" | ")
If currentPage < pageCount then
Response.Write("Next Page")
Else
Response.Write("Next Page")
End If
Else
Response.Write(" ")
End If
%>
|
|
|
|
