<% '*** WORK OUT IF THERE IS AN ADVERT FOR THIS FEATURE - ALWAYS ON PAGE 3 **** if request.QueryString("id") <> "" then sql = "select ID from drift_reader_campaigns where feature_id=" & request.QueryString("id") & " and status=1" 'response.Write sql set rsad = Conn.execute(sql) if not rsad.bof and not rsad.eof then 'advert exists for this feature dim advertEnable advertEnable=1 end if end if '*** WORK OUT IF THERE IS AN ADVERT FOR THIS FEATURE - ALWAYS ON PAGE 3 **** 'response.Write "advert:" & advertEnable if advertEnable<>1 then%> <% elseif advertEnable=1 then%> <% end if %>