<%@ LANGUAGE="VBScript" %> <% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open mithig1_rd SQLStmt = " select nvl(lastname_p,'-') lastname_p,nvl(firstname_p,'-') firstname_p,nvl(firstname_w,'-') firstname_w,nvl(lastname_w,'-') lastname_w,nvl(emailaddress_p,'-') emailaddress_p,nvl(emailaddress_w,'-') emailaddress_w from " SQLStmt = SQLStmt & " ((select x1.mit_id mit_id_p,x2.mit_id mit_id_w,x1.firstname firstname_p,x1.lastname lastname_p, " SQLStmt = SQLStmt & " x2.firstname firstname_w,x2.lastname lastname_w, x2.department_name, x2.student_year,x1.emailaddress emailaddress_p,x1.reg_status " SQLStmt = SQLStmt & " reg_status_p,x2.emailaddress emailaddress_w from " SQLStmt = SQLStmt & " (select sdp.mit_id,sdp.firstname firstname,sdp.lastname lastname,sdp.emailaddress,sep.reg_status " SQLStmt = SQLStmt & " from nauczyciel.student_directory sdp,nauczyciel.subject_enrollment_detail sep " SQLStmt = SQLStmt & " where sdp.mit_id=sep.mit_id and sep.term_code='2003SP' and sep.subject_id='8.01') x1, " SQLStmt = SQLStmt & " (select sdw.mit_id,sdw.first_name firstname, sdw.last_name lastname,sdw.department_name,sdw.student_year,sdw.email_address emailaddress " SQLStmt = SQLStmt & " from wareuser.student_directory@warehouse sdw,wareuser.subject_enrollment_detail@warehouse sew,wareuser.subject_offered@warehouse sow " SQLStmt = SQLStmt & " where sow.term_code='2003SP' and sow.subject_id='8.01' " SQLStmt = SQLStmt & " and sow.subject_key=sew.subject_key and sdw.mit_id=sew.mit_id) x2 " SQLStmt = SQLStmt & " where x1.mit_id=x2.mit_id(+)) " SQLStmt = SQLStmt & " UNION " SQLStmt = SQLStmt & " (select x1.mit_id mit_id_p,x2.mit_id mit_id_w,x1.firstname firstname_p,x1.lastname lastname_p, " SQLStmt = SQLStmt & " x2.firstname firstname_w,x2.lastname lastname_w, x2.department_name, x2.student_year,x1.emailaddress emailaddress_p,x1.reg_status reg_status_p, " SQLStmt = SQLStmt & " x2.emailaddress emailaddress_w from " SQLStmt = SQLStmt & " (select sdp.mit_id,sdp.firstname firstname,sdp.lastname lastname,sdp.emailaddress,sep.reg_status " SQLStmt = SQLStmt & " from nauczyciel.student_directory sdp,nauczyciel.subject_enrollment_detail sep " SQLStmt = SQLStmt & " where sdp.mit_id=sep.mit_id and sep.term_code='2003SP' and sep.subject_id='8.01') x1, " SQLStmt = SQLStmt & " (select sdw.mit_id,sdw.first_name firstname, sdw.last_name lastname,sdw.department_name,sdw.student_year,sdw.email_address emailaddress " SQLStmt = SQLStmt & " from wareuser.student_directory@warehouse sdw,wareuser.subject_enrollment_detail@warehouse sew,wareuser.subject_offered@warehouse sow " SQLStmt = SQLStmt & " where sow.term_code='2003SP' and sow.subject_id='8.01' " SQLStmt = SQLStmt & " and sow.subject_key=sew.subject_key and sdw.mit_id=sew.mit_id) x2 " SQLStmt = SQLStmt & " where x1.mit_id(+)=x2.mit_id and x1.mit_id is null)) " SQLStmt = SQLStmt & " order by lastname_p " ' response.write(SQLStmt & "
" ) Set RS = Connection.Execute(SQLStmt) %> <% Do While Not RS.EoF If (CStr(RS("lastname_p"))="-" Or CStr(RS("lastname_w"))="-") Then %> <% End If RS.MoveNext Loop Connection.Close %>

Firstname Physics	Lastname Physics	E-mail Physics	Firstname Warehouse	Lastname Warehouse	E-mail Warehouse
<%=CStr(RS("firstname_p"))%>	<%=CStr(RS("lastname_p"))%>	<%=CStr(RS("emailaddress_p"))%>	<%=CStr(RS("firstname_w"))%>	<%=CStr(RS("lastname_w"))%>	<%=CStr(RS("emailaddress_w"))%>