Site Index | CDE Offices | Staff Directory

COFRS Sub-Recipient Report: FY 2010-11 Distributions by Vendor

Dim VarI varI = 0 Response.Write "

Note: You can use the alphabetical list below to limit the list of districts by first letter.

" For VarI = 1 to 26 Response.Write "" & CHR(VarI + 64) & " " & vbcrlf Next Response.Write "All

" Response.Write "

Please click on your district name below to access the 2010/11 Sub-Recipient Report in PDF format.

" ' INCOMING VARIABLES -----> dim varLetter varLetter=Request.QueryString("letter") Set ConnectionObj = Server.CreateObject("ADODB.Connection") ConnectionObj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\inetpub\Databases\CofrsSubRep.mdb;" & "Jet OLEDB:Database Password=mypassword" Set RSDistList = ConnectionObj.Execute("SELECT tbl_Vcodes.DistID, tbl_Vcodes.County, tbl_Vcodes.SchlDist, tbl_Vcodes.VendCode "_ & "FROM tbl_Vcodes " _ & "WHERE (((tbl_Vcodes.SchlDist) Like '" & varLetter & "%')) "_ & "ORDER BY tbl_Vcodes.SchlDist;") IF RSDistList.EOF THEN Response.Write "

There are no district names that begin with " & varLetter & ". Please try a different letter.




" & vbcrlf ELSE Response.Write "
    " Do While NOT RSDistList.EOF If (RSDistList("VendCode") = "840692787") or (RSDistList("VendCode") = "742044519") or (RSDistList("VendCode") = "840606640") or (RSDistList("VendCode") = "841242830") or (RSDistList("VendCode") = "841240658") then 'ignore Else Response.Write "
  • " & RSDistList("SchlDist") & ", " & RSDistList("county") & "
  • " & vbcrlf End IF RSDistList.MoveNext Loop Response.Write "
" End IF RSDistList.close set RSDistList=nothing ConnectionObj.Close Set ConnectionObj=nothing %>

Note: These documents are made available in the Adobe Acrobat PDF format. Acrobat allows the user to view and print the documents exactly as they look in hard copy. First-time users of this format will have to perform a one-time only installation of the free Adobe Acrobat Reader Software before they will be able to read or print a document. This format is used extensively on the Web and on this site, in particular.

For additional information please contact Adam Williams at: williams_a@cde.state.co.us or 303.866.6843

Quick Links

 

Contact Us

Colorado Dept. of Education
201 East Colfax Ave.
Denver, CO 80203
Phone: 303-866-6600
Fax: 303-830-0793
Contact CDE

Hours:
Mon - Fri 8 a.m. to 5 p.m.

Educator Licensing
Location & Hours