Online Conferences and Seminars

<%'if session("login") <> "" then%> <%'end if%>

<% set abc = Server.CreateObject("MSWC.AdRotator") %> <% = abc.GetAdvertisement("/b2b01/admin/banner/ctrl_brc_conferences1.txt") %>

<% set def = Server.CreateObject("MSWC.AdRotator") %> <% = def.GetAdvertisement("/b2b01/admin/banner/ctrl_brc_conferences2.txt") %>

<% set ghi = Server.CreateObject("MSWC.AdRotator") %> <% = ghi.GetAdvertisement("/b2b01/admin/banner/ctrl_brc_conferences3.txt") %>

<% if(date()<="5/12/01") then %> <%end if %>

<% 'session("con_str")="DSN=b2b;uid=sa;database=b2b_db" session("con_str")="DSN=b2bcast;uid=b2bcast;pwd=nin19-9;database=b2bcast;" set conuser = server.CreateObject("ADODB.Connection") set con_rst = server.CreateObject("ADODB.Recordset") conuser.Open session("con_str") sql="select *,dorder from pres_files,conference where conf_code in(select id from conference where cononline='1') and conf_page='on' and conference.id=pres_files.conf_code order by dorder" 'sql="select * from pres_files where conf_code in(select id from conference where cononline='1') and conf_page='on' order by conf_code,pres_code" con_rst.Open sql,conuser,adOpenDynamic %> <%while not con_rst.eof if oldconf <> con_rst("conf_code") then %> <% set find_rst=nothing end if if oldtopic <> con_rst("topic") then %> <%length_shown = "false"%> <% arr_spks=split(con_rst("sp_id"),",") %>


<% set find_rst=server.CreateObject("ADODB.Recordset") find_rst.Open "select * from conference where id=" & con_rst("conf_code") ,conuser,adOpenDynamic %> <% if find_rst("conimgpath") <> "" then %> ">" WIDTH="77" HEIGHT="44" BORDER="0"> <%else%> <%end if%>	"> <%=find_rst("conname")%> <%Response.Write find_rst("contheme")%> <%if find_rst("hl56k") <> "" or find_rst("hlbb") <> "" or find_rst("hlaudio") <> "" or find_rst("hlppt") <> "" then%> View Highlights: <%if find_rst("hlbb") <> "" then%> ">Broadband <% end if if find_rst("hl56k") <> "" then%> \| ">56K <% end if if find_rst("hlaudio") <> "" then%> \| ">Audio <% end if if find_rst("hlppt") <> "" then%> \| ">View Powerpoint <% end if if trim(find_rst("hllen")) <> "" then%> (<%=find_rst("hllen")%> minutes) <%end if%> <%end if%>

	<% for ctr_spks=lbound(arr_spks) to ubound(arr_spks) set find_speaker=server.CreateObject("ADODB.Recordset") sql="select sp_img from speakers where id in(select speakerid from topicrole where id=" & arr_spks(ctr_spks) & ")" 'Response.Write sql find_speaker.Open sql,conuser,adOpenDynamic if not find_speaker.EOF then if len(trim(find_speaker("sp_img"))) > 0 then %> " WIDTH="79" HEIGHT="51" BORDER="0"> <% else %> <% end if end if set find_speaker=nothing next%>	<% for ctr_spks=lbound(arr_spks) to ubound(arr_spks) set find_speaker=server.CreateObject("ADODB.Recordset") sql="select * from speakers where id in(select speakerid from topicrole where id=" & arr_spks(ctr_spks) & ")" 'Response.Write sql find_speaker.Open sql,conuser,adOpenDynamic if not find_speaker.EOF then %> <%=find_speaker("sp_name")%> <%=find_speaker("sp_desig")%> - <%=find_speaker("s_company")%> <% set find_speaker=nothing end if next%> <% set find_topic=server.CreateObject("ADODB.Recordset") sql="select topic_name from topic where id = " & con_rst("topic") 'Response.Write sql find_topic.Open sql,conuser,adOpenDynamic if find_topic("topic_name") <> "" then Response.Write find_topic("topic_name") & " " end if set find_topic=nothing end if%> <%if length_shown <> "true" then%> Length : <%=con_rst("duration")%> minutes <% length_shown = "true" show_bar = "false" end if if show_bar = "true" then Response.Write "\|" end if arr_pres=split(con_rst("pres_type"),"/") if arr_pres(0) = "Audio" then disp_pres = "Audio" elseif arr_pres(0) = "powerpoint" then disp_pres = "View Powerpoint" else disp_pres = arr_pres(1) end if %> "><%=disp_pres%> <% show_bar = "true" oldtopic=con_rst("topic") oldconf=con_rst("conf_code") con_rst.movenext wend set con_home=server.CreateObject("ADODB.Connection") set con_rst=server.CreateObject("ADODB.Recordset") %>

Download Windows Media Player