%@LANGUAGE="VBSCRIPT"%>
<%
Dim News
Dim News_numRows
Set News = Server.CreateObject("ADODB.Recordset")
News.ActiveConnection = MM_ClubSports_STRING
News.Source = "SELECT * FROM dbo.News ORDER BY Posted ASC"
News.CursorType = 0
News.CursorLocation = 2
News.LockType = 1
News.Open()
News_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 4
Repeat1__index = 0
News_numRows = News_numRows + Repeat1__numRows
%>
Penn State Club Sports Homepage
<%
News.Close()
Set News = Nothing
%>