<%@ Language=VBScript %> <% Option Explicit %> Clovis Unified School District

What School Would My Child Attend?

2008-09 School Year
You are in the 2008-09 School Year Database *

To access the school attendance locator, please enter your street name, and other optional information as desired in the fields below. Take note that the street name cannot include prefixes, such as E or W, or suffixes, such as ST, AVE or WAY, or the search will fail to locate your school of attendance. Select the "Search" button when you are ready to search the database for your school of attendance.

Example:

Street Number (optional): 555
Street Prefix (optional): W
Street Name (required): Main (No prefix or suffix)
Street Suffix (optional): AVE
Zip Code (optional): 93710 <% if request("name") = "" and request("number") = "" and request("prefix") = "" and request("suffix") = "" and request("zip") = "" then 'MODIFICATION ' The ACTION attribute needs to be modifed if you change the name of this page. ' For example, if your webpage is called "parentResources.html" you will need to rename that page to "parentResources.asp" ' Finally you will need to modify the ACTION attribute below to read -- response.write "

" ' You will need to make this change EVERY place you see a Tag. These places have been marked with 'MODIFCATION ' response.write selectsql & "Name= " & request("name") response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "" response.write "" response.write "
Street Number (optional):
Street Prefix (optional):
Street Name (required):(No prefix or suffix)
Street Suffix (optional):
Zip Code (optional):
" response.write "
(Please note: The 'Street Name' for 100 N. Main Street is 'Main'.
Do not include the prefix or suffix as part of the street name.)" response.write "
" else Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") Dim strRecFlag, strStreetFlag 'MODIFICATION ' The Data Source parameter below will need to be modified if you decide to place this script in a subdirectory of your web server's root folder objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=E:\lookup;" & _ "Extended Properties=""DBASE IV;"";" objConn.Open if request("name") = "" then strStreetFlag = "Missing" else strStreetFlag = "Present" end if ' Validate for numeric "number" and determine if odd or even dim strOddEven dim numOddEven strOddEven = "" if request("number") <> "" then strOddEven = "Invalid" if IsNumeric(request("number")) = TRUE then numOddEven = Int(request("number"))/2 if numOddEven - Int(numOddEven) <> 0 then strOddEven = "Odd" else strOddEven = "Even" end if end if end if ' response.write "strOddEven = " & strOddEven & "number=" & request("number") & "
" 'Don't want to do SQL query if name is missing if strOddEven <> "Invalid" and strStreetFlag <> "Missing" then ' response.write "in strOddEven loop" ' Create SQL string depending on the variables supplied dim selectsql selectsql = "SELECT * FROM strdir2.dbf WHERE Name LIKE '" & ucase(request("name")) & "%' " if request("number") <> "" then selectsql = selectsql & "AND [Odd/Even] = '" & strOddEven & "' " selectsql = selectsql & "AND FROM_ <= " & request("number") & " AND TO_ >= " & request("number") & " " end if if request("prefix") <> "" then selectsql = selectsql & "AND PFX Like '" & ucase(request("prefix")) & "%' " end if if request("suffix") <> "" then selectsql = selectsql & "AND TYPE Like '" & ucase(request("suffix")) & "%' " end if if request("zip") <> "" then selectsql = selectsql & "AND ZONE2 Like '" & ucase(request("zip")) & "%' " end if Dim objRS Set objRS = objConn.Execute(selectSQL) if objrs.eof then strRecFlag = "NotFound" else strRecFlag = "Found" end if else ' response.write "not in strOddEven loop" end if ' response.write "RecFlag= " & strRecFlag & " OddEven= " & strOddEven If strRecFlag = "NotFound" or strOddEven = "Invalid" or strStreetFlag = "Missing" then ' response.write "end of file loop" 'Print out form for a second search if strOddEven = "Invalid" then response.write "You specified an invalid Street Number. Please try again." else if strStreetFlag = "Missing" then response.write "You must specify a Street Name. Please try again." else response.write "There were no records found with those selections. It is possible
this address is outside of CUSD boundaries. Please try again." end if end if ' response.write selectsql response.write "
" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "" response.write "" response.write "
Street Number (optional):
Street Prefix (optional):
Street Name (required):(No prefix or suffix)
Street Suffix (optional):
Zip Code (optional):
" response.write "
(Please note: The 'Street Name' for 100 N. Main Street is 'Main'.
Do not include the prefix or suffix as part of the street name.)" response.write "
" else ' response.write "not end of file" ' response.write selectsql response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" response.write "" response.write "" response.write "
Street Number (optional):
Street Prefix (optional):
Street Name (required):(No prefix or suffix)
Street Suffix (optional):
Zip Code (optional):
" response.write "
(Please note: The 'Street Name' for 100 N. Main Street is 'Main'.
Do not include the prefix or suffix as part of the street name.)" response.write "
" 'Create variables dim fieldcount fieldcount = objrs.fields.count dim counter counter=0 dim strTemp response.write "


Note: House numbers are separated into odd and even values for
left vs. right hand sides of the street." response.write "

Make sure you are looking at the correct row for your house number!" & "

" response.write "" response.write "Results shown using this database are for informational purposes
and do not guarantee enrollment in a given school.


Search results:" ' response.write "Search results:" & "

" ' & strOddEven & " " & request("number") & " " & request("name") & 'Print column headers dim colName dim updatedColName for counter=0 to fieldcount-1 'Set Display Field Names select case objrs.fields(counter).name case "PFX" updatedColName="Prefix" case "NAME" updatedColName="Street Name" case "TYPE" updatedColName="Suffix" case "ODD/EVEN" updatedColName="Side" case "FROM_" updatedColName="From" case "TO_" updatedColName="To" case "ELEM_NAME" updatedColName="Elem. School" case "INT_NAME" updatedColName="Int. School" case "HIGH_NAME" updatedColName="High School" case "ZONE1" updatedColName="City" case "ZONE2" updatedColName="Zip" case else updatedColName=objrs.fields(counter).name end select strTemp=strTemp & "

" next 'For each record found, create a row in a table Do while not objRS.EOF strTemp=strTemp & "" 'Print each field in a " next strTemp=strTemp & "" objRS.movenext loop 'Print out table response.write strTemp response.write "
" & updatedColName & "
for counter=0 to fieldcount-1 strTemp=strTemp & "" & objrs(counter) & " 
" objRS.close set objRS=nothing objConn.close set objConn=nothing end if end if %>


** House numbers are separated into odd and even values for left vs. right sides of the street.
Make sure you are looking at the right row for your house number!

**Results shown using this database are for informational purposes and do not guarantee
enrollment in any given school

** For the 2008-09 School Year, Clovis North High School will not have grades 11 or 12. Students in those grades that live in the Clovis North Area will attend Buchanan High School.

*With the exception of a small area in the Maple Creek attendance area shown below that is now included in the Fort Washington Elementary attendance area.