<%@ Language=VBScript %>
Penn State University Budget Office Home Page
<%Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "OpenBudgetSQL"
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = OBJdbConnection
adCmdStoredProc = 4
cmd.CommandType = adCmdStoredProc 'Tell compiler this is stored proc
cmd.CommandText = "CurrentDates"
Set Dates = cmd.Execute
%>
<% Dates.close %>
