<%
Dim strConnNewsNavbar
strConnNewsNavbar = "provider=SQLOLEDB.1;server=(local);database=cmsSQL;uid=sgray;pwd=tSOda7j76H"
Dim connNewsNavbar
Set connNewsNavbar = Server.CreateObject("ADODB.Connection")
With connNewsNavbar
.ConnectionString = strConnNewsNavbar
.CursorLocation = adUseClient
End With
connNewsNavbar.Open()
Dim commYears, rsYears
Set commYears = Server.CreateObject("ADODB.Command")
With commYears
.ActiveConnection = connNewsNavbar
.CommandType = adCmdStoredProc
.CommandText = "NewsYearsBySchool"
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 50, strPageID ) )
End With
Set rsYears = commYears.Execute
%>
