<% Session.LCID = 3081 Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "DSN=FPI;uid=fpi;pwd=FPI2007$" 'Get events from database NewDateVar = Split(Date, "/") eventSQL = "Select * from EVENTS, VENUES Where DATE_END >= '" & NewDateVar(1) & "/" & NewDateVar(0) & "/" & NewDateVar(2) & "' AND EVENTS.VENUE_CODE = VENUES.VENUE_CODE AND EVENT_CODE = '" & Request.QueryString("sID") & "'" Set rsEvent = oConn.Execute(eventSQL) %> <%If not rsEvent.EOF Then%>

13 Property Guys Seminar Information (<%=Trim(RsEvent.Fields("Event_Code"))%>)

<%=RsEvent.Fields("Event_Name")%>
<%=RsEvent.Fields("Event_Text")%>

<% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") strFilename = Server.MapPath(".\") & "\" & Trim(RsEvent.Fields("Event_Code")) & ".htm" If objFSO.FileExists(strFilename) Then Set file_name = objFSO.OpenTextFile(strFilename, 1) While Not file_name.AtEndOfStream Response.Write(file_name.ReadLine) & "
" Wend file_name.Close Set file_name = Nothing Else Response.Write "Agenda coming soon." End If Set objFSO = Nothing %>

<%Else%>

13 Property Guys Seminar Information

EVENT NOT FOUND!

Click here to try again, or contact us if you continue to have problems registering.

<%End If%>

For Bookings or Enquiries
Phone: 13MARK (13 6275)
or
Click here to email us