<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim strPageName
Dim strScriptName
strSQL = "SELECT * FROM SafetyCalendar WHERE EventID = " & Request("ID")
blnSuccess = getRecordset(strSQL, Application("Connection_String"), rsContent, strErrorMsg)
If blnSuccess Then
strPageName = FormatDateTime(rsContent.Fields("EventDate").Value,1)
strPageBody = rsContent.Fields("Body").Value
End If
%>
St. Theresa School
