% Function timestamp() dim temptime temptime=now() newday=day(temptime) if len(newday)=1 Then newday="0" & newday End If newmonth=month(temptime) If len(newmonth)=1 Then newmonth="0" & newmonth End If timestamp=year(temptime) & "-" & newmonth & "-" & newday end Function Dim a Dim event_over event_over=0 Set rs_setup = Server.CreateObject("ADODB.Recordset") If len(request.querystring("id"))>0 Then sqlsetup="select title, talk_description,seminar_date,seminar_time, speaker,seminar.biography, seminar.photo, seminar_setup.photo as smp, seminar_setup.biography as smb, seminar_setup.moderator as sm from seminar, seminar_setup where seminar_setup.id=1 and seminar.approve=1" Else sqlsetup="select title, talk_description,seminar_date,seminar_time, speaker,seminar.biography, seminar.photo, seminar_setup.photo as smp, seminar_setup.biography as smb, seminar_setup.moderator as sm from seminar, seminar_setup where seminar_setup.id=1 and seminar.approve=1" End If rs_setup.Open sqlsetup,strCon title=rs_setup("title") talk_description=rs_setup("talk_description") a=split(rs_setup("seminar_date"),"-") dt=a(1) & "/" & a(2) & "/" & a(0) ti=FormatDateTime(dt,1) seminar_time=rs_setup("seminar_time") speaker=rs_setup("speaker") biography=rs_setup("biography") photo=rs_setup("photo") 'pull out moderator information moderator_photo=rs_setup("smp") moderator=rs_setup("sm") moderator_biography=rs_setup("smb") if timestamp() > rs_setup("seminar_date") Then event_over=1 ENd If %>
Autism Webinar Series
Date:
<%=ti%> Time: <%=seminar_time%> Pacific Standard Time Topic: <%=title%> | ![]() |
|
<%if event_over=0 then%>
Speaker: <%=speaker%> speaker bio | Moderator Chantal Sicile-Kira Moderator Bio |
|
|
Register
Free To Attend