<% if (isNull(request.cookies("cookieUserID"))) or (request.cookies("cookieUserID")="") then response.redirect "index.asp" end if %>

<% 'start of button events if len(request.QueryString("btnArchive")) > 0 then s = "UPDATE tblPublication_Magazine SET blnArchived = 1 WHERE SubPubID NOT IN( "& _ "SELECT refSubPubID " & _ "FROM tblClientPublication INNER JOIN tblPublication ON tblPublication.PublicationID = tblClientPublication.refPublicationID " & _ "WHERE tblPublication.strType = 'Magazine' " & _ "GROUP BY refSubPubID " & _ "HAVING DATEDIFF(m,CAST(SUBSTRING(MAX(strDate),1,4) + '-' + SUBSTRING(MAX(strDate),5,2) + '-' + SUBSTRING(MAX(strDate),7,2) AS DATETIME),getdate()) < 7)" cn.execute(s) s = "UPDATE tblPublication_Newspaper SET blnArchived = 1 WHERE SubPubID NOT IN( "& _ "SELECT refSubPubID " & _ "FROM tblClientPublication INNER JOIN tblPublication ON tblPublication.PublicationID = tblClientPublication.refPublicationID " & _ "WHERE tblPublication.strType = 'Newspaper' " & _ "GROUP BY refSubPubID " & _ "HAVING DATEDIFF(m,CAST(SUBSTRING(MAX(strDate),1,4) + '-' + SUBSTRING(MAX(strDate),5,2) + '-' + SUBSTRING(MAX(strDate),7,2) AS DATETIME),getdate()) < 7)" cn.execute(s) s = "UPDATE tblPublication_Radio SET blnArchived = 1 WHERE SubPubID NOT IN( "& _ "SELECT refSubPubID " & _ "FROM tblClientPublication INNER JOIN tblPublication ON tblPublication.PublicationID = tblClientPublication.refPublicationID " & _ "WHERE tblPublication.strType = 'Radio' " & _ "GROUP BY refSubPubID " & _ "HAVING DATEDIFF(m,CAST(SUBSTRING(MAX(strDate),1,4) + '-' + SUBSTRING(MAX(strDate),5,2) + '-' + SUBSTRING(MAX(strDate),7,2) AS DATETIME),getdate()) < 7)" cn.execute(s) s = "UPDATE tblPublication_Tv SET blnArchived = 1 WHERE SubPubID NOT IN( "& _ "SELECT refSubPubID " & _ "FROM tblClientPublication INNER JOIN tblPublication ON tblPublication.PublicationID = tblClientPublication.refPublicationID " & _ "WHERE tblPublication.strType = 'Tv' " & _ "GROUP BY refSubPubID " & _ "HAVING DATEDIFF(m,CAST(SUBSTRING(MAX(strDate),1,4) + '-' + SUBSTRING(MAX(strDate),5,2) + '-' + SUBSTRING(MAX(strDate),7,2) AS DATETIME),getdate()) < 7)" cn.execute(s) s = "UPDATE tblPublication_Web SET blnArchived = 1 WHERE SubPubID NOT IN( "& _ "SELECT refSubPubID " & _ "FROM tblClientPublication INNER JOIN tblPublication ON tblPublication.PublicationID = tblClientPublication.refPublicationID " & _ "WHERE tblPublication.strType = 'Web' " & _ "GROUP BY refSubPubID " & _ "HAVING DATEDIFF(m,CAST(SUBSTRING(MAX(strDate),1,4) + '-' + SUBSTRING(MAX(strDate),5,2) + '-' + SUBSTRING(MAX(strDate),7,2) AS DATETIME),getdate()) < 7)" cn.execute(s) s = "UPDATE tblPublication SET blnArchived = 1 WHERE PublicationID NOT IN( "& _ "SELECT refPublicationID " & _ "FROM tblClientPublication " & _ "GROUP BY refPublicationID " & _ "HAVING DATEDIFF(m,CAST(SUBSTRING(MAX(strDate),1,4) + '-' + SUBSTRING(MAX(strDate),5,2) + '-' + SUBSTRING(MAX(strDate),7,2) AS DATETIME),getdate()) < 7)" cn.execute(s) end if if len(request.QueryString("btnUpdate")) > 0 then s = "SELECT Count(TABLE_NAME) as cnt " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE TABLE_NAME = 'tblPublication_Magazine' AND COLUMN_NAME = 'blnArchived'" set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("cnt") < 1 then s = " ALTER TABLE tblPublication_Magazine ADD blnArchived bit" cn.execute(s) end if end if s = "SELECT Count(TABLE_NAME) as cnt " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE TABLE_NAME = 'tblPublication_Newspaper' AND COLUMN_NAME = 'blnArchived'" set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("cnt") < 1 then s = " ALTER TABLE tblPublication_Newspaper ADD blnArchived bit" cn.execute(s) end if end if s = "SELECT Count(TABLE_NAME) as cnt " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE TABLE_NAME = 'tblPublication_Radio' AND COLUMN_NAME = 'blnArchived'" set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("cnt") < 1 then s = " ALTER TABLE tblPublication_Radio ADD blnArchived bit" cn.execute(s) end if end if s = "SELECT Count(TABLE_NAME) as cnt " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE TABLE_NAME = 'tblPublication_Tv' AND COLUMN_NAME = 'blnArchived'" set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("cnt") < 1 then s = " ALTER TABLE tblPublication_Tv ADD blnArchived bit" cn.execute(s) end if end if s = "SELECT Count(TABLE_NAME) as cnt " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE TABLE_NAME = 'tblPublication_Web' AND COLUMN_NAME = 'blnArchived'" set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("cnt") < 1 then s = " ALTER TABLE tblPublication_Web ADD blnArchived bit" cn.execute(s) end if end if s = " UPDATE tblPublication SET blnArchived = 0 WHERE blnArchived is null" cn.execute(s) s = " UPDATE tblPublication_Magazine SET blnArchived = 0 WHERE blnArchived is null" cn.execute(s) s = " UPDATE tblPublication_Newspaper SET blnArchived = 0 WHERE blnArchived is null" cn.execute(s) s = " UPDATE tblPublication_Radio SET blnArchived = 0 WHERE blnArchived is null" cn.execute(s) s = " UPDATE tblPublication_TV SET blnArchived = 0 WHERE blnArchived is null" cn.execute(s) s = " UPDATE tblPublication_Web SET blnArchived = 0 WHERE blnArchived is null" cn.execute(s) end if if len(request.QueryString("btnUpdateURLLenght")) > 0 then s = " alter table tblClientPublication alter column strURL varchar(1000);" cn.execute(s) end if if len(request.QueryString("btnUpdateArchiveNulls")) > 0 then s = "UPDATE tblPublication SET blnArchived = 0 " & _ " WHERE blnArchived is null; " & _ " UPDATE tblPublication_Tv SET blnArchived = 0 " & _ " WHERE blnArchived is null; " & _ " UPDATE tblPublication_Radio SET blnArchived = 0 " & _ " WHERE blnArchived is null; " & _ " UPDATE tblPublication_Newspaper SET blnArchived = 0 " & _ " WHERE blnArchived is null; " & _ " UPDATE tblPublication_Magazine SET blnArchived = 0 " & _ " WHERE blnArchived is null; " & _ " UPDATE tblPublication_Web SET blnArchived = 0 " & _ " WHERE blnArchived is null; " & _ " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblPublication' AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE dbo.tblPublication ADD CONSTRAINT DF_AID_AGENCY_STAFF_CSR DEFAULT 0 FOR blnArchived " & _ " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblPublication_Tv' AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE dbo.tblPublication_Tv ADD CONSTRAINT DF_AID_AGENCY_STAFF_CSR DEFAULT 0 FOR blnArchived " & _ " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblPublication_Radio' AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE dbo.tblPublication_Radio ADD CONSTRAINT DF_AID_AGENCY_STAFF_CSR DEFAULT 0 FOR blnArchived " & _ " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblPublication_Newspaper' AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE dbo.tblPublication_Newspaper ADD CONSTRAINT DF_AID_AGENCY_STAFF_CSR DEFAULT 0 FOR blnArchived " & _ " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblPublication_Magazine' AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE dbo.tblPublication_Magazine ADD CONSTRAINT DF_AID_AGENCY_STAFF_CSR DEFAULT 0 FOR blnArchived " & _ " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblPublication_Web' AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE dbo.tblPublication_Web ADD CONSTRAINT DF_AID_AGENCY_STAFF_CSR DEFAULT 0 FOR blnArchived " cn.execute(s) end if if len(request.QueryString("btnUpdate20110915")) > 0 then s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strHeadline' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD strHeadline nvarchar(100) DEFAULT '' " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strPage' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD strPage nvarchar(100) DEFAULT '' " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strProactiveReactive' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD strProactiveReactive nvarchar(50) DEFAULT '' " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'refPublicationTypeID' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD refPublicationTypeID int DEFAULT 0 " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'refContentTypeID' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD refContentTypeID int DEFAULT 0 " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'refBusinessPriorityID' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD refBusinessPriorityID int DEFAULT 0 " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'refRegionID' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD refRegionID int DEFAULT 0 " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strCountry' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD strCountry nvarchar(100) DEFAULT '' " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strIndustry' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD strIndustry nvarchar(100) DEFAULT '' " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strCompetitorReferenced' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClientPublication ADD strCompetitorReferenced nvarchar(100) DEFAULT '' " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'tblPublicationType')) " & _ " CREATE TABLE tblPublicationType (PublicationTypeID int PRIMARY KEY IDENTITY, strPublicationType nvarchar(100))" cn.execute(s) s = " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'National and major regional newspaper')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('National and major regional newspaper') " & _ " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'Newswire')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('Newswire') " & _ " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'Broadcast')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('Broadcast') " & _ " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'Specialist publications (not insurance)')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('Specialist publications (not insurance)') " & _ " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'Online publications, including blogs')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('Online publications, including blogs') " & _ " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'Other regional publications')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('Other regional publications') " & _ " if not(exists(SELECT * FROM tblPublicationType WHERE strPublicationType = 'Insurance Trade Press')) " & _ " INSERT INTO tblPublicationType (strPublicationType) VALUES ('Insurance Trade Press') " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'tblContentType')) " & _ " CREATE TABLE tblContentType (ContentTypeID int NOT NULL PRIMARY KEY IDENTITY, strContentType nvarchar(100))" cn.execute(s) s = " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Press Releases / Statement / White Paper')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Press Releases / Statement / White Paper') " & _ " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Event, speech or roundtable')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Event, speech or roundtable') " & _ " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Press event, inc. breakfast briefing')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Press event, inc. breakfast briefing') " & _ " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Interview')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Interview') " & _ " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Placed articles')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Placed articles') " & _ " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Off the record briefing')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Off the record briefing') " & _ " if not(exists(SELECT * FROM tblContentType WHERE strContentType = 'Media commentary or speculation / other')) " & _ " INSERT INTO tblContentType (strContentType) VALUES ('Media commentary or speculation / other') " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'tblBusinessPriority')) " & _ " CREATE TABLE tblBusinessPriority (BusinessPriorityID int NOT NULL PRIMARY KEY IDENTITY, strBusinessPriority nvarchar(100))" cn.execute(s) s = " if not(exists(SELECT * FROM tblBusinessPriority WHERE strBusinessPriority = 'No')) " & _ " INSERT INTO tblBusinessPriority (strBusinessPriority) VALUES ('No') " & _ " if not(exists(SELECT * FROM tblBusinessPriority WHERE strBusinessPriority = 'Yes')) " & _ " INSERT INTO tblBusinessPriority (strBusinessPriority) VALUES ('Yes') " & _ " if not(exists(SELECT * FROM tblBusinessPriority WHERE strBusinessPriority = 'Brand / Reputational Management')) " & _ " INSERT INTO tblBusinessPriority (strBusinessPriority) VALUES ('Brand / Reputational Management') " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = 'tblRegion')) " & _ " CREATE TABLE tblRegion (RegionID int NOT NULL PRIMARY KEY IDENTITY, strRegion nvarchar(100))" cn.execute(s) s = " if not(exists(SELECT * FROM tblRegion WHERE strRegion = 'US / CAN')) " & _ " INSERT INTO tblRegion (strRegion) VALUES ('US / CAN') " & _ " if not(exists(SELECT * FROM tblRegion WHERE strRegion = 'EMEA')) " & _ " INSERT INTO tblRegion (strRegion) VALUES ('EMEA') " & _ " if not(exists(SELECT * FROM tblRegion WHERE strRegion = 'ASIA')) " & _ " INSERT INTO tblRegion (strRegion) VALUES ('ASIA') " & _ " if not(exists(SELECT * FROM tblRegion WHERE strRegion = 'PAC')) " & _ " INSERT INTO tblRegion (strRegion) VALUES ('PAC') " & _ " if not(exists(SELECT * FROM tblRegion WHERE strRegion = 'LAC')) " & _ " INSERT INTO tblRegion (strRegion) VALUES ('LAC') " cn.execute(s) s = " if not(exists(SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = 'tblClient' AND COLUMN_NAME = 'blnSpecialFields' AND COLUMN_DEFAULT IS NOT NULL)) " & _ " ALTER TABLE tblClient ADD blnSpecialFields bit NOT NULL DEFAULT 0 " cn.execute(s) end if if len(request.QueryString("btnUpdate20111108")) > 0 then 'new update: ALTER CP.strHeadline => varchar(1000). UPDATE CP.strHeadline = CP.strCP - PJ 'ALTER TABLE tblClientPublication ALTER COLUMN strHeadline varchar(500) 'UPDATE tblClientPublication SET strHeadline = strClientPublication WHERE strHeadline = '' OR strHeadline is NULL cn.execute("ALTER TABLE tblClientPublication ALTER COLUMN strHeadline varchar(500)") cn.execute("UPDATE tblClientPublication SET strHeadline = strClientPublication WHERE strHeadline = '' OR strHeadline is NULL") end if 'eo20111108 'end of button events 'start of button spawning s = "SELECT Count(TABLE_NAME) as cnt " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE (TABLE_NAME = 'tblPublication_Web' AND COLUMN_NAME = 'blnArchived') OR (TABLE_NAME = 'tblPublication_TV' AND COLUMN_NAME = 'blnArchived') " & _ "OR (TABLE_NAME = 'tblPublication_Radio' AND COLUMN_NAME = 'blnArchived') OR (TABLE_NAME = 'tblPublication_Newspaper' AND COLUMN_NAME = 'blnArchived') " & _ "OR (TABLE_NAME = 'tblPublication_Magazine' AND COLUMN_NAME = 'blnArchived') " set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("cnt") < 5 then %> <% else %> <% 'response.Write request.QueryString & " - " s = "SELECT COUNT(PublicationID) as cnt FROM tblPublication WHERE blnArchived = 1" set rst = cn.execute(s) rst.movefirst if not rst.eof then response.Write "

