<%
strQ = Request.ServerVariables("URL")
strQ = Request.ServerVariables("SERVER_NAME")
arrID=Split(strQ,".")
if ubound(arrID)>1 then
if arrID(0)="admin" and arrID(1) = "d41teachers" then
response.redirect("/teachers/admin/default.asp")
response.end
' elseif arrID(0)="www" and arrID(1) <> "d41teachers" then
' teacher=arrID(1)
elseif arrID(1)="d41teachers" then
teacher=arrID(0)
' else
' Server.Transfer("/default.asp")
' response.end
end if
'else
' Server.Transfer("/indexa.htm")
' response.end
end if
response.write teacher
if len(trim(teacher))>0 then
response.redirect ("/teachers/default.asp?t=" & teacher)
'response.write "/teachers/default.asp?t=" & teacher
'else
' response.write "NO"
end if
%>
<%
Dim dbconn
Set dbconn = Server.CreateObject("ADODB.Connection")
'dbconn.Open "dsn=web41;uid=web41;pwd=$$$d41793;DATABASE=d41"
'dbconn.Open "Provider=SQLOLEDB.1;Password=$$$d41793;Persist Security Info=True;User ID=web41;Initial Catalog=d41;Data Source=WEB41"
dbconn.Open "Driver=SQL Server;Server=WEB41;Database=d41;UID=web41;PWD=$$$d41793"
Dim SQL
%>
Student Handbook :: Hadley Junior High School
Keep in Touch! It is vitally important that parents and schools share information that is important to students. Please inform the school if there is a change in your child's health or residence or family situation. We must also be able to reach parents in times of emergency. If you move or change jobs, phone numbers or FAX numbers, please notify the school office to change the appropriate emergency forms.
