<% 'Set rslt = Server.CreateObject("ADODB.RecordSet") 'todayy = Year(time_datetime) 'todaym = Month(time_datetime) 'If(todaym < 10) Then ' todaym = "0"&todaym 'End if 'todayd = Day(time_datetime) 'If(todayd < 10) Then ' todayd = "0"&todayd 'End if 'today = todayy&todaym&todayd 'popexp = todayy&todaym&todayd 'qry = "select * from wbb_popup where popenable = '1' and popexpire >= '"&popexp&"'" 'rslt.open qry,adoconnect,3 'popjscode = "''" 'Do until rslt.EOF ' popjscode = popjscode&",'"&rslt("popbid")&"'" ' rslt.MoveNext 'Loop 'rslt.close() %> :: Challenge - HWASEUNG EXwill ::