<%@ LANGUAGE="VBScript" %> <% Option Explicit %> <% Set objConn = getConnection() objConn.Open "maritim_naba" strDomain = Request.ServerVariables("HTTP_HOST") Call chapterAssignments(strDomain) intID = Request.QueryString("id") '---- tblCalendar description ---- ' 0 calDate ' 1 calHeader ' 2 calTime ' 3 calCost ' 4 calDescription ' 5 calContact ' 6 calLocation ' 7 calCityState ' 8 calChapter ' 9 calShowNatl ' 10 calResContact ' 11 calSpecSignUp ' 12 calID '---- end description ---- strSQL = "SELECT calID, calDate, calHeader, calTime, calCost, calDescription, calContact, calLocation, calCityState, " & _ "calSpecSignUp, calPDFFile FROM tblCalendar WHERE calID = """ & intID & """;" Set rsInfo = objConn.Execute(strSQL) Dim strDate, strHeader, strTime Dim strCost, strDesc, strContact Dim strLocation, strCityState, strSpecSignUp,strPdfFile strDate = rsInfo(1): strHeader = rsInfo(2): strTime = rsInfo(3) strCost = rsInfo(4): strDesc = rsInfo(5): strContact = rsInfo(6) strLocation = rsInfo(7): strCityState = rsInfo(8): strSpecSignUp = rsInfo(9) strPdfFile = rsInfo(10) %> The Boston Chapter of NABA
<%= strChName %>

<%= isLoggedIn() %>



Event Calendar
<%= strHeader %>
<%= strCityState %>
<%= FormatDateTime(strDate,vbLongDate) %>
 
<% If Not IsNull(strSpecSignUp) Then %> Register for this event
<% Else %>
<% End If %> Print Flyer View PDF
<% If strTime <> "" Then %> <% End If %> <% If strCost <> "" Then %> <% End If %>
Time:   <%= strTime %>
Place:   <% If strLocation <> "" Then %> <%= strLocation %>
<% End If %> <%= strCityState %>
Event:   <%= strDesc %>
Cost:   <%= strCost %>

Contact: <%= strContact %>
<% If Not IsNull(strSpecSignUp) Then %> Register for this event
<% Else %>
<% End If %>


<%= showSponsors() %>
<% objConn.Close: Set objConn = Nothing Set rsInfo = Nothing %>