<% 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 ::