<% if (Request.QueryString("con_code") = 65) then %>
<% end if %>
<%
set conban = server.CreateObject("ADODB.Connection")
set conrst = server.CreateObject("ADODB.Recordset")
conban.Open session("con_str")
sql="select spb from conference where id=" & trim(Request.QueryString("con_code")) '& "'"
conrst.Open sql,conban,adOpenDynamic
if conrst.EOF then
%>
<%
else
if len(conrst("spb")) > 0 then
%>
<%
end if
end if
set conban = nothing
set conrst = nothing
%>
|
<%if len(trim(find_conf("header_img"))) > 0 then%>
|
||||
| <% set find_country=server.CreateObject("ADODB.Recordset") find_country.Open "select country_name from countries where country_code='" & find_conf("concountry") & "'",conuser,adOpenDynamic if find_conf("constdate") <> "" and find_conf("conenddate") <> "" then st_date = split(find_conf("constdate"),"/") end_date = split(find_conf("conenddate"),"/") if cint(st_date(1)) <> cint(end_date(1)) then Response.Write st_date(0) & " " & monthname(st_date(1)) & " - " & end_date(0) & " " & monthname(end_date(1)) & " " & end_date(2) & ", " else Response.Write "" & st_date(0) & " - " & end_date(0) & " " & monthname(end_date(1)) & " " & end_date(2) & ", " & "" end if if find_conf("concity") <> "" then Response.Write find_conf("concity") end if if not find_country.EOF then Response.Write ", " & find_country("country_name") end if end if %> | |||||
| <%=find_conf("condesc")%> | |||||
| View Highlights | |||||
| Length : <%=find_conf("hllen")%> minutes | |||||
| <% if find_conf("hlbb") <> "" then if len(trim(session("login"))) = 0 then %>Broadband<% else %>">Broadband<% end if end if if find_conf("hl56k") <> "" then if len(trim(session("login"))) = 0 then %> | 56K<% else %> | ">56K<% end if end if if find_conf("hlaudio") <> "" then if len(trim(session("login"))) = 0 then %> | Audio<% else %> | ">Audio<% end if end if if find_conf("hlppt") <> "" then if len(trim(session("login"))) = 0 then %> | View Powerpoint<% else %> | ">View Powerpoint<% end if end if %> | |||||
|
<%
arr_spks=split(rsuser("sp_id"),",")
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=" & trim(arr_spks(ctr_spks)) & ")"
find_speaker.Open sql,conuser,adOpenDynamic
if not find_speaker.EOF then
last_sp_name = find_speaker("sp_name")
if strgroupnames <> "" then
strgroupnames = strgroupnames & " " & "" & find_speaker("sp_name") & "" else strgroupnames = "" & find_speaker("sp_name") & "" end if if find_speaker("sp_desig") <> "" then strgroupnames = strgroupnames & ", " & find_speaker("sp_desig") end if if find_speaker("s_company") <> "" then strgroupnames = strgroupnames & ", " & find_speaker("s_company") end if if instr(1,displayedimage,find_speaker("sp_img"))=0 then if find_speaker("sp_img") <> "" then if displayedimage = "" then displayedimage = find_speaker("sp_img") else displayedimage = displayedimage & "-" & find_speaker("sp_img") end if %> <% else end if end if set find_speaker=nothing end if next %> |
<%=strgroupnames%> <% strgroupnames = "" end if%> <%if show_duration <> "true" then%> | ||||
|
<%
set find_topic=server.CreateObject("ADODB.Recordset")
sql="select topic_name,synopsis from topic where id = " & rsuser("topic")
'Response.Write sql
find_topic.Open sql,conuser,adOpenDynamic
if not find_topic.EOF then
if find_topic("topic_name") <> "" then
Response.Write find_topic("topic_name")
if trim(find_topic("synopsis")) <> "" then
Response.Write " " & find_topic("synopsis") end if end if end if %> |
|||||
| Length : <%=rsuser("duration")%> minutes | |||||
|
<%
show_duration = "true"
show_bar = "false"
%>
<%end if%>
<%
''''''''''''''''''''''''''''''''''PROCESSING THE LANGUAGE HERE ''''''''''''''''''''''
if rsuser("language") = "English" then
new_language = "false"
end if
if rsuser("language") <> "English" then
if new_language <> "true" then
Response.Write " " & rsuser("language") & " : " show_bar = "false" end if new_language="true" end if ''''''''''''''''''''PROCESSING THE PRESENTATION TYPE HERE'''''''''''''''''''''''''''' arr_pres=split(rsuser("pres_type"),"/") if arr_pres(0) = "Audio" then disp_pres = "Audio" elseif arr_pres(0) = "powerpoint" then 'Response.Write ubound(arr_spks) if ubound(arr_spks) > 0 then set find_speaker=nothing arrsp=split(rsuser("sp_id"),",") if instr(1,rsuser("sp_id"),",")=0 then set find_speaker=server.CreateObject("ADODB.Recordset") sql="select * from speakers where id in(select speakerid from topicrole where id=" & rsuser("sp_id") & ")" find_speaker.Open sql,conuser,adOpenDynamic disp_pres = "View Powerpoint" & " (" & find_speaker("sp_name") & ")" else disp_pres = "View Powerpoint" end if else disp_pres = "View Powerpoint" end if else disp_pres = arr_pres(1) end if '''''''''''''''''''''''''CONTROLLING THE SHOW BAR HERE '''''''''''''''''''''''''''' if show_bar = "true" then Response.Write "|" end if ''''''''''''ISSUING THE LOGIN SCREEN WINDOW DEPENDING ON THE USER STATUS''''''''''' if len(trim(session("login"))) = 0 then%> , <%=rsuser("topic")%>, '<%=disp_pres%>'); return false;"><%=disp_pres%> <%else%> "><%=disp_pres%> <% end if show_bar = "true" if show_duration <> "true" then%> |
|||||
| Return to the top | |||||
