% 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 %>
| D41.org |
|
| Franklin Elementary School -- 350 Bryant Avenue Glen Ellyn, Illinois 60137 Ph: 630.790.6480 |