<%@ LANGUAGE="VBScript" %> <% ' calendar.asp ' ASP code developed by Jake Anderson for Wendy Hodorowski. HTML code developed by Wendy Hodorowski%> <% ' Need to remove web end dates in code because of HGO restriction on stored procedures. SET recWALS = dbCon.EXECUTE("DELETE FROM Calendar WHERE webend < '" & DATE() & "'") SET recWALS = dbCon.EXECUTE("SELECT * FROM Calendar WHERE Active=1 AND webstart <='" & DATE() & "' order by edate") %> WALS Foundation > Calendar
<% IF recWALS.EOF THEN%>

There are no currently scheduled events.
Please check back or contact us for more information.

<%END IF%> <%WHILE NOT recWALS.EOF%>
<%=recWALS("Speaker")%>

Date: <%=recWALS("edate")%> 

  
  <%If recWALS("Photo") <> "" Then%> <%If recWALS("ptype") = "H" Then%> ')">" width="200" height="150" align="top"> <%Else%> ')">" width="150" height="200" align="top"> <%End If%> <%Else%>   <%End If%>

<%=recWALS("topic")%>
<%recWALS.movenext%> <%WEND%>

 

 

 

 

Calendar