Total archived publications: " & rst("cnt") & "" end if s = " SELECT COUNT(ID) as cnt " & _ " FROM (SELECT RIGHT('0000000000' + CAST(refPublicationID as varchar), 8) + RIGHT('0000000000' + CAST(SubPubID as varchar), 8) as ID, blnArchived FROM tblPublication_Magazine UNION SELECT RIGHT('0000000000' + CAST(refPublicationID as varchar), 8) + RIGHT('0000000000' + CAST(SubPubID as varchar), 8) as ID, blnArchived FROM tblPublication_Newspaper UNION SELECT RIGHT('0000000000' + CAST(refPublicationID as varchar), 8) + RIGHT('0000000000' + CAST(SubPubID as varchar), 8) as ID, blnArchived FROM tblPublication_Radio UNION SELECT RIGHT('0000000000' + CAST(refPublicationID as varchar), 8) + RIGHT('0000000000' + CAST(SubPubID as varchar), 8) as ID, blnArchived FROM tblPublication_TV UNION SELECT RIGHT('0000000000' + CAST(refPublicationID as varchar), 8) + RIGHT('0000000000' + CAST(SubPubID as varchar), 8) as ID, blnArchived FROM tblPublication_Web) as tblDerived" & _ " WHERE blnArchived = 1 " set rst = cn.execute(s) rst.movefirst if not rst.eof then response.Write "

