<%
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
%>
Staff Directory :: Hadley Junior High School
