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

<%=FormatDateTime(Date(),1)%>

► Around the Site <%= strPageName %> <%= strPageBody %>