<%
set objconn = Server.CreateObject("ADODB.Connection")
objconn.open "Provider=SQLOLEDB;server=sqlsrv3\applications;Initial Catalog=Caseman;Persist Security Info=True;User ID=casemanweb;Password=abc123!"
strsql="select fcsem, fcyear, fcsdate, fOdate from semesters"
set objrs=server.createobject("ADODB.Recordset")
objrs.open strsql, objconn, adopenforwardonly, adlockreadonly, adcmdtext
CurSem=objrs("fcsdate")
strsql2="select count(*) as [CSTotal] from students where frendate >= (select fcsdate from semesters)"
set objrs2=server.createobject("ADODB.Recordset")
objrs2.open strsql2, objconn, adopenforwardonly, adlockreadonly, adcmdtext
strsql3="select C.fdisability, count(D.fdiagcode) as Total from disabilities D, discodes C, Students S, Diagcodes G where S.fsid = D.fsid and C.fdiscode = G.fdiscode and G.fdiagcode = D.fdiagcode and S.fRenDate >= (select fcsdate from semesters) group by fdisability"
set objrs3=server.createobject("ADODB.Recordset")
objrs3.open strsql3, objconn, adopenforwardonly, adlockreadonly, adcmdtext
%>
Disability Services, Texas A&M University
