Living Resources <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_CONN_STRING MM_CONN_STRING = "dsn=OAG;uid=oagusr1;pwd=b0ssman;" CurrentSite = Request.ServerVariables("SERVER_NAME") %> <% Dim LINKS Dim LINKS_numRows Set LINKS = Server.CreateObject("ADODB.Recordset") LINKS.ActiveConnection = MM_CONN_STRING LINKS.Source = "SELECT * FROM dbo.Resource_Links WHERE (ResourceSite = 'ALL' OR ResourceSite LIKE '%" & CurrentSite & "%') AND LinkType = 'Internal' ORDER BY Description ASC" LINKS.CursorType = 0 LINKS.CursorLocation = 2 LINKS.LockType = 1 LINKS.Open() LINKS_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 LINKS_numRows = LINKS_numRows + HLooper1__numRows %> <% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not LINKS.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not LINKS.EOF)) %> <% startrw = startrw + 1 LINKS.MoveNext() Wend %> <% numrows=numrows-1 Wend %> <%=(LINKS.Fields.Item("Description").Value)%> " class="sm_green"><%=(LINKS.Fields.Item("LinkText").Value)%> <% LINKS.Close() Set LINKS = Nothing %> Other Resources <% CurrentSite = Request.ServerVariables("SERVER_NAME") 'Response.Write "SITE:" & CurrentSite Set LINKS = Server.CreateObject("ADODB.Recordset") LINKS.ActiveConnection = MM_CONN_STRING LINKS.Source = "SELECT * FROM dbo.Resource_Links WHERE (ResourceSite = 'ALL' OR ResourceSite LIKE '%" & CurrentSite & "%') AND LinkType = 'External' ORDER BY Description ASC" LINKS.CursorType = 0 LINKS.CursorLocation = 2 LINKS.LockType = 1 LINKS.Open() LINKS_numRows = 0 %> <% HLooper1__numRows = -4 HLooper1__index = 0 LINKS_numRows = LINKS_numRows + HLooper1__numRows %> <% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not LINKS.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not LINKS.EOF)) %> <% startrw = startrw + 1 LINKS.MoveNext() Wend %> <% numrows=numrows-1 Wend %> <%=(LINKS.Fields.Item("Description").Value)%> " class="sm_green"><%=(LINKS.Fields.Item("LinkText").Value)%> <% LINKS.Close() Set LINKS = Nothing %>
	INTERNET MARKETING BY BGB MARKETING, LLC.HOME | PACKAGES | PAST RESULTS | ABOUT US | CONTACT US | RESOURCES