|
<%
category_id = Request.QueryString("cat")
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\data\BB_LINKS.mdb"))
%>
<%
IF category_id = "" THEN
%>
Links
to other sites are organized under the following categories:
<%
END IF
%>
<%
IF category_id = "01" THEN
%>
Branding
<%
SQL01 = "SELECT * FROM link_source WHERE cat_id = '01' ORDER BY id DESC"
SET RS01 = cnn.Execute(SQL01)
%>
<%
DO WHILE NOT RS01.EOF
%>
<%
RS01.MoveNext
LOOP
%>
<%
SQL02 = "SELECT * FROM link_source WHERE cat_id = '02' ORDER BY id DESC"
SET RS02 = cnn.Execute(SQL02)
%>
<%
DO WHILE NOT RS02.EOF
%>
<%
RS02.MoveNext
LOOP
%>
<%
SQL06 = "SELECT * FROM link_source WHERE cat_id = '06' ORDER BY id DESC"
SET RS06 = cnn.Execute(SQL06)
%>
<%
DO WHILE NOT RS06.EOF
%>
<%
RS06.MoveNext
LOOP
%>
<%
ELSEIF category_id = "04" THEN
%>
Marketing
<%
SQL04 = "SELECT * FROM link_source WHERE cat_id = '04' ORDER BY id DESC"
SET RS04 = cnn.Execute(SQL04)
%>
<%
DO WHILE NOT RS04.EOF
%>
<%
RS04.MoveNext
LOOP
%>
<%
ELSEIF category_id = "03" THEN
%>
Online
<%
SQL03 = "SELECT * FROM link_source WHERE cat_id = '03' ORDER BY id DESC"
SET RS03 = cnn.Execute(SQL03)
%>
<%
DO WHILE NOT RS03.EOF
%>
<%
RS03.MoveNext
LOOP
ELSEIF category_id = "05" THEN
%>
Research
<%
SQL05 = "SELECT * FROM link_source WHERE cat_id = '05' ORDER BY id DESC"
SET RS05 = cnn.Execute(SQL05)
%>
<%
DO WHILE NOT RS05.EOF
%>
<%
RS05.MoveNext
LOOP
%>
<%
ELSE
'Response.Redirect("http://www.buildingbrands.com/archives/marketing_resources.asp")
END IF
%>
|
