;d8aa63eed0084ac0
[If:c.==.'']
;Get a list of all the events
[QueryODBCSource]
DSNString=DSN=hunt_housing;UID=visprod;PWD=ragtop;
String=select * from events where complex_code='aeda0c68d0634f57'
[If:num_rows==1]
[SourceDataToFormData]
[MakeVariable]
Variable=%c
UseFieldValue=code
[FormData]
c=%c
[Else:]
[If:num_rows==0]
[MakeStringVariable]
Variable=#content
String=There are currently no events.
[OutputFormData]
TplFile=events.tpl
[Exit]
[EndIf:]
;Output a list of events
[SourceDataToString]
String=
Variable=#content
[OutputFormData]
TplFile=events.tpl
[Exit]
[EndIf:]
[EndIf:]
[AppendTemplateToVariable]
Template=select * from events where code=#c alpha#
Variable=#get_event
[QueryODBCSource]
DSNString=DSN=hunt_housing;UID=visprod;PWD=ragtop;
String=#get_event
[If:num_rows==0]
[MakeStringVariable]
Variable=#content
String=The requested event is invalid.
[OutputFormData]
TplFile=events.tpl
[Exit]
[EndIf:]
[MakeStringVariable]
Variable=#content
InputFile=template_events.tpl
[SourceDataToFormData]
;Get all the images
[AppendTemplateToVariable]
Template=select code, caption from event_images where event_code=#c alpha#
Variable=#get_images
[QueryODBCSource]
DSNString=DSN=hunt_housing;UID=visprod;PWD=ragtop;
String=#get_images
[If:num_rows!=0]
[SourceDataToString]
String=#content
BlockName=images
[Else:]
[RemoveTemplateBlock]
BlockName=images
String=#content
[EndIf:]
[FormDataToString]
String=#content
[OutputFormData]
TplFile=events.tpl