Total archived sub-publications: " & rst("cnt") & "" end if end if end if s = " SELECT CHARACTER_MAXIMUM_LENGTH as url_lenght " & _ "FROM INFORMATION_SCHEMA.COLUMNS " & _ "WHERE TABLE_NAME = 'tblClientPublication' AND COLUMN_NAME = 'strURL' " set rst = cn.execute(s) rst.movefirst if not rst.eof then if rst("url_lenght") < 1000 then %>



<% end if end if ' s = " SELECT Count(TABLE_NAME) as cnt FROM INFORMATION_SCHEMA.COLUMNS " & _ ' " WHERE ( " & _ ' " TABLE_NAME = 'tblPublication' OR " & _ ' " TABLE_NAME = 'tblPublication_Tv' OR " & _ ' " TABLE_NAME = 'tblPublication_Radio' OR " & _ ' " TABLE_NAME = 'tblPublication_Newspaper' OR " & _ ' " TABLE_NAME = 'tblPublication_Magazine' OR " & _ ' " TABLE_NAME = 'tblPublication_Web') " & _ ' " AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NULL" ' set rst = cn.execute(s) ' rst.movefirst ' if not rst.eof then ' if rst("cnt") > 0 then %>





<% ' s = " SELECT * FROM INFORMATION_SCHEMA.COLUMNS " & _ ' " WHERE ( " & _ ' " TABLE_NAME = 'tblPublication' OR " & _ ' " TABLE_NAME = 'tblPublication_Tv' OR " & _ ' " TABLE_NAME = 'tblPublication_Radio' OR " & _ ' " TABLE_NAME = 'tblPublication_Newspaper' OR " & _ ' " TABLE_NAME = 'tblPublication_Magazine' OR " & _ ' " TABLE_NAME = 'tblPublication_Web') " & _ ' " AND COLUMN_NAME = 'blnArchived' AND COLUMN_DEFAULT IS NULL" ' set rst = cn.execute(s) ' response.Write "" ' For i = 0 To rst.Fields.Count -1 ' Response.Write "" ' Next ' while not rst.eof ' response.Write "" ' For i = 0 To rst.Fields.Count -1 ' Response.Write "" ' Next ' response.Write "" %>
<% ' rst.movenext ' wend ' end if ' end if 'start of button spawning %>

" & rst.Fields(i).Name & "

" & rst(i) & "