Cherry Hill American

<% Set objRS = Server.CreateObject("ADODB.Recordset") objRS.source = "SELECT * FROM master_season;" objRS.activeconnection = objConn objRS.CursorType = 3 ' Use 2 instead of adCmdTable objRS.LockType = 3 ' Use 3 instead of adLockOptimistic objRS.Open Session("current_season") = objRS("current_season") objRS.Close %> Cherry Hill American - News

<% Dim bodyString objRS.source = "SELECT * FROM master_news ORDER BY posted DESC;" objRS.activeconnection = objConn objRS.CursorType = 3 ' Use 2 instead of adCmdTable objRS.LockType = 3 ' Use 3 instead of adLockOptimistic objRS.Open If objRS.EOF Then Response.Write ("Welcome to the Cherry Hill American Little League News Page!") Else Do While Not objRS.EOF bodyString = Replace(objRS("body"),"

","") bodyString = Replace(objRS("body"),"

","") Response.Write ("" & objRS("title") & " (" & FormatDateTime(objRS("posted"), vbShortDate) & ")

" & bodyString & "

") objRS.MoveNext Loop End If objRS.Close %>