

---------- Start 10/30/2003 12:03:03 PM -----------

Comparing files C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp and C:\SOURCE\PORTAL\DEFAULT.ASP
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
    5:  <%
    6:   Response.Buffer=True 
    7:  On Error Resume next
***** C:\SOURCE\PORTAL\DEFAULT.ASP
    5:  <%
    6:  	Response.Buffer=True 
    7:  	Response.addHeader "pragma","no-cache"
    8:  	Response.addHeader "cache-control","private"
    9:  	Response.CacheControl = "no-cache"
   10:  	
   11:  
   12:  On Error Resume next
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
   22:  	Dim calendarArray(1000)
   23:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
   27:  	Dim calendarArray(1000)
   28:  	Dim legendArray(100)
   29:  
   30:  	Dim SerVerStatusArray(3,10) 
   31:  
   32:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
   35:  	Dim htmlTableAttributesNoBorder
   36:  	htmlTableAttributesHeader = "border=""0"" cellpadding=""1"" cellspacing=""1"" width=""850"" "
   37:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
   44:  	Dim htmlTableAttributesNoBorder
   45:  	htmlTableAttributesHeader = "border=""0"" cellpadding=""1"" cellspacing=""1"" width=""900"" "
   46:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
   38:  	Dim htmlTableAttributes
   39:  	htmlTableAttributes = "border=""1"" cellpadding=""1"" cellspacing=""1"" width=""850"" "
   40:  
   41:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
   47:  	Dim htmlTableAttributes
   48:  	htmlTableAttributes = "border=""1"" cellpadding=""1"" cellspacing=""1"" width=""900"" "
   49:  	htmlTableWidth = "900"
   50:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
   68:  	next	
   69:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
   77:  	next	
   78:  	for i = LBound(SerVerStatusArray) to UBound(SerVerStatusArray) step 1 
   79:  		SerVerStatusArray(i,0) = ""
   80:  	next	
   81:  	for i = LBound(legendArray) to UBound(legendArray) step 1 
   82:  		legendArray(i) = ""
   83:  	next	
   84:  
   85:  	SerVerStatusArray(0,0) = "https://nconcert.nelnet.net/aspfunctions"
   86:  	SerVerStatusArray(0,1) = "Nconcert Production"
   87:  
   88:  	SerVerStatusArray(1,0) = "http://qa1.nconcertsupport.nelnet.net/portal/serverstatus"
   89:  	SerVerStatusArray(1,1) = "Nconcert QA"
   90:  
   91:  	'SerVerStatusArray(0,0) = "http://den-300977l/ASPFunctions"
   92:  	'SerVerStatusArray(0,1) = "local"
   93:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  102:  
  103:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  126:  
  127:  	LinksMenuType = Request.Form("LinksMenuType")
  128:  	if isnull(LinksMenuType) or len(LinksMenuType) = 0 then
  129:  		LinksMenuType = Request.Cookies("LinksMenuType")
  130:  	end if
  131:  	if isnull(LinksMenuType) or len(LinksMenuType) = 0 then
  132:  		LinksMenuType = ""
  133:  	end if 
  134:  
  135:  	
  136:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  116:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript' SRC='cookies.js'></SCRIPT>
  117:  <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  118:  var popupWin = 0;
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  149:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript' SRC='cookies.js'></SCRIPT>
  150:  
  151:  
  152:  
  153:  <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
  154:  
  155:  if(window.event + "" == "undefined") event = null;
  156:  
  157:  var popupWin = 0;
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  139:  var apps = [ 
  140:  [1,1,1,1,"New Years Day","*", "Holiday"],
  141:  [4,7,4,7,"Independance day","*", "Holiday"],
  142:  [11,11,11,11,"Vetrans day","*", "Holiday"],
  143:  [25,12,25,12,"Christmas","*", "Holiday"]
  144:  <%	
  145:  	for i = LBound(calendarArray) to UBound(calendarArray) step 1 
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  178:  var apps = [ 
  179:  <%
  180:  	for i = LBound(calendarArray) to UBound(calendarArray) step 1 
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  150:  %>
  151:  ];
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  185:  %>
  186:  [31,12,31,12,"New Years Eve","*", "Holiday"] 
  187:  ];
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  160:  
  161:  function cleanUsedAppItemsArray()
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  196:  
  197:  function LinksMenuTypeChange()
  198:  {
  199:  	document.forms[0].action = 'Default.asp#top';
  200:  	document.forms[0].submit();
  201:  }
  202:  
  203:  function cleanUsedAppItemsArray()
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  245:  var descy=0
  246:  function popmousemove(e){descx=bw.ns4||bw.ns6?e.pageX:event.x; descy=bw.ns4||bw.ns6?e.pageY:event.y}
  247:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  287:  var descy=0
  288:  function popmousemove(e)
  289:  {
  290:  	descx=bw.ns4||bw.ns6?e.pageX:event.x; 
  291:  	descy=bw.ns4||bw.ns6?e.pageY:event.y;
  292:  
  293:  	var WindowHeight   = (bw.ie) ? document.body.clientHeight : window.innerHeight;
  294:  	var WindowWidth    = (bw.ie) ? document.body.clientWidth  : window.innerWidth;	
  295:  	var WindowTopEdge  = (bw.ie) ? document.body.scrollTop : window.pageYOffset;
  296:  	var aproxMiddleHeight = WindowTopEdge + (WindowHeight / 2);
  297:  	var aproxMiddleWidth = WindowWidth / 2;
  298:  
  299:  	window.status = "x = " + descx + ' y = ' + descy + ' aproxMiddleHeight ' + aproxMiddleHeight + ' ';
  300:  }
  301:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  253:  	var caption = "Events for ";
  254:  	   
  255:  	switch (term)
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  307:  	var caption = "Events for ";
  308:  	var exchangePassDate = '';' <a href="#" onClick="window.opener.ExchangeCalendar(' + "'" + (m - 1) + "/" + dayno + "/" + year +
  309:  "')" + '">[Outlook&nbsp;view]</a>';
  310:  
  311:  	window.status='calendar ' + term;
  312:  	switch (term)
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  284:  		}
  285:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  341:  		}
  342:  		case "HELP":
  343:  		{
  344:  			caption = " Calendar Help  ";
  345:  			break;
  346:  		}
  347:  
  348:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  290:  r>';
  291:  	myMessage += '\r\n<table summary="Events" <%=htmlTableAttributes%>>'
  292:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  353:  r>';
  354:  	myMessage += '\r\n<table summary="Events" border="1" cellpadding="1" cellspacing="1">'
  355:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  300:  				{
  301:  					myMessage += '\r\n<TR><TD valign="top" ' + setHTMLclass(app)+ '>' + apps[app][6] + '&nbsp;' + apps[app][4] + '</TD></TR>';
  302:  
  303:  				}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  363:  				{
  364:  					exchangePassDate = ' <a href="#" onClick="window.opener.ExchangeCalendar(' + "'" + m  + "/" + dayno + "/" + year + "')" + 
  365:  ">[Outlook&nbsp;view]</a>';
  366:  					myMessage += '\r\n<TR><TD nowrap valign="top"' + setHTMLclass(app)+ '>' + apps[app][6] + '&nbsp;</td><td valign="top"' + s
  367:  tHTMLclass(app)+ '>' + apps[app][4] +  '</TD></TR>';
  368:  				}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  315:  							usedAppItems[app] = 1;
  316:  							myMessage += '\r\n<TR><TD valign="top" ' + setHTMLclass(app)+ '>For day ' + d + '&nbsp;' + apps[app][6] + '&nbsp;' + app
  317:  [app][4] + '</TD></TR>';
  318:  						}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  380:  							usedAppItems[app] = 1;
  381:  							exchangePassDate = ' <a href="#" onClick="window.opener.ExchangeCalendar(' + "'" + m + "/" + d + "/" + year + "')" + '">
  382:  Outlook&nbsp;view]</a>';
  383:  							myMessage += '\r\n<TR><TD nowrap valign="top"' + setHTMLclass(app)+ '>For day ' + d + '&nbsp;</td><td nowrap valign="top
  384:  ' + setHTMLclass(app)+ '>' + apps[app][6] + '&nbsp;</td><td valign="top"' + setHTMLclass(app)+ '>' + apps[app][4] + '</TD></TR>
  385:  ;
  386:  						}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  332:  							usedAppItems[app] = 1;
  333:  							myMessage += '\r\n<TR><TD valign="top" ' + setHTMLclass(app)+ '>For day ' + d + '&nbsp;' + apps[app][6] + '&nbsp;' + app
  334:  [app][4] + '</TD></TR>';
  335:  						}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  400:  							usedAppItems[app] = 1;
  401:  							exchangePassDate = ' <a href="#" onClick="window.opener.ExchangeCalendar(' + "'" + m  + "/" + d + "/" + year + "')" + '"
  402:  [Outlook&nbsp;view]</a>';
  403:  							myMessage += '\r\n<TR><TD nowrap valign="top"' + setHTMLclass(app)+ '>For day ' + d + '&nbsp;</td><td nowrap valign="top
  404:  ' + setHTMLclass(app)+ '>' + apps[app][6] + '&nbsp;</td><td valign="top"' + setHTMLclass(app)+ '>' + apps[app][4] + '</TD></TR>
  405:  ;
  406:  						}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  351:  								usedAppItems[app] = 1;
  352:  								myMessage += '\r\n<TR><TD valign="top" ' + setHTMLclass(app)+ '>For '+ months[i - 1] + " " + d + '&nbsp;' + apps[app][6
  353:   + '&nbsp;' + apps[app][4] + '</TD></TR>';
  354:  							}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  422:  								usedAppItems[app] = 1;
  423:  								exchangePassDate = ' <a href="#" onClick="window.opener.ExchangeCalendar(' + "'" + i + "/" + d + "/" + year + "')" + '"
  424:  [Outlook&nbsp;view]</a>';
  425:  								myMessage += '\r\n<TR><TD nowrap valign="top"' + setHTMLclass(app)+ '>For '+ months[i - 1] + " " + d + '&nbsp;</td><td 
  426:  owrap valign="top"' + setHTMLclass(app)+ '>' + apps[app][6] + '&nbsp;</td><td valign="top"' + setHTMLclass(app)+ '>' + apps[app
  427:  [4] + '</TD></TR>';
  428:  							}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  359:  			}
  360:  		}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  433:  			}
  434:  			case "HELP":
  435:  			{
  436:  				if (app == 0)
  437:  				{
  438:  					myMessage += '\r\n<TR><TD nowrap valign="top"><li>Hold your mouse over the highlighted date to see the popup message. </li
  439:  '
  440:  					myMessage += '\r\n<li>or over the <img src="black_dimond.JPG" height="7" width="7" alt="see this week" border="0"> shows t
  441:  at weeks events.</li>'
  442:  					myMessage += '\r\n<li>or over the month name to show the events for the month</li>'
  443:  					myMessage += '\r\n<li>or over the "show all of <%=myYear%>" link</Li>'
  444:  					myMessage += '\r\n<li>In Popup mode of window, Click on the link where your mouse is currently hovering to scroll the wind
  445:  w.</li>'
  446:  					myMessage += '\r\n<li>In Popup mode of window and "leave open":'
  447:  					myMessage += '\r\n	<UL>'
  448:  					myMessage += '\r\n	<li>the behavior is to collect information from each mouse over event. In this way you can build the wi
  449:  dow content as you like it. '
  450:  					myMessage += '\r\n	<li>You may resize the window</li>'
  451:  					myMessage += '\r\n	<li>Right mouse click on the window to reveal the "Print" menu.</li>'
  452:  					myMessage += '\r\n	</UL>'
  453:  					myMessage += '\r\n</li>'
  454:  					myMessage += '\r\n<li> the &lt;&lt;&lt; and the &gt;&gt;&gt; allow the navigation of years.</li>'
  455:  					myMessage += '\r\n</TD></TR>'
  456:  					myMessage += '\r\n<TR><TD><b>Legend:</b><UL>'
  457:  <%
  458:  Response.write "// legendArray = " & LBound(legendArray) & " to " &  UBound(legendArray)
  459:  
  460:  	for i = LBound(legendArray) To UBound(legendArray) step 1
  461:  		if len(legendArray(i)) > 0 then
  462:  			Response.write vbcrlf & "myMessage += '\r\n" & legendArray(i)  & "';"
  463:  		end if 
  464:  	next
  465:  %>
  466:  					myMessage += '\r\n</UL></TD></TR>'
  467:  
  468:  				}
  469:  				break;
  470:  			}
  471:  		}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  368:  		{
  369:  			var WindowHeight   = (bw.ie) ? document.body.clientHeight : window.innerHeight;	
  370:  			var WindowTopEdge  = (bw.ie) ? document.body.scrollTop : window.pageYOffset;
  371:  	
  372:  			descx = 20;
  373:  			descy=WindowTopEdge + 1;
  374:  
  375:  			oDesc.writeIt(myMessage)
  376:  			oDesc.css.left=descx; 
  377:  			oDesc.css.top=descy;
  378:  			oDesc.css.visibility='visible';
  379:  		}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  479:  		{
  480:  			var WindowHeight   = (bw.ie) ? document.body.clientHeight : window.innerHeight;
  481:  			var WindowWidth    = (bw.ie) ? document.body.clientWidth  : window.innerWidth;	
  482:  			var WindowTopEdge  = (bw.ie) ? document.body.scrollTop : window.pageYOffset;
  483:  			var aproxMiddleHeight = WindowTopEdge + (WindowHeight / 2);
  484:  			var aproxMiddleWidth = WindowWidth / 2;
  485:  			var fromX = 10;
  486:  			var fromY = -20;
  487:  
  488:  			if(bw.ie5||bw.ie6) descy=descy+document.body.scrollTop
  489:  			var setX = descx+fromX;
  490:  			var setY = descy+fromY;
  491:  			setX = 1;
  492:  			setY = WindowTopEdge + 1;
  493:  			if (term == "HELP")
  494:  			{
  495:  				setX = 50;
  496:  			}
  497:  			oDesc.writeIt(myMessage)
  498:  			oDesc.css.left=setX; 
  499:  			oDesc.css.top=setY;
  500:  			oDesc.css.visibility='visible';
  501:  
  502:  		}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  387:  function popout(){
  388:  	if(oDesc)
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  510:  function popout(){
  511:  	window.status='';
  512:  	if(oDesc)
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  418:  		{
  419:  			htmlclass = ' class="' + htmlsched + '"';
  420:  			break;
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  542:  		{
  543:  			if (apps[app][11].length > 5)
  544:  			{
  545:  				htmlclass = ' style="' + apps[app][11] + '"';
  546:  			}
  547:  			else
  548:  			{
  549:  				htmlclass = ' class="' + htmlsched + '"';
  550:  			}
  551:  			break;
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  423:  		{
  424:  			if (apps[app][9] == 0)
  425:  			{
  426:  				htmlclass = ' class="' + milestoneWARN + '"';
  427:  			}
  428:  			if (apps[app][9] > 0)
  429:  			{
  430:  				htmlclass = ' class="' + milestoneHIGH + '"';
  431:  			}					
  432:  			if ( apps[app][8] != "1" )
  433:  			{
  434:  				htmlclass = ' class="' + milestoneHIGH + '"';
  435:  			}        
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  554:  		{
  555:  			if (apps[app][11].length > 5)
  556:  			{
  557:  				htmlclass = ' style="' + apps[app][11] + '"';
  558:  			}
  559:  			else
  560:  			{
  561:  				if (apps[app][9] == 0)
  562:  				{
  563:  					htmlclass = ' class="' + milestoneWARN + '"';
  564:  				}
  565:  				if (apps[app][9] > 0)
  566:  				{
  567:  					htmlclass = ' class="' + milestoneHIGH + '"';
  568:  				}					
  569:  				if ( apps[app][8] != "1" )
  570:  				{
  571:  					htmlclass = ' class="' + milestoneHIGH + '"';
  572:  				}
  573:  			}        
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  500:  		windowing += '<a href="#" onMouseOver="popup(' 
  501:  		windowing += "" + m + ", " + dayno + ", 'day')" + '"'
  502:  		windowing += ' onmouseout="popout()"'
  503:  		windowing += ' onclick="scrollPopup();return false;">'
  504:  		if (testDateRange(m,dayno,app) )
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  638:  		windowing += '<a href="#" onMouseOver="popup(' 
  639:  		windowing += "" + m + ", " + dayno + ", 'day');" + '"'
  640:  		windowing += ' onmouseout="popout()"'
  641:  		windowing += ' onclick="scrollPopup();return false;"'
  642:  		if (testDateRange(m,dayno,app) )
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  505:  		{
  506:  			retval = "<div " + setHTMLclass(app)+ " title='' width='<%=htmlTableWidth%>'>" + windowing + dayno + spacer + "</A></div>";;
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  643:  		{
  644:  			windowing += setHTMLclass(app)+ ">";
  645:  			retval = "<div " + setHTMLclass(app)+ " title='' width='<%=htmlTableWidth%>'>" + windowing + dayno + spacer + "</A></div>";;
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  508:  		}
  509:  	}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  647:  		}
  648:  		else
  649:  		{
  650:  			windowing += ">";
  651:  		}
  652:  	}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  553:     }
  554:     document.write("</tbody></table><p>");
  555:  }
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  696:     }
  697:     document.write("</tbody></table>");
  698:  }
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  633:  
  634:  function scrollPopup(){
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  776:  
  777:  function SiteWindow(pageName, pageURL)
  778:  {
  779:  	var WindowWidth    = (bw.ie) ? document.body.clientWidth  : window.innerWidth;
  780:  	var winparm = "titlebar=yes,toolbar=yes,status=yes,location=yes,menubar=yes,resizable=yes,copyhistory=no,scrollbars=yes,width=
  781:   + WindowWidth
  782:  	var siteWin = window.open("Redirect.asp?MYURL=" + pageURL, pageName, winparm );
  783:  	siteWin.focus();
  784:  
  785:  	document.forms[0].action = 'Default.asp#selectSite';
  786:  	document.forms[0].submit();
  787:  }
  788:  
  789:  function ExchangeCalendar(pDate)
  790:  {
  791:  
  792:  	var WindowWidth    = (bw.ie) ? document.body.clientWidth  : window.innerWidth;
  793:  	var winparm = "titlebar=yes,toolbar=yes,status=yes,location=yes,menubar=yes,resizable=yes,copyhistory=no,scrollbars=yes,width=
  794:   + WindowWidth
  795:  	var siteWin = window.open("Exchange.asp?myControl=Calendar&myItem=" + pDate, "Exchangeview", winparm );
  796:  	siteWin.focus();
  797:  
  798:  }
  799:  
  800:  function scrollPopup(){
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  680:  
  681:  
  682:  	var windowPopup = getCookie("windowPopup");
  683:  	if (windowPopup && windowPopup == document.forms[0].elements["windowPopup"][1].value)
  684:  	{
  685:  		document.forms[0].elements["windowPopup"][0].checked = false;
  686:  		document.forms[0].elements["windowPopup"][1].checked = true;
  687:  	}
  688:  	else
  689:  	{
  690:  		document.forms[0].elements["windowPopup"][0].checked = true;
  691:  		document.forms[0].elements["windowPopup"][1].checked = false;
  692:  	}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  846:  
  847:  	var LinksMenuType = getCookie("LinksMenuType");
  848:  	if ( ! LinksMenuType)
  849:  	{
  850:  		LinksMenuType = "FIXED"
  851:  	}
  852:  	switch (LinksMenuType)
  853:  	{
  854:  		case document.forms[0].elements["LinksMenuType"][1].value: 
  855:  		{
  856:  			document.forms[0].elements["LinksMenuType"][0].checked = false;
  857:  			document.forms[0].elements["LinksMenuType"][1].checked = true;
  858:  			document.forms[0].elements["LinksMenuType"][2].checked = false;
  859:  			document.forms[0].elements["LinksMenuType"][3].checked = false;
  860:  			break;
  861:  		}
  862:  		case document.forms[0].elements["LinksMenuType"][2].value: 
  863:  		{
  864:  			document.forms[0].elements["LinksMenuType"][0].checked = false;
  865:  			document.forms[0].elements["LinksMenuType"][1].checked = false;
  866:  			document.forms[0].elements["LinksMenuType"][2].checked = true;
  867:  			document.forms[0].elements["LinksMenuType"][3].checked = false;
  868:  			break;
  869:  		}
  870:  		case document.forms[0].elements["LinksMenuType"][3].value: 
  871:  		{
  872:  			document.forms[0].elements["LinksMenuType"][0].checked = false;
  873:  			document.forms[0].elements["LinksMenuType"][1].checked = false;
  874:  			document.forms[0].elements["LinksMenuType"][2].checked = false;
  875:  			document.forms[0].elements["LinksMenuType"][3].checked = true;
  876:  			break;
  877:  		}
  878:  		case document.forms[0].elements["LinksMenuType"][0].value: 
  879:  		{
  880:  			document.forms[0].elements["LinksMenuType"][0].checked = true;
  881:  			document.forms[0].elements["LinksMenuType"][1].checked = false;
  882:  			document.forms[0].elements["LinksMenuType"][2].checked = false;
  883:  			document.forms[0].elements["LinksMenuType"][3].checked = false;
  884:  			break;
  885:  		}
  886:  	}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  694:  
  695:  	var myWindow = bw.ie ? document.body.clientWidth  : window.innerWidth;
  696:  	
  697:  }
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  888:  
  889:  
  890:  	var windowPopup = getCookie("windowPopup");
  891:  	if (windowPopup && windowPopup == document.forms[0].elements["windowPopup"][1].value)
  892:  	{
  893:  		document.forms[0].elements["windowPopup"][0].checked = false;
  894:  		document.forms[0].elements["windowPopup"][1].checked = true;
  895:  	}
  896:  	else
  897:  	{
  898:  		document.forms[0].elements["windowPopup"][0].checked = true;
  899:  		document.forms[0].elements["windowPopup"][1].checked = false;
  900:  	}
  901:  
  902:  
  903:  	var myWindow = bw.ie ? document.body.clientWidth  : window.innerWidth;
  904:  
  905:  	InitializeExpandableListMenu();
  906:  
  907:  }
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  725:  
  726:  		setCookie("chaser", document.forms[0].elements["chaserCheckbox"].checked, cookieExpDate, getAppRootPath());
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  935:  
  936:  		var LinksMenuType = ""
  937:  		if (document.forms[0].elements["LinksMenuType"][0].checked)
  938:  		{
  939:  			LinksMenuType = document.forms[0].elements["LinksMenuType"][0].value;
  940:  		}
  941:  		if (document.forms[0].elements["LinksMenuType"][1].checked)
  942:  		{
  943:  			LinksMenuType = document.forms[0].elements["LinksMenuType"][1].value;
  944:  		}
  945:  		if (document.forms[0].elements["LinksMenuType"][2].checked)
  946:  		{
  947:  			LinksMenuType = document.forms[0].elements["LinksMenuType"][2].value;
  948:  		}
  949:  		if (document.forms[0].elements["LinksMenuType"][3].checked)
  950:  		{
  951:  			LinksMenuType = document.forms[0].elements["LinksMenuType"][3].value;
  952:  		}
  953:  
  954:  
  955:  
  956:  		setCookie("chaser", document.forms[0].elements["chaserCheckbox"].checked, cookieExpDate, getAppRootPath());
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  728:  		setCookie("windowPopup", windowPopup, cookieExpDate, getAppRootPath());
  729:  	}
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  958:  		setCookie("windowPopup", windowPopup, cookieExpDate, getAppRootPath());
  959:  		setCookie("LinksMenuType", LinksMenuType, cookieExpDate, getAppRootPath());
  960:  
  961:  	}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  766:  <td align="Right" valign="top" width="25%">
  767:  <a href="http://www.nelnet.net/" target="_new"><img src="http://www.nelnet.net/images/default_09.gif" alt="Nelnet" border="0"><
  768:  a>
  769:  </TD>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
  998:  <td align="Right" valign="top" width="25%">
  999:  <a href="http://www.nelnet.net/" target="_blank"
 1000:  		onMouseOver="window.status='nelnet Home'; return true;" 
 1001:  		onMouseOut="window.status=''; return true;"><img src="http://www.nelnet.net/images/default_09.gif" alt="Nelnet" border="0"></
 1002:  >
 1003:  </TD>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  819:  <br>
  820:  <a name="top">
  821:  <TABLE summary="internal page navigation and external links" <%=htmlTableAttributes%>>
  822:  <TR width="100%"><TD valign="top" nowrap>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1053:  <br>
 1054:  <br>Server date and time: <%=Now()%>
 1055:  <a name="top">
 1056:  
 1057:  <TABLE summary="link navigation types"  <%=htmlTableAttributes%>><TR width="100%"><td width="100%" align="center" nowrap>
 1058:  <a href="TableEditor.asp?AutoLogon=Links" target="_blank"
 1059:  		onMouseOver="window.status='Edit links'; return true;" 
 1060:  		onMouseOut="window.status=''; return true;">Edit Links</a>
 1061:  Menu type: &nbsp;
 1062:  <input type="radio" name="LinksMenuType" onClick="LinksMenuTypeChange()" value="FIXED">Fixed
 1063:  <input type="radio" name="LinksMenuType" onClick="LinksMenuTypeChange()" value="EXPANDLIST">Vertical lists
 1064:  <input type="radio" name="LinksMenuType" onClick="LinksMenuTypeChange()" value="EXPANDMENU">Hierarchy
 1065:  <input type="radio" name="LinksMenuType" onClick="LinksMenuTypeChange()" value="EXPANDMENU2">Vertical dropdown
 1066:  </TD></TR></TABEL>
 1067:  <TABLE summary="internal page navigation" <%=htmlTableAttributes%>>
 1068:  <TR width="100%"><TD valign="top" nowrap>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  823:  </A><B>Navigation</B>
  824:  <li><a href="#Milestones">Milestones</a></li>
  825:  <li><a href="#selectSite">Select a Site / School</a></li>
  826:  <li><a href="#Calendar">Calendar</a></li>
  827:  <li><a href="#PhoneList">Phone List</a></li>
  828:  <li><a href="#DenverConferenceRooms">Denver Conference Rooms</a></li>
  829:  <li><a href="#JacksonvilleConferenceRooms">Jacksonville Conference Rooms</a></li>
  830:  <li><a href="tableeditor.asp">Portal Manager</a></li>
  831:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1069:  </A><B>Navigation</B>
 1070:  <li><a href="#Milestones"
 1071:  		onMouseOver="window.status='Milestones: what is due.'; return true;" 
 1072:  		onMouseOut="window.status=''; return true;">Milestones</a></li>
 1073:  <li><a href="#selectSite"
 1074:  		onMouseOver="window.status='Application web sites: links by environment.'; return true;" 
 1075:  		onMouseOut="window.status=''; return true;">Select a Site / School</a></li>
 1076:  <li><a href="#Calendar"
 1077:  		onMouseOver="window.status='Calendar: what is up.'; return true;" 
 1078:  		onMouseOut="window.status=''; return true;">Calendar</a></li>
 1079:  <li><a href="#PhoneList"
 1080:  		onMouseOver="window.status='Phone list: details for contacting the team.'; return true;" 
 1081:  		onMouseOut="window.status=''; return true;">Phone List</a></li>
 1082:  <li><a href="#DenverConferenceRooms"
 1083:  		onMouseOver="window.status='Denver conference rooms: contacting those in a room in Denver.'; return true;" 
 1084:  		onMouseOut="window.status=''; return true;">Denver Conference Rooms</a></li>
 1085:  <li><a href="#JacksonvilleConferenceRooms"
 1086:  		onMouseOver="window.status='Jacksonville conference rooms: contactiong those in a room in Jacksonville.'; return true;" 
 1087:  		onMouseOut="window.status=''; return true;">Jacksonville Conference Rooms</a></li>
 1088:  <li><a href="#ServerStatus"
 1089:  		onMouseOver="window.status='Server status: selected summary information on a server. Detail is available.'; return true;" 
 1090:  		onMouseOut="window.status=''; return true;">Server Status</a></li>
 1091:  
 1092:  <li><a href="TableEditor.asp" target="_blank"
 1093:  		onMouseOver="window.status='Table editor: Manage content on the site.'; return true;" 
 1094:  		onMouseOut="window.status=''; return true;">Table Editor</a></li>
 1095:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  835:  <TD width="95%" bgcolor="grey"><a href="#top"><B>Navigation</B></A></TD>
  836:  <TD width="05%" bgcolor="grey"><a href="Javascript:void(0)" onclick="CloseChaser()"><b>X</b></a></TD>
  837:  </TR>
  838:  <TR><TD colspan="2" NoWrap><a href="#Milestones">Milestones</a></TD></TR>
  839:  <TR><TD colspan="2" NoWrap><a href="#selectSite">Select a Site / School</a></li></TD></TR>
  840:  <TR><TD colspan="2" NoWrap><a href="#Calendar">Calendar</a></li></TD></TR>
  841:  <TR><TD colspan="2" NoWrap><a href="#PhoneList">Phone List</a></li></TD></TR>
  842:  <TR><TD colspan="2"><a href="#DenverConferenceRooms">Denver Conference Rooms</a></li></TD></TR>
  843:  <TR><TD colspan="2"><a href="#JacksonvilleConferenceRooms">Jacksonville Conference Rooms</a></li></TD></TR>
  844:  <TR><TD colspan="2"><a href="tableeditor.asp">Portal Manager</a></li></TD></TR>
  845:  </Table>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1099:  <TD width="95%" bgcolor="grey"><a href="#top"><B>Navigation</B></A></TD>
 1100:  <TD width="05%" bgcolor="grey"><a href="Javascript:void(0)" onclick="CloseChaser()" TITLE="Close"><b>X</b></a></TD>
 1101:  </TR>
 1102:  <TR><TD colspan="2" NoWrap><a href="#Milestones"
 1103:  		onMouseOver="window.status='Milestones: what is due.'; return true;" 
 1104:  		onMouseOut="window.status=''; return true;">Milestones</a></TD></TR>
 1105:  <TR><TD colspan="2" NoWrap><a href="#selectSite"
 1106:  		onMouseOver="window.status='Application web sites: links by environment.'; return true;" 
 1107:  		onMouseOut="window.status=''; return true;">Select a Site / School</a></TD></TR>
 1108:  <TR><TD colspan="2" NoWrap><a href="#Calendar"
 1109:  		onMouseOver="window.status='Calendar: what is up.'; return true;" 
 1110:  		onMouseOut="window.status=''; return true;">Calendar</a></TD></TR>
 1111:  <TR><TD colspan="2" NoWrap><a href="#PhoneList"
 1112:  		onMouseOver="window.status='Phone list: details for contacting the team.'; return true;" 
 1113:  		onMouseOut="window.status=''; return true;">Phone List</a></TD></TR>
 1114:  <TR><TD colspan="2"><a href="#DenverConferenceRooms"
 1115:  		onMouseOver="window.status='Denver conference rooms: contacting those in a room in Denver.'; return true;" 
 1116:  		onMouseOut="window.status=''; return true;">Denver Conference Rooms</a></TD></TR>
 1117:  <TR><TD colspan="2"><a href="#JacksonvilleConferenceRooms"
 1118:  		onMouseOver="window.status='Jacksonville conference rooms: contactiong those in a room in Jacksonville.'; return true;" 
 1119:  		onMouseOut="window.status=''; return true;">Jacksonville Conference Rooms</a></TD></TR>
 1120:  <TR><TD colspan="2"><a href="#ServerStatus"
 1121:  		onMouseOver="window.status='Server status: selected summary information on a server. Detail is available.'; return true;" 
 1122:  		onMouseOut="window.status=''; return true;">Server Status</a></TD></TR>
 1123:  <TR><TD colspan="2"><a href="TableEditor.asp" target="_blank"
 1124:  		onMouseOver="window.status='Table editor: Manage content on the site.'; return true;" 
 1125:  		onMouseOut="window.status=''; return true;">Table Editor</a></TD></TR>
 1126:  </Table>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  848:  </TD>
  849:  
  850:  <%
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1129:  </TD>
 1130:  <TD valign="top" width="100%">
 1131:  <div id="divCont">
 1132:  <table summary="database external links" border="0" width="100%"><TR><TD>
 1133:  <%
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  869:  		i = 0
  870:  		saveLinkType = ""
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1152:  		i = 0
 1153:  		saveLinkNameLength = 0
 1154:  		saveLinkType = ""
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  871:  		catchLinkType = ""
  872:  		
  873:  		Set cmd = nothing
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1155:  		catchLinkType = ""
 1156:  		HR_arrays_root = "HM_Array1 = [" & vbcrlf & "[200]"
 1157:  		HR_arrays_children = vbcrlf & ""
 1158:  		Set cmd = nothing
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  881:  		mySQL = "stored procedure"
  882:  		if err.number = 0 then
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1166:  		mySQL = "stored procedure"
 1167:  		rowCounter = 0
 1168:  		menuCounter = 0
 1169:  		subMenuCounter = 0
 1170:  		menuDisplacement = 1
 1171:  		if err.number = 0 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  883:  			Do Until lbrs.EOF OR err.number <> 0
  884:  				catchLinkType = lbrs("LinkType")
  885:  				if saveLinkType = catchLinkType then
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1172:  			Do Until lbrs.EOF OR err.number <> 0
 1173:  				rowCounter = rowCounter + 1
 1174:  				Response.Write vbcrlf 
 1175:  				catchLinksMenuType = lbrs("LinksMenuType") 
 1176:  				if len(LinksMenuType) > 0 then
 1177:  					catchLinksMenuType = LinksMenuType
 1178:  				else
 1179:  					LinksMenuType = catchLinksMenuType 
 1180:  				end if 
 1181:  				catchLinkType = lbrs("LinksLinkTypeDescription")
 1182:  				catchLinkName = lbrs("LinkName") 
 1183:  				catchLinkURL = lbrs("LinkURL")
 1184:  				catchLinkTitle = lbrs("LinkTitle")  
 1185:  				if isnull(catchLinkName) or len(catchLinkName ) = 0 then
 1186:  					catchLinkName = "missing"
 1187:  				end if 
 1188:  				if isnull(catchLinkURL) or len(catchLinkURL) = 0 then
 1189:  					catchLinkURL = "Javascript:void(0)"
 1190:  				end if 
 1191:  				if isnull(LinkTitle) or len(LinkTitle) = 0 then
 1192:  					LinkTitle = ""
 1193:  				end if
 1194:  				if saveLinkNameLength < len(catchLinkName) then
 1195:  					saveLinkNameLength = len(catchLinkName) 
 1196:  				end if
 1197:  
 1198:  				catchLinkType = cleanHtml(catchLinkType)
 1199:  				catchLinkTitle = cleanHtml(catchLinkTitle)
 1200:  				catchLinkName = cleanHtml(catchLinkName)
 1201:  
 1202:  				if rowCounter = 1 then
 1203:  					select case Trim(Ucase(catchLinksMenuType))
 1204:  						Case "FIXED"
 1205:  							'skip
 1206:  						Case "EXPANDLIST"
 1207:  							' skip
 1208:  						Case "EXPANDMENU"
 1209:  							'SKIP 
 1210:  						Case "EXPANDMENU2"
 1211:  							Response.Write vbcrlf &  ""
 1212:  							Response.Write vbcrlf &  "<SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript' SRC='ExpandMenu.js'></SCRIPT>"
 1213:  							Response.Write vbcrlf &  ""
 1214:  							Response.Write vbcrlf &  "<SCRIPT LANGUAGE=""JavaScript"" TYPE=""text/javascript"">" &  vbcrlf &  vbcrlf 
 1215:  							Response.Write vbcrlf &  vbtab & "var menu = new Array();"
 1216:  							Response.Write vbcrlf &  vbtab & "var endDL = isDOM ? '<\/div>' : '<\/layer>';"
 1217:  							Response.Write vbcrlf &  vbtab & "var defOver = 'yellow', defBack = '#9ccb39', defBorder = '#9ccb39';"
 1218:  							Response.Write vbcrlf &  vbtab & "var defHeight = 22;"
 1219:  							Response.Write vbcrlf &  vbtab & "var defWidth = 300;"
 1220:  							Response.Write vbcrlf &  vbtab & "var newRoot = new Array();"
 1221:  							Response.Write vbcrlf &  vbtab & "var newRootIDX = 0;"
 1222:  
 1223:  							Response.Write vbcrlf & vbcrlf & vbtab & "menu[0] = new Array();"
 1224:  							Response.Write vbcrlf & vbtab & "menu[0][0] = new Menu('rootMenu', 0, 0, defWidth, defOver , defBack, defBorder);"
 1225:  							Response.Write vbcrlf &  vbtab & "newRoot[newRootIDX] = startDL('rootMenu', 0, 0, '100%', 17, 'hidden', defBack, null, 1
 1226:  0, '');"
 1227:  							Response.Write vbcrlf &  vbtab & "newRootIDX++;"
 1228:  					end select
 1229:  				end if
 1230:  				if trim(ucase(catchLinksMenuType)) = "EXPANDMENU" and rowCounter = 1 then
 1231:  				%>
 1232:  				<!--#include File = "HM_include.inc" -->
 1233:  
 1234:  				<A HREF="Javascript:void(0)" onMouseOver="HM_f_PopUp('elMenu1',event);window.status='Hierarchy expandding menu system'; ret
 1235:  rn true;" 
 1236:  					onMouseOut="HM_f_PopDown('elMenu1');window.status=''; return true;">
 1237:  					<b>Expanding Menus</b></A>&nbsp;
 1238:  				<%
 1239:  				end if
 1240:  
 1241:  				if saveLinkType = catchLinkType then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  888:  					if len(saveLinkType) > 0 then
  889:  						Response.Write "</TD>"
  890:  					end if
  891:  					Response.Write "<TD valign=""top"" nowrap><b>" & catchLinkType & "</b>"
  892:  					saveLinkType = catchLinkType
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1244:  					if len(saveLinkType) > 0 then
 1245:  						select case Trim(Ucase(catchLinksMenuType))
 1246:  							Case "FIXED"
 1247:  								Response.Write "</TD>"
 1248:  							Case "EXPANDLIST"
 1249:  								Response.Write vbcrlf & "</div><br>&nbsp;" & vbcrlf & "</div>"
 1250:  							Case "EXPANDMENU"
 1251:  								HR_arrays_children = HR_arrays_children  & vbcrlf & "]" & vbcrlf 
 1252:  							Case "EXPANDMENU2"
 1253:  								subMenuCounter = 1
 1254:  								Response.Write vbcrlf & ""
 1255:  						end select
 1256:  					end if
 1257:  					select case Trim(Ucase(catchLinksMenuType))
 1258:  						Case "FIXED"
 1259:  							Response.Write "<TD valign=""top"" nowrap>"
 1260:  							Response.Write vbcrlf & "<b>" & catchLinkType & "</b>"
 1261:  						Case "EXPANDLIST"
 1262:  							menuCounter = menuCounter + 1
 1263:  							Response.Write vbcrlf & "<div id=""divTop" & menuCounter & """ class=""clTop"">"
 1264:  							Response.Write "<a href=""#"" "
 1265:  							Response.Write " onMouseOver=""window.status='" & catchLinkType & ": click here to see the detail.'; return true;"" onMo
 1266:  seOut=""window.status=''; return true;"" "
 1267:  							Response.Write " onclick=""menu(" & (menuCounter - 1) & "); return false"" class=""clMain"">[" & catchLinkType & "]</a><
 1268:  r><br>"
 1269:  							Response.Write vbcrlf & vbtab & "<div id=""divSub" & menuCounter  & """ class=""clSub"">"
 1270:  						Case "EXPANDMENU"
 1271:  							menuCounter = menuCounter + 1
 1272:  							HR_arrays_root = HR_arrays_root &  ", " & vbcrlf & "[""" & catchLinkType & """,""Javascript:void(0)"",1,0,1]"
 1273:  							HR_arrays_children = HR_arrays_children & vbcrlf & "HM_Array1_" & menuCounter  & " = [" & vbcrlf & "[]"
 1274:  
 1275:  						Case "EXPANDMENU2"
 1276:  							menuCounter = menuCounter + 1
 1277:  							subMenuCounter = 1
 1278:  							Response.Write vbcrlf & vbtab & "newRoot[newRootIDX] = startDL('rootMenu" & menuCounter & "', " & menuDisplacement & ", 
 1279:  , 40, 17, defBack, defBack, null, 100, mouseProps(0, " & menuCounter & "));"
 1280:  							Response.Write vbcrlf & vbtab & "newRootIDX++;" & vbcrlf & vbcrlf
 1281:  
 1282:  							Response.Write vbcrlf & vbtab & "newRoot[newRootIDX] = '<span class=Item><b>[" & catchLinkType & "]</b></SPAN>' + endDL;
 1283:  
 1284:  							Response.Write vbcrlf &  vbtab & "newRootIDX++;" & vbcrlf & vbcrlf
 1285:  							Response.Write vbcrlf & vbtab & "menu[0][" & menuCounter& "] = new Item('" & catchLinkType & "', '" & Replace(catchLinkU
 1286:  L,"\","\\")  & "', '" & catchLinkTitle & "', defHeight, " & menuCounter& ");"
 1287:  							Response.Write vbcrlf & vbcrlf & vbtab & "menu[" & menuCounter& "] = new Array();"
 1288:  							Response.Write vbcrlf & vbcrlf & vbtab & "menu[" & menuCounter& "][0] = new Menu('" & catchLinkType & "Menu', 0, 22, def
 1289:  idth, defOver, defBack, defBorder);"
 1290:  							menuDisplacement = menuDisplacement + (len(catchLinkType) * 8)
 1291:  					end select
 1292:  
 1293:  					saveLinkType = catchLinkType
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  893:  				end if
  894:  				Response.Write "<LI><A href=""" & lbrs("LinkURL") & """ target=""_new"">" & lbrs("LinkName") & "</A></LI>"
  895:  				lbrs.MoveNext
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1294:  				end if
 1295:  				select case Ucase(catchLinksMenuType)
 1296:  					Case "FIXED"
 1297:  						Response.Write vbcrlf & vbtab & "<LI><A href=""" & catchLinkURL & """ target=""_blank"" title=""" & catchLinkTitle  & """
 1298:  onMouseOver=""window.status='" & catchLinkTitle  & "'; return true;"" onMouseOut=""window.status=''; return true;"">" & catchLi
 1299:  kName & "</A></LI>"
 1300:  					Case "EXPANDLIST"
 1301:  						Response.Write vbcrlf & vbtab & "<A class=""clSubb"" href=""" & catchLinkURL & """ target=""_blank"" title=""" & catchLin
 1302:  Title  & """ onMouseOver=""window.status='" & catchLinkTitle  & "'; return true;"" onMouseOut=""window.status=''; return true;"
 1303:  >" & catchLinkName & "</A><br>"
 1304:  					Case "EXPANDMENU"
 1305:  						' a \ in javascript is an escape thingi. 
 1306:  						catchLinkURL = Replace(catchLinkURL,"\","\\")
 1307:  						HR_arrays_children = HR_arrays_children & "," & vbcrlf & "['" & catchLinkName & " <br>" & catchLinkTitle  &  "','" & catc
 1308:  LinkURL & "',1,0,0]"
 1309:  					Case "EXPANDMENU2"
 1310:  						catchLinkURL = Replace(catchLinkURL,"\","\\")
 1311:  						Response.Write vbcrlf & vbtab & "menu[" & menuCounter & "][" & subMenuCounter & "] = new Item('" & catchLinkName & "', '"
 1312:  & catchLinkURL & "', '" & catchLinkTitle & "', defHeight, 0);"
 1313:  						subMenuCounter = subMenuCounter + 1
 1314:  				end select
 1315:  
 1316:  				lbrs.MoveNext
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  905:  
  906:  %>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1326:  
 1327:  		select case Ucase(catchLinksMenuType)
 1328:  			Case "EXPANDLIST"
 1329:  				Response.Write vbcrlf & "</div><br>&nbsp;" & vbcrlf & "</div>"
 1330:  			Case "EXPANDMENU" 
 1331:  				Response.Write vbcrlf &  "<SCRIPT LANGUAGE=""JavaScript"" TYPE=""text/javascript"">" &  vbcrlf &  vbcrlf 
 1332:  				Response.Write HR_arrays_root  & vbcrlf & "] " & vbcrlf 
 1333:  				Response.Write HR_arrays_children & vbcrlf & "] " & vbcrlf 
 1334:  				Response.Write vbcrlf & "</script>"
 1335:  
 1336:  			Case "EXPANDMENU2"
 1337:  				Response.Write vbcrlf & vbtab & "writeMenus(newRoot, endDL );"
 1338:  
 1339:  				Response.Write vbcrlf & "</script>"
 1340:  		end select
 1341:  
 1342:  %>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  909:  </TABLE>
  910:  <br><br><br><br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1345:  </TABLE>
 1346:  </div>
 1347:  </TD>
 1348:  </TR>
 1349:  </TABLE>
 1350:  
 1351:  <br><br><br><br>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  912:  <a name="Milestones"><font size="+1"><b>Milestones</b></font>
  913:  &nbsp;&nbsp;&nbsp;<a href="#top">back to top</a>
  914:  <br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1353:  <a name="Milestones"><font size="+1"><b>Milestones</b></font>
 1354:  &nbsp;&nbsp;&nbsp;<a href="#top">[back to top]</a>
 1355:  &nbsp;<a href="TableEditor.asp?AutoLogon=Milestones" target="_blank">[edit Milestones]</a>
 1356:  
 1357:  <br>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  917:  <tr>
  918:  <TH>Name</TH><TH>Description</TH><TH>DueDate</TH><TH>onTarget</TH>
  919:  </TR>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1360:  <tr>
 1361:  <TH>Name</TH><TH>Description</TH><TH>DueDate</TH><TH>onTarget</TH><TH>Status Description</TH>
 1362:  </TR>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  950:  		mySQL = "stored procedure"
  951:  
  952:  			Do Until lbrs.EOF OR err.number <> 0
  953:  				tdclass = "" 
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1393:  		mySQL = "stored procedure"
 1394:  		countMilestones = 0
 1395:  			Do Until lbrs.EOF OR err.number <> 0
 1396:  				countMilestones = countMilestones + 1
 1397:  				tdclass = "" 
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  955:  				dueDate = lbrs("DueDate")
  956:  				milestoneDays = lbrs("milestoneDays")
  957:  				if milestoneDays = 0 then
  958:  					tdclass = "class=""milestoneWARN"""
  959:  				end if
  960:  				if milestoneDays > 0 then
  961:  					tdclass = "class=""milestoneHIGH"""
  962:  				end if					
  963:  				if not onTarget then
  964:  					tdclass = "class=""milestoneHIGH"""
  965:  				end if
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1399:  				dueDate = lbrs("DueDate")
 1400:  				StatusDescription = lbrs("StatusDescription")
 1401:  				if isnull(StatusDescription) then
 1402:  					StatusDescription = ""
 1403:  				end if
 1404:  				StatusDescription = trim(StatusDescription)
 1405:  				StatusStyle = lbrs("StatusStyle")
 1406:  				if isnull(StatusStyle) then
 1407:  					StatusStyle = ""
 1408:  				end if
 1409:  				StatusStyle = trim(StatusStyle)
 1410:  				milestoneDays = lbrs("milestoneDays")
 1411:  				CompleteDate = lbrs("CompleteDate")
 1412:  				daySuffix = "s"
 1413:  				remainSuffix = ""
 1414:  				if milestoneDays = 1 then
 1415:  					daySuffix = ""
 1416:  					remainSuffix = "s"				
 1417:  				end if
 1418:  				if milestoneDays = -1 then
 1419:  					daySuffix = ""
 1420:  					remainSuffix = "s"
 1421:  				end if
 1422:  
 1423:  				if CompleteDate = "1/1/1900" then
 1424:  					if milestoneDays = 0 then
 1425:  						tdclass = "class=""milestoneWARN"""
 1426:  						if len(StatusDescription) > 1 and StatusDescription <> "&nbsp;"  then
 1427:  							StatusDescription = StatusDescription & "<br>" 
 1428:  						end if
 1429:  						StatusDescription = StatusDescription & "Milestone is due today."
 1430:  					
 1431:  					end if
 1432:  					if milestoneDays > 0 then
 1433:  						tdclass = "class=""milestoneHIGH"""
 1434:  						if len(StatusDescription) > 1 and StatusDescription <> "&nbsp;"  then
 1435:  							StatusDescription = StatusDescription  & "<br>"
 1436:  						end if
 1437:  						StatusDescription = StatusDescription  & "Milestone is " & cstr(milestoneDays) & " day" & daySuffix & " past the due date
 1438:  "
 1439:  					end if	
 1440:  					if milestoneDays < 0 then
 1441:  						if len(StatusDescription) > 1 and StatusDescription <> "&nbsp;"  then
 1442:  							StatusDescription = StatusDescription  & "<br>"
 1443:  						end if
 1444:  						StatusDescription = StatusDescription &  cstr(milestoneDays * -1 ) & " day" & daySuffix & " remain" & remainSuffix & "." 
 1445:  
 1446:  					end if					
 1447:  					if not onTarget then
 1448:  						tdclass = "class=""milestoneHIGH"""
 1449:  						if len(StatusDescription) > 1 and StatusDescription <> "&nbsp;"  then
 1450:  							StatusDescription = StatusDescription & "<br>" 
 1451:  						end if
 1452:  						StatusDescription = StatusDescription & "<b>Milestone is not on target.</b>"
 1453:  					end if
 1454:  				end if
 1455:  				if len(trim(StatusStyle)) > 0 then
 1456:  					tdclass = "style=""" & StatusStyle & """"
 1457:  				end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  970:  				Response.Write "<TD valign=""top"" " & tdclass & ">" & onTarget & "</TD>"
  971:  
  972:  
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1462:  				Response.Write "<TD valign=""top"" " & tdclass & ">" & onTarget & "</TD>"
 1463:  				Response.Write "<TD valign=""top"" " & tdclass & ">" & StatusDescription 
 1464:  				if CompleteDate = "1/1/1900" then 
 1465:  				' skip
 1466:  				else
 1467:  					Response.Write "<br>Completed on: "  & CompleteDate 
 1468:  				end if
 1469:  				Response.Write "</TD>"
 1470:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  975:  			Loop
  976:  
  977:  		if err.number <> 0 then
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1473:  			Loop
 1474:  			if countMilestones = 0 then
 1475:  				Response.Write "<TR>"
 1476:  				Response.Write "<TD valign=""top"" colspan=""5"">No milestones to report.</TD>"
 1477:  				Response.Write "</TR>"
 1478:  
 1479:  			end if
 1480:  		if err.number <> 0 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
  992:  <a name="selectSite"><font size="+1"><b>Select a Site / School</b></font>
  993:  &nbsp;&nbsp;&nbsp;<a href="#top">back to top</a>
  994:  <br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1495:  <a name="selectSite"><font size="+1"><b>Select a Site / School</b></font>
 1496:  &nbsp;&nbsp;&nbsp;<a href="#top">[back to top]</a>&nbsp;<a href="TableEditor.asp?AutoLogon=Sites" target="_blank">[edit Sites]<
 1497:  a>
 1498:  
 1499:  <br>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1033:  				SchoolName = lbrs(1)
 1034:  				Response.Write "<TR>"
 1035:  				for i = LBound(sitearray) to UBound(sitearray) step 1 
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1538:  				SchoolName = lbrs(1)
 1539:  				Response.Write vbcrlf & "<TR>"
 1540:  				for i = LBound(sitearray) to UBound(sitearray) step 1 
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1036:  					if Len(Trim(sitearray(i))) > 0 then
 1037:  						Response.Write "<TD><A HREF=""" & sitearray(i) & "/InitialFrameSet.aspx?schoolid=" &  SchoolID & """"
 1038:  						Response.Write " TARGET=""_NEW"">" & SchoolName  & "</A></TD>"
 1039:  					end if
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1541:  					if Len(Trim(sitearray(i))) > 0 then
 1542:  						Response.Write vbcrlf & vbtab &  "<TD><A HREF=""#"" OnClick=""SiteWindow('ID" & SchoolID & i & "', '" & sitearray(i) & "/
 1543:  nitialFrameSet.aspx?schoolid=" &  SchoolID & "'); return false;"" "
 1544:  						Response.Write ">" & SchoolName  & "</A></TD>"
 1545:  					end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1056:  				Response.Write "<TD><A HREF=""" & supportarray(i) & "/Support.aspx" & """"
 1057:  				Response.Write " TARGET=""_NEW"">" & supportarray(i) & "</A></TD>"
 1058:  			end if
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1562:  				Response.Write "<TD><A HREF=""" & supportarray(i) & "/Support.aspx" & """"
 1563:  				Response.Write " TARGET=""_blank"">" & supportarray(i) & "</A></TD>"
 1564:  			end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1088:  <a name="Calendar"><font size="+1"><b>Calendar</b></font>
 1089:  &nbsp;&nbsp;&nbsp;<a href="#top">back to top</a>
 1090:  <TABLE summary="Calendar options" <%=htmlTableAttributes%>>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1594:  <a name="Calendar"><font size="+1"><b>Calendar</b></font>
 1595:  &nbsp;&nbsp;&nbsp;<a href="#top">[back to top]</a>&nbsp;<a href="TableEditor.asp?AutoLogon=Calendar" target="_blank">[edit Cale
 1596:  dar]</a>
 1597:  
 1598:  <TABLE summary="Calendar options" <%=htmlTableAttributes%>>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1092:  <td>
 1093:  <li>Hold your mouse over the highlighted date to see the popup message. </li>
 1094:  <li>or over the <img src="black_dimond.JPG" height="7" width="7" alt="see this week" border="0"> shows that weeks events.</li>
 1095:  <li>or over the month name to show the events for the month</li>
 1096:  <li>or over the "show all of <%=myYear%>" link</Li>
 1097:  <li>In Popup mode of window, Click on the link where your mouse is currently hovering to scroll the window.</li>
 1098:  <li>In Popup mode of window and 'leave open':
 1099:  	<UL>
 1100:  	<li>the behavior is to collect information from each mouse over event. In this way you can build the window content as you lik
 1101:   it. 
 1102:  	<li>You may resize the window</li>
 1103:  	<li>Right mouse click on the window to reveal the 'Print' menu.</li>
 1104:  	</UL>
 1105:  </li>
 1106:  
 1107:  
 1108:  <li> the &lt;&lt;&lt; and the &gt;&gt;&gt; allow the navigation of years.</li>
 1109:  </td>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1600:  <td>
 1601:  <a href="#" onMouseOver="cleanUsedAppItemsArray();popup(1, 1, 'HELP')"
 1602:  onmouseout="popout()"
 1603:  onclick="scrollPopup();return false;">
 1604:  <b>[HELP]</b></A>
 1605:  </td>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1121:  <input type="checkbox" name="chaserCheckbox" value="chaserCheckbox" <%=chaserCheckboxChecked%>  onChange="ChangeChaser()">
 1122:  </TD>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1617:  <input type="checkbox" name="chaserCheckbox" value="chaserCheckbox" <%=chaserCheckboxChecked%>  onChange="ChangeChaser()">
 1618:  
 1619:  </TD>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1233:  <a name="PhoneList"><font size="+1"><b>Phone List</b></font>
 1234:  &nbsp;&nbsp;&nbsp;<a href="#top">back to top</a>
 1235:  <br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1730:  <a name="PhoneList"><font size="+1"><b>Phone List</b></font>
 1731:  &nbsp;&nbsp;&nbsp;<a href="#top">[back to top]</a> 
 1732:  &nbsp;&nbsp;<A href="http://home.nelnet.net/phone/nelnet/index.asp" target="_blank">[Intranet Phone]</A>
 1733:  &nbsp;&nbsp;<A href="https://owa.unipac.com/exchange/logon.asp" target="_blank">[Outlook Email]</A>
 1734:  
 1735:  
 1736:  &nbsp;<a href="TableEditor.asp?AutoLogon=ContactList" target="_blank">[edit ContactList]</a>
 1737:  
 1738:  <br>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1307:  </TABLE>
 1308:  <br><br><br><br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1810:  </TABLE>
 1811:  
 1812:  <br><br><br><br>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1309:  <a name="DenverConferenceRooms"><font size="+1"><b>Denver Conference Rooms</b></font>
 1310:  &nbsp;&nbsp;&nbsp;<a href="#top">back to top</a>
 1311:  <br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1813:  <a name="DenverConferenceRooms"><font size="+1"><b>Denver Conference Rooms</b></font>
 1814:  &nbsp;&nbsp;&nbsp;<a href="#top">[back to top]</a>
 1815:  &nbsp;<a href="TableEditor.asp?AutoLogon=DenverConferenceRooms" target="_blank">[edit Rooms]</a>
 1816:  &nbsp;<a href="http://home.nelnet.net/facilities/Scheduling%20Conference%20Room.pdf" target="_blank">[Room Reservation detailed
 1817:  instructions]</a>
 1818:  <br>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1352:  <a name="JacksonvilleConferenceRooms"><font size="+1"><b>Jacksonville Conference Rooms</b></font>
 1353:  &nbsp;&nbsp;&nbsp;<a href="#top">back to top</a>
 1354:  <br>
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1859:  <a name="JacksonvilleConferenceRooms"><font size="+1"><b>Jacksonville Conference Rooms</b></font>
 1860:  &nbsp;&nbsp;&nbsp;<a href="#top">[back to top]</a>
 1861:  &nbsp;<a href="TableEditor.asp?AutoLogon=JacksonvilleConferenceRoom" target="_blank">[edit Rooms]</a>
 1862:  &nbsp;<a href="http://home.nelnet.net/facilities/Scheduling%20Conference%20Room.pdf" target="_blank">[Room Reservation detailed
 1863:  instructions]</a>
 1864:  
 1865:  <br>
*****

Resync Failed.  Files are too different.
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Default.asp
 1410:  }
 1411:  </SCRIPT>
 1412:  </table>
 1413:  </form>
 1414:  </BODY>
 1415:  </HTML> 
***** C:\SOURCE\PORTAL\DEFAULT.ASP
 1921:  }
 1922:  
 1923:  </SCRIPT>
 1924:  
 1925:  <%
 1926:  select case Trim(Ucase(catchLinksMenuType))
 1927:  		Case "FIXED"
 1928:  %>
 1929:  
 1930:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>
 1931:  
 1932:  function InitializeExpandableListMenu()
 1933:  {
 1934:  	// PLACEHOLDER
 1935:  }
 1936:  </script>
 1937:  <%
 1938:  		Case "EXPANDLIST"
 1939:  %>
 1940:  
 1941:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript' SRC='ExpandMenuList.js'></SCRIPT>
 1942:  
 1943:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>
 1944:  
 1945:  function InitializeExpandableListMenu()
 1946:  {
 1947:  // initialize expanding windows.
 1948:  
 1949:  	oTop=new Array();
 1950:  
 1951:  <%
 1952:  	for iiii = 1 to menuCounter step 1
 1953:  		Response.Write vbcrlf & vbtab & "oTop[" & (iiii - 1) & "]=new makeMenu('divTop" & iiii & "','divCont');"
 1954:  	next
 1955:  %>
 1956:  
 1957:  	oSub=new Array()
 1958:  <%
 1959:  	for iiii = 1 to menuCounter step 1
 1960:  		Response.Write vbcrlf & vbtab & "oSub[" & (iiii - 1) & "]=new makeMenu('divSub" & iiii & "','divCont.document.divTop" & iiii 
 1961:  & "');"
 1962:  		Response.Write vbcrlf & vbtab & "oSub[" & (iiii - 1) & "].hideIt();"
 1963:  	next
 1964:  %>
 1965:  
 1966:  	for(i=0;i<oSub.length;i++)
 1967:  	{ 
 1968:  		oSub[i].hideIt() 
 1969:  	}
 1970:  	menuPositioning(false);
 1971:  }
 1972:  </SCRIPT>
 1973:  <%
 1974:  	Case "EXPANDMENU"
 1975:  %>
 1976:  
 1977:  <SCRIPT LANGUAGE="JavaScript1.2" SRC="HM_Loader.js" TYPE='text/javascript'>
 1978:  </SCRIPT>
 1979:  
 1980:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>
 1981:  
 1982:  function InitializeExpandableListMenu()
 1983:  {
 1984:  	// place holder
 1985:  }
 1986:  </SCRIPT>
 1987:  
 1988:  <%
 1989:  	Case "EXPANDMENU2"
 1990:  %>
 1991:  
 1992:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>
 1993:  
 1994:  function InitializeExpandableListMenu()
 1995:  {
 1996:  // Show root menu command 
 1997:  	eval(docObj + menu[0][0].id + styObj + '.visibility = "visible"');
 1998:  
 1999:  }
 2000:  // Menu system.
 2001:  if (isNS4) document.captureEvents(Event.CLICK);
 2002:  document.onclick = clickHandle;
 2003:  
 2004:  function clickHandle(evt) 
 2005:  {
 2006:  	if (isNS4) document.routeEvent(evt);
 2007:  	hideAllBut(0);
 2008:  }
 2009:  
 2010:  
 2011:   
 2012:  // This is just the moving command for the example.
 2013:  function moveRoot() 
 2014:  {
 2015:  	rM = eval(docObj + menu[0][0].id + styObj);
 2016:  	if (parseInt(rM.top) < 40) rM.top = 40;
 2017:  	else rM.top = 0;
 2018:  }
 2019:  </SCRIPT>
 2020:  
*****

Comparing files C:\SOURCE\PORTAL\TESTINGSAVEAREA\Exchange.asp and C:\SOURCE\PORTAL\EXCHANGE.ASP
Resync Failed.  Files are too different.
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Exchange.asp
    1:  <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="Microsoft CDO for Exchange 2000 Library" -->
    2:  <!--METADATA TYPE="typelib" UUID="CD001000-8B95-11D1-82DB-00C04FB1625D" NAME="Microsoft CDO Workflow Objects for Microsoft Exch
    3:  nge"-->
    4:  <!--METADATA TYPE="typelib" UUID="25150F00-5734-11D2-A593-00C04F990D8A" NAME="Microsoft CDO for Exchange Management Library"-->
    5:  
    6:  <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
    7:  <HTML>
    8:  <HEAD>
    9:  <TITLE>Exchange interface</TITLE>
   10:  </HEAD>
   11:   <BODY>
   12:    <H1>Test the METADATA Directive Page</H1>
   13:    <p>Here are some of the field name string constants within CDOEX type library :</p>
   14:  
   15:    <H4>Some CDO for Exchange 2000 Server String Constants</H4>
   16:    <TABLE>
   17:     <TR><TD><b>cdoTo</b>   </TD><TD><%=cdoTo%>    </TD></TR>
   18:     <TR><TD><b>cdoFrom</b> </TD><TD><%=cdoFrom%>  </TD></TR>
   19:     <TR><TD><b>cdoUTF_8</b></TD><TD><%=cdoUTF_8%></TD></TR>
   20:    </TABLE>
   21:  
   22:    <H4>Some CDO for Exchange Enumeration Constants</H4>
   23:    <TABLE>
   24:     <TR><TD><b>cdoSendUsingPickup</b></TD><TD><%=cdoSendUsingPickup%>  </TD></TR>
   25:     <TR><TD><b>cdoSendUsingPort</b></TD><TD><%=cdoSendUsingPort%></TD></TR>
   26:    </TABLE>
   27:  
   28:    <H4>Some ADO Enumeration Constants</H4>
   29:    <TABLE>
   30:     <TR><TD><b>adReadAll</b>    </TD><TD><%=adReadAll%>    </TD></TR>
   31:     <TR><TD><b>adReadLine</b>   </TD><TD><%=adReadLine%>   </TD></TR>
   32:     <TR><TD><b>adTypeBinary</b> </TD><TD><%=adTypeBinary%> </TD></TR>
   33:     <TR><TD><b>adTypeText</b>   </TD><TD><%=adTypeText%>   </TD></TR>
   34:    </TABLE>
   35:  
   36:   </BODY>
   37:  </HTML>
***** C:\SOURCE\PORTAL\EXCHANGE.ASP
    1:  <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="Microsoft CDO for Exchange 2000 Library" -->
    2:  <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
    3:  <!--METADATA TYPE="typelib" UUID="0006F062-0000-0000-C000-000000000046" NAME="Microsoft Outlook View Control" -->
    4:  
    5:  
    6:  <%
    7:  
    8:  myControl = Request.QueryString("myControl")
    9:  if isnull(myControl) or len(myControl) = 0 then
   10:  	myControl = Request.Form("myControl")
   11:  end if
   12:  if isnull(myControl) or len(myControl) = 0 then
   13:  	myControl = "Calendar"
   14:  end if
   15:  
   16:  myItem = Request.QueryString("myItem")
   17:  if isnull(myItem) or len(myItem) = 0 then
   18:  	myItem = Request.Form("myItem")
   19:  end if
   20:  if isnull(myItem) or len(myItem) = 0 then
   21:  	myItem = ""
   22:  end if
   23:  %>
   24:  
   25:  <html>
   26:  <HEAD>
   27:  <title>Exchange Outlook interface</title>
   28:  
   29:  <link rel="SHORTCUT ICON" href="favicon.ico">
   30:  <link rel="stylesheet" type="text/css" href="http://www.nelnet.net/Shared_Includes/Site_style.css" title="default">
   31:  <link rel="stylesheet" type="text/css" href="Portal.css" title="application">
   32:  
   33:  
   34:  <script language="VBScript" type="text/vbscript">
   35:  
   36:  
   37:  
   38:  
   39:  function test_Click()
   40:  
   41:   	 CalendarDate(04/01/2003)
   42:  if false then
   43:  	set app = ViewCtlFolder1.OutlookApplication
   44:  	Set oAppointment = app.CreateItem(olAppointmentItem)
   45:  	With oAppointment
   46:  		.Duration = 30       '(in minutes)
   47:  		.Location = sLocation
   48:  		If strType = "Meeting" Then
   49:  			.MeetingStatus = olMeeting
   50:  		End If
   51:  		.Subject = sSubject
   52:  		.BusyStatus = olBusy
   53:  		.ReminderSet = True
   54:  		.ReminderMinutesBeforeStart = 30   '(in Minutes)
   55:  	End With
   56:  	Set app = Nothing
   57:  end if
   58:  end function
   59:  
   60:  
   61:  
   62:  
   63:  
   64:  
   65:  function SetFolder_Click(pFolder) 
   66:  	ViewCtlFolder1.Folder = pFolder
   67:  end function
   68:  
   69:  
   70:  Sub cmdNewMessage_Click() 
   71:  	ViewCtlFolder1.NewMessage
   72:  End Sub 
   73:  
   74:  
   75:  Sub cmdAddressBook_Click(pFilter) 
   76:  
   77:  	ViewCtlFolder1.AddressBook
   78:   
   79:  
   80:  	if len(pFilter) > 0 then
   81:  		ViewCtlFolder1.Filter = "urn:schemas:httpmail:name = '" & pFilter & "'"
   82:  	end if
   83:  
   84:  End Sub 
   85:  
   86:  function LoopAddressLists_Click()
   87:  	msg = "LoopAddressLists"
   88:  	msgbox msg
   89:  end function
   90:  
   91:  
   92:  function NewMeeting_Click()
   93:  	SetFolder_Click("Calendar") 
   94:  	ViewCtlFolder1.NewMeetingrequest
   95:  end function
   96:  
   97:  
   98:  
   99:  function fnSetNewAppointment_Click() 
  100:  	ViewCtlFolder1.NewAppointment
*****

Comparing files C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp and C:\SOURCE\PORTAL\OUTLOOK.ASP
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
    1:  <%@ Language=VBScript %>
    2:  <%
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
    1:  <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="Microsoft CDO for Exchange 2000 Library" -->
    2:  <!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
    3:  <!--METADATA TYPE="typelib" UUID="0006F062-0000-0000-C000-000000000046" NAME="Microsoft Outlook View Control" -->
    4:  
    5:  <%@ Language=VBScript %>
    6:  <%
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
    6:  
    7:  
    8:  Control1 = Request.QueryString("Control1")
    9:  if isnull(Control1) or len(Control1) = 0 then
   10:  	Control1 = Request.Form("Control1")
   11:  end if
   12:  if isnull(Control1) or len(Control1) = 0 then
   13:  	Control1 = ""
   14:  end if
   15:  
   16:  
   17:  Item1 = Request.QueryString("Item1")
   18:  if isnull(Item1) or len(Item1) = 0 then
   19:  	Item1 = Request.Form("Item1")
   20:  end if
   21:  if isnull(Item1) or len(Item1) = 0 then
   22:  	Item1 = ""
   23:  end if
   24:  	
   25:  firsttime = Request.Form("firsttime")
   26:  if isnull(Item1) or len(Item1) = 0 then
   27:  	firsttime = ""
   28:  end if 
   29:  
   30:  OutlookMailbox = request.Form("OutlookMailbox")
   31:  if isnull(OutlookMailbox) or len(OutlookMailbox) = 0 then
   32:  	OutlookMailbox = ""
   33:  end if
   34:  
   35:  OutlookMailboxP = request.Form("OutlookMailboxP")
   36:  if isnull(OutlookMailboxP) or len(OutlookMailboxP) = 0 then
   37:  	OutlookMailboxP = ""
   38:  end if
   39:  
   40:  subject = request.Form("subject")
   41:  if isnull(subject) or len(subject) = 0 then
   42:  	subject = ""
   43:  end if
   44:  
   45:  location = request.Form("location")
   46:  if isnull(location) or len(location) = 0 then
   47:  	location = ""
   48:  end if
   49:  
   50:  start = request.Form("start")
   51:  if isnull(start) or len(start) = 0 then
   52:  	start = ""
   53:  end if
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
   10:  
   11:  OutlookProfileName = GetRequestValue("OutlookProfileName")
   12:  OutlookServer = GetRequestValue("OutlookServer")
   13:  OutlookMailbox = GetRequestValue("OutlookMailbox")
   14:  OutlookMailboxP = GetRequestValue("OutlookMailboxP")
   15:  Control1 = GetRequestValue("Control1")
   16:  Item1 = GetRequestValue("Item1")
   17:  firsttime = GetRequestValue("firsttime")
   18:  subject = GetRequestValue("subject")
   19:  location = GetRequestValue("location")
   20:  start = GetRequestValue("start")
   21:  if len(OutlookProfileName) = 0 then
   22:  	OutlookProfileName = "Outlook"
   23:  end if
   24:  if len(OutlookServer) = 0 then
   25:  	OutlookServer = "Den-email-01"
   26:  end if
   27:  if len(OutlookMailbox) = 0 then
   28:  	OutlookMailbox = "Kurt Love"
   29:  end if
   30:  if len(OutlookMailboxP) = 0 then
   31:  	OutlookMailboxP = "Nirvana7"
   32:  end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
   54:  %>
   55:  
   56:  <HTML>
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
   33:  %>
   34:  <HTML>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
   60:  <link rel="stylesheet" type="text/css" href="Portal.css" title="application">
   61:  <SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript' SRC='appt.js'></SCRIPT>
   62:  
   63:  <script language="VBScript">
   64:       Sub SendMessage
   65:           Dim objOutlook 	' As Outlook.Application
   66:           Dim objOutlookMsg 	' As Outlook.MailItem
   67:           Dim objOutlookRecip 	' As Outlook.Recipient
   68:           Dim objOutlookAttach 	' As Outlook.Attachment
   69:       
   70:           Set objOutlook = CreateObject("Outlook.Application")
   71:       
   72:           Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)
   73:       
   74:           With objOutlookMsg
   75:               Set objOutlookRecip = .Recipients.Add("xuser@gobo.com")
   76:               objOutlookRecip.Type = olTo
   77:               .Display
   78:           End With
   79:           Set objOutlook = Nothing
   80:       End Sub
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
   38:  <link rel="stylesheet" type="text/css" href="Portal.css" title="application">
   39:  
   40:  <script language="VBScript" type="text/vbscript">
   41:  
   42:  Dim profileName
   43:  Dim profileinfo  
   44:  Dim profileinfoServer 
   45:  Dim profileinfoMailbox 
   46:  Dim Password
   47:  profileName = "<%=OutlookProfileName%>"
   48:  profileinfoServer = "<%=OutlookServer%>"
   49:  profileinfoMailbox = "<%=OutlookMailbox%>"
   50:  Password = "<%=OutlookMailboxP%>"
   51:  profileinfo = profileinfoServer & vbCrLf & profileinfoMailbox
   52:  
   53:       Sub SendMessage
   54:  		Dim objSession 		' or Dim objSession As MAPI.Session 
   55:  		Dim objMessage 		' or Dim objMessage As Message 
   56:  		Dim objOneRecip 		' or Dim objOneRecip As Recipient 
   57:  		Dim objOutlook 		' As Outlook.Application
   58:  		Dim objOutlookMsg 	' As Outlook.MailItem
   59:  		Dim objOutlookRecip 	' As Outlook.Recipient
   60:  		Dim objOutlookAttach 	' As Outlook.Attachment
   61:       
   62:  		Set objSession = CreateObject("MAPI.Session") 
   63:  		Set objOutlook = objSession.Application
   64:       
   65:  		Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)
   66:       
   67:  		With objOutlookMsg
   68:  			Set objOutlookRecip = .Recipients.Add("xuser@gobo.com")
   69:  			objOutlookRecip.Type = olTo
   70:  			.Display
   71:  		End With
   72:  		Set objOutlook = Nothing
   73:       End Sub
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
   82:       Sub SetAppointment(sSubject, sLocation, start)
   83:  	 Dim olAppointmentItem 	' as long
   84:           Dim objOutlook 	' As Outlook.Application
   85:  	 Dim oAppointment 	' As Outlook.AppointmentItem     
   86:  
   87:  	 olAppointmentItem = 1 
   88:           Set objOutlook = CreateObject("Outlook.Application")
   89:       
   90:  	 Set oAppointment = Outlook.CreateItem(olAppointmentItem)
   91:  	 With oAppointment
   92:  		.Duration = 30       '(in minutes)
   93:  		.Location = sLocation
   94:  		If strType = "Meeting" Then
   95:            				.MeetingStatus = olMeeting
   96:          	End If
   97:  		.Subject = sSubject
   98:  		.BusyStatus = olBusy
   99:  		.ReminderSet = True
  100:  		.ReminderMinutesBeforeStart = 30   '(in Minutes)
  101:  	End With
  102:  
  103:       
  104:           Set objOutlook = Nothing
  105:       End Sub
  106:  </script>
  107:  
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
   75:       Sub SetAppointment(sSubject, sLocation, start)
   76:  		Dim olAppointmentItem 	' as long
   77:  		Dim objOutlook 	' As Outlook.Application
   78:  		Dim oAppointment 	' As Outlook.AppointmentItem     
   79:  
   80:  		olAppointmentItem = 1 
   81:  
   82:  		Set objOutlook = CreateObject("Outlook.Application")
   83:       
   84:  		Set oAppointment = Outlook.CreateItem(olAppointmentItem)
   85:  		With oAppointment
   86:  			.Duration = 30       '(in minutes)
   87:  			.Location = sLocation
   88:  			If strType = "Meeting" Then
   89:  				.MeetingStatus = olMeeting
   90:  			End If
   91:  			.Subject = sSubject
   92:  			.BusyStatus = olBusy
   93:  			.ReminderSet = True
   94:  			.ReminderMinutesBeforeStart = 30   '(in Minutes)
   95:  		End With
   96:  		Set objOutlook = Nothing
   97:       End Sub
   98:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
  108:  
  109:  </HEAD>
  110:  <BODY onload="OnLoad();" >
  111:  
  112:  <form action="Outlook.asp" method="post">
  113:  <input type="hidden" name="firsttime" value="not">
  114:  <input type="hidden" name="Control11" value="<%=Control1%>">
  115:  <input type="hidden" name="Item1" value="<%=Item1%>">
  116:  
  117:  <%	
  118:  Dim objSession 	'As MAPI.Session
  119:  Dim objMsg 	'As Message
  120:  Dim objRecip 	'As Recipient
  121:  
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
   99:  
  100:  Sub LoopAddressLists()
  101:  
  102:        DisplayArea  = "LoopAddressLists sub has run...."
  103:  	on error resume next 
  104:  	err.clear 
  105:  
  106:             ' create a session and log on
  107:            Set objSession = CreateObject("MAPI.Session")
  108:  	if err.number <> 0 then 
  109:  		DisplayArea  = DisplayArea  & vbcrlf  & vbcrlf & "Error Dettected::00001:" & err.description  & vbcrlf 
  110:  	end if
  111:  
  112:            ' use a valid exchange profile name
  113:            DisplayArea  = DisplayArea  & vbcrlf & "LoopAddressLists::profileinfo = '" & profileinfo & "'"
  114:  
  115:  if false then
  116:          If Len(profileName) = 0 Then
  117:              objSession.Logon profileName
  118:          Else
  119:            objSession.Logon profileinfoMailbox, Password 
  120:            'nomail:=True, _
  121:            'profileinfo:=profileinfo, _
  122:            'ProfilePassword:=Password, _
  123:            'NewSession:=True
  124:          End If
  125:  end if
  126:          objSession.Logon
  127:  	if err.number <> 0 then 
  128:  		DisplayArea  = DisplayArea  & vbcrlf  & vbcrlf & "Error Dettected::00002:" & err.description  & vbcrlf & profileinfoMailbox &
  129:  " " &  Password 
  130:  	end if
  131:  
  132:            
  133:            'Walk the available Address Books
  134:          Set collAddressLists = objSession.AddressLists
  135:  	if err.number <> 0 then 
  136:  		DisplayArea  = DisplayArea  & vbcrlf  & vbcrlf & "Error Dettected::00003:" & err.description  & vbcrlf 
  137:  	end if
  138:  
  139:            For Each objAddressList In collAddressLists
  140:                 ' Display collection selection indices
  141:  		DisplayArea  = DisplayArea  & vbCrlf & ""
  142:                 DisplayArea  = DisplayArea  & vbTab & "" & objAddressList.Name & ""
  143:                 DisplayArea  = DisplayArea  & vbTab & "" & objAddressList.Index & ""
  144:  
  145:                 ' Display readonly access flag
  146:                 DisplayArea  = DisplayArea  & vbTab & "" & objAddressList.IsReadOnly & ""
  147:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
  122:  
  123:  Dim olApp 		' As Outlook.Application
  124:  Dim oOutlook 		' As Outlook.Application
  125:  Dim oAppointment 	' As Outlook.AppointmentItem
  126:  Dim oFolder 		' As MAPIFolder
  127:  Dim oItems 		' As Items
  128:  Dim olNs 		' As Outlook.NameSpace
  129:  Dim olItem 		' As Outlook.ContactItem
  130:  Dim olMail 		' As Outlook.MailItem
  131:  
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
  148:  
  149:                 ' display count of recipients
  150:                 Set collAddressEntries = objAddressList.AddressEntries
  151:                 DisplayArea  = DisplayArea  & vbTab & "" & Str(collAddressEntries.Count) & ""
  152:                 ' if any AddressEntries, display first recipient name
  153:                 If Not objAddressList.AddressEntries(1) Is Nothing Then 
  154:                      DisplayArea  = DisplayArea  & vbTab & "" & objAddressList.AddressEntries(1).Name & ""
  155:  		   end if 
  156:  		   DisplayArea  = DisplayArea  & ""
  157:            Next 
  158:  
  159:  	if err.number <> 0 then 
  160:  		DisplayArea  = DisplayArea  & vbcrlf  & vbcrlf & "Error Dettected::00004:" & err.description  & vbcrlf 
  161:  	end if
  162:  
  163:            ' Walk the Global Address List
  164:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
  132:  
  133:  	if Request.Form("firsttime") = "notxxxxxxxxxxxx" then
  134:  	    	errorText = ""
  135:  		if fromEmail = "" then
  136:  		    errorText = title & " From email address blank."
  137:  		elseif toemail = "" then
  138:  		    errorText = title & " To email address blank."
  139:  		elseif msgSubject = "" and msgBody = "" then
  140:  		    errorText = "Subject and Body cannot both be blank."
  141:  		end if
  142:  		if len(errorText) = 0 then
  143:  			Set olApp = CreateObject("Outlook.Application")
  144:  			Set oOutlook 	=  CreateObject("Outlook.Application")
  145:  			Set oAppointment =  CreateObject("Outlook.AppointmentItem")
  146:         			Set olNs = olApp.GetNamespace("MAPI")
  147:  			
  148:  			olNs.Logon
  149:  
  150:  			Set oAppointment = Outlook.CreateItem(olAppointmentItem)
  151:      
  152:      			'Set meeting parameters
  153:  			With oAppointment
  154:  				.Duration = 30       '(in minutes)
  155:  				.Location = sLocation
  156:  				If strType = "Meeting" Then
  157:              				.MeetingStatus = olMeeting
  158:          			End If
  159:  				.Subject = sSubject
  160:  				.BusyStatus = olBusy
  161:  				.ReminderSet = True
  162:  				.ReminderMinutesBeforeStart = 30   '(in Minutes)
  163:  			End With
  164:      
  165:      
  166:  			If strType = "Meeting" Then
  167:  			'Add attendees
  168:  			With oAppointment.Recipients.Add(sAttendees)
  169:  				.Type = 1   '1 = Required, 2 = Optional
  170:  			End With
  171:      		End If
  172:  
  173:  		'   oAppointment.Display
  174:      
  175:      		Set olApp = Nothing
  176:      		Set olNs = Nothing
  177:      		Set oAppointment = Nothing
  178:      		Set oOutlook = Nothing
  179:  
  180:  		end if
  181:  	end if
  182:  %>
  183:  <table>
  184:  <tr>
  185:    <th>Subject:</th><td><input type="text" name="subject" value="<%=subject%>" size="50" maxsize="255"></td>
  186:  </tr>
  187:  <tr>
  188:    <th>Locaion:</th><td><input type="text" name="location" value="<%=location%>" size="50" maxsize="255"></td>
  189:  </tr>
  190:  <tr>
  191:    <th>Start Date Time:</th><td><input type="text" name="start" value="<%=start%>" size="50" maxsize="12"></td>
  192:  </tr>
  193:  <TR><td align="center" colspan="2">
  194:  <INPUT TYPE="BUTTON" NAME="goforit" value="save" onClick="SetAppointment(document.forms[0].elements['subject'].value, document.
  195:  orms[0].elements['location'].value, document.forms[0].elements['start'].value)">&nbsp;
  196:  <input type="submit" name="refresh" value="refresh">
  197:  </TD></TR>
  198:  </form>
  199:  
  200:  <script language="javascript" type="text/javascript">
  201:  function OnLoad()
  202:  {
  203:  	document.forms[0].elements["subject"].focus();
  204:  }
  205:  </script>
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
  165:  
  166:            Set collAddressEntries = objSession.AddressLists("Global Address List").AddressEntries
  167:  
  168:  	if err.number <> 0 then 
  169:  		DisplayArea  = DisplayArea  & vbcrlf  & vbcrlf & "Error Dettected::00005:" & err.description  & vbcrlf 
  170:  	end if
  171:  
  172:            For Each objaddressEntry In collAddressEntries
  173:  		   DisplayArea  = DisplayArea  & vbCrlf & ""
  174:                 ' Display the recipient's name
  175:  		   DisplayArea  = DisplayArea  & vbCrlf & ""
  176:                 DisplayArea  = DisplayArea  & objaddressEntry.Name
  177:  		   DisplayArea  = DisplayArea  & vbCrlf & ""
  178:  		   DisplayArea  = DisplayArea  & vbCrlf & ""
  179:                 ' Display the recipient's type
  180:                 Select Case objaddressEntry.DisplayType
  181:                 Case ActMsgUser
  182:                     DisplayArea  = DisplayArea  & "Exchange Recipient"
  183:                 Case ActMsgDistList
  184:                     DisplayArea  = DisplayArea  & "Distribution List"
  185:                     ' WalkAddressList objaddressEntry.Members, "List", ""
  186:                     DisplayArea  = DisplayArea  & "End of DL " & objaddressEntry.Name
  187:                 Case ActMsgForum
  188:                     DisplayArea  = DisplayArea  & "Public Folder"
  189:                 Case ActMsgAgent
  190:                     DisplayArea  = DisplayArea  & "Agent"
  191:                 Case ActMsgPrivateDistList
  192:                     DisplayArea  = DisplayArea  & "Private DL"
  193:                 Case ActMsgOrganization
  194:                     DisplayArea  = DisplayArea  & "Organization"
  195:                 Case ActMsgRemoteUser
  196:                     DisplayArea  = DisplayArea  & "Custom Recipient"
  197:                 Case Else
  198:                     DisplayArea  = DisplayArea  & "Unknown type " & objaddressEntry.DisplayType
  199:                 End Select
  200:  		   DisplayArea  = DisplayArea  & vbCrlf & ""
  201:  		   DisplayArea  = DisplayArea  & vbCrlf & ""
  202:            Next 
  203:  
  204:  	if err.number <> 0 then 
  205:  		DisplayArea  = DisplayArea  & vbcrlf  & vbcrlf & "Error Dettected::00006:" & err.description  & vbcrlf 
  206:  	end if
  207:            'close session and logoff
  208:            objSession.Logoff
  209:  
  210:  	msgbox DisplayArea
  211:  document.forms(0).elements("DisplayArea").value = DisplayArea
  212:  
  213:        End Sub
  214:  
  215:  
  216:  
  217:  
  218:  </script>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
  206:  
  207:  </BODY>
  208:  </HTML>
  209:  
  210:  
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
  219:  
  220:  
*****

Resync Failed.  Files are too different.
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\Outlook.asp
***** C:\SOURCE\PORTAL\OUTLOOK.ASP
  221:  </HEAD>
  222:  <BODY onload="OnLoad();" >
  223:  <%=Now()%>
  224:  <form name="myForm" id="myForm" action="Outlook.asp" method="post">
  225:  
  226:  <input type="hidden" name="OutlookServer" value="<%=OutlookServer%>">
  227:  <input type="hidden" name="OutlookMailbox" value="<%=OutlookMailbox%>">
  228:  <input type="hidden" name="OutlookMailboxP" value="<%=OutlookMailboxP%>">
  229:  
  230:  <input type="hidden" name="firsttime" value="not">
  231:  <input type="hidden" name="Control11" value="<%=Control1%>">
  232:  <input type="hidden" name="Item1" value="<%=Item1%>">
  233:  
  234:  <%	
  235:  Dim objSession 	'As MAPI.Session
  236:  Dim objMsg 	'As Message
  237:  Dim objRecip 	'As Recipient
  238:  
  239:  
  240:  Dim olApp 		' As Outlook.Application
  241:  Dim oOutlook 		' As Outlook.Application
  242:  Dim oAppointment 	' As Outlook.AppointmentItem
  243:  Dim oFolder 		' As MAPIFolder
  244:  Dim oItems 		' As Items
  245:  Dim olNs 		' As Outlook.NameSpace
  246:  Dim olItem 		' As Outlook.ContactItem
  247:  Dim olMail 		' As Outlook.MailItem
  248:  
  249:  
  250:  	if Request.Form("firsttime") = "notxxxxxxxxxxxx" then
  251:  	    	errorText = ""
  252:  		if fromEmail = "" then
  253:  		    errorText = title & " From email address blank."
  254:  		elseif toemail = "" then
  255:  		    errorText = title & " To email address blank."
  256:  		elseif msgSubject = "" and msgBody = "" then
  257:  		    errorText = "Subject and Body cannot both be blank."
  258:  		end if
  259:  		if len(errorText) = 0 then
  260:  			Set olApp = CreateObject("Outlook.Application")
  261:  			Set oOutlook 	=  CreateObject("Outlook.Application")
  262:  			Set oAppointment =  CreateObject("Outlook.AppointmentItem")
  263:         			Set olNs = olApp.GetNamespace("MAPI")
  264:  			
  265:  			olNs.Logon
  266:  
  267:  			Set oAppointment = Outlook.CreateItem(olAppointmentItem)
  268:      
  269:      			'Set meeting parameters
  270:  			With oAppointment
  271:  				.Duration = 30       '(in minutes)
  272:  				.Location = sLocation
  273:  				If strType = "Meeting" Then
  274:              				.MeetingStatus = olMeeting
  275:          			End If
  276:  				.Subject = sSubject
  277:  				.BusyStatus = olBusy
  278:  				.ReminderSet = True
  279:  				.ReminderMinutesBeforeStart = 30   '(in Minutes)
  280:  			End With
  281:      
  282:      
  283:  			If strType = "Meeting" Then
  284:  			'Add attendees
  285:  			With oAppointment.Recipients.Add(sAttendees)
  286:  				.Type = 1   '1 = Required, 2 = Optional
  287:  			End With
  288:      		End If
  289:  
  290:  		'   oAppointment.Display
  291:      
  292:      		Set olApp = Nothing
  293:      		Set olNs = Nothing
  294:      		Set oAppointment = Nothing
  295:      		Set oOutlook = Nothing
  296:  
  297:  		end if
  298:  	end if
  299:  %>
  300:  <table>
  301:  <tr>
  302:    <th>Subject:</th><td><input type="text" name="subject" value="<%=subject%>" size="50" maxsize="255"></td>
  303:  </tr>
  304:  <tr>
  305:    <th>Locaion:</th><td><input type="text" name="location" value="<%=location%>" size="50" maxsize="255"></td>
  306:  </tr>
  307:  <tr>
  308:    <th>Start Date Time:</th><td><input type="text" name="start" value="<%=start%>" size="50" maxsize="12"></td>
  309:  </tr>
  310:  <TR><td align="center" colspan="2">
  311:  <INPUT TYPE="BUTTON" NAME="goforit" value="save" onClick="SetAppointment(document.forms[0].elements['subject'].value, document.
  312:  orms[0].elements['location'].value, document.forms[0].elements['start'].value)">&nbsp;
  313:  <input type="submit" name="refresh" value="refresh">
  314:  
  315:  <INPUT TYPE="BUTTON" NAME="genLoopAddressLists" value="LoopAddressLists" onClick="LoopAddressLists()")">&nbsp;
  316:  <br>
  317:  <TEXTAREA ID="DisplayArea" NAME="DisplayArea" COLS=90 ROWS=20></TEXTAREA>
  318:  </TD></TR>
  319:  </form>
  320:  
*****

Comparing files C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp and C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
    2:  
    3:  <%
    4:  	screenName = "RelationshipEditor"
    5:  	screenTitle = "NOSL - Admin - " & screenName
    6:  	headerText = screenName
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
    2:  
    3:  <!-- #INCLUDE file="ADOVBS.INC" -->
    4:  <!--#include File = "EditorCommon.inc" -->
    5:  <!--#include File = "ConnectionString.inc" -->
    6:  
    7:  <%
    8:  	' rename NCPORTALSP to your app... Note where Ucase occurs so it is a 1 at a time thing
    9:  	' if connectionString.inc has an application specific name, move it ConnectStringf
   10:      
   11:  	screenName = "RelationshipEditor"
   12:  	screenTitle = "Nconcert Portal - Admin - " & screenName
   13:  	headerText = screenName
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
   12:  	lookingAtTable2 = false
   13:  
   14:  const g_TextToTextBoxLimit = 300
   15:  const g_InputTextSize = 40
   16:  
   17:  const g_button_nave_td_width = 125
   18:  const g_submitText_Create = "Create"
   19:  const g_submitText_Delete = "Delete"
   20:  const g_submitText_ListItems="List Items"
   21:  const g_submitText_ListTables="List Tables"
   22:  const g_submitText_Refresh="Refresh"
   23:  const g_submitText_RefreshList="Refresh List"
   24:  const g_submitText_RemoveFromList=">"
   25:  const g_submitText_Save = "Save"
   26:  const g_submitText_Select = "Select"
   27:  const g_submitText_Show="Show Item"
   28:  const g_submitText_Submit = "Submit"
   29:  const g_submitText_Update="Update Items"
   30:  const g_button_style = "class=""basicButton"" " 
   31:  
   32:  %>
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   19:  	lookingAtTable2 = false
   20:    
   21:  
   22:    userloginid = Request.QueryString("userloginid")
   23:    if isnull(userloginid) or len(userloginid) = 0 then
   24:    	userloginid = Request.Form("userloginid")
   25:    end if
   26:    
   27:  	if isnull(userloginid) or len(userloginid) = 0 then
   28:    	userloginid = g_max_security_level
   29:    end if
   30:  
   31:  
   32:  ConnectString = PortalConnectString 
   33:  %>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
   33:  
   34:  <!-- #INCLUDE file="../ASPFunctions/DataFunctions.asp" -->
   35:  
   36:  
   37:  <HTML>
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   34:  
   35:  <HTML>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
   39:  <TITLE><%=screenTitle%></TITLE>
   40:  <META NAME="Category" CONTENT="NOSL Management">
   41:  <META NAME="NOSLArea" CONTENT="Admin">
   42:  <META NAME="NOSLNAME" CONTENT="<%=screenName%>">
   43:  <META NAME="NOSLTitle" CONTENT="<%=screenTitle%>">
   44:  <META NAME="Description" CONTENT="<%=screenTitle%>: view information">
   45:  <META NAME="Product" CONTENT="NOSL">
   46:  <META NAME="Keywords" CONTENT="NOSL, Ideas, Knowledge, Information,<%=screenName%>, <%=screenTitle%>">
   47:  
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   37:  <TITLE><%=screenTitle%></TITLE>
   38:  <META NAME="Category" CONTENT="NcPortal Management">
   39:  <META NAME="NcPortalArea" CONTENT="Admin">
   40:  <META NAME="NcPortalNAME" CONTENT="<%=screenName%>">
   41:  <META NAME="NcPortalTitle" CONTENT="<%=screenTitle%>">
   42:  <META NAME="Description" CONTENT="<%=screenTitle%>: view information">
   43:  <META NAME="Product" CONTENT="NcPortal">
   44:  <META NAME="Keywords" CONTENT="NcPortal, Ideas, Knowledge, Information,<%=screenName%>, <%=screenTitle%>">
   45:  
   46:  <link rel="SHORTCUT ICON" href="favicon.ico">
   47:  <link rel="stylesheet" type="text/css" href="http://www.nelnet.net/Shared_Includes/Site_style.css" title="default">
   48:  <link rel="stylesheet" type="text/css" href="Portal.css" title="application">
   49:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
   48:  
   49:  <%
   50:  	with response
   51:  	if instr(ucase(connectionString),"DEMO") > 0 then
   52:  		.write("<link rel=""stylesheet"" type=""text/css""  href=""../demoStart.css"">")
   53:  	else
   54:  		.write("<link rel=""stylesheet"" type=""text/css""  href=""../Start.css"">")
   55:  	end if
   56:  	end with
   57:  %>
   58:  <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   50:  
   51:  
   52:  
   53:  <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
   67:  </SCRIPT>
   68:  
   69:  <%
   70:  	LoadPage
   71:  %>
   72:  </HEAD>
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   62:  </SCRIPT>
   63:  </HEAD>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
   74:  <%
   75:  
   76:  	mIsSysGroup = Request.QueryString("IsSysGroup")
   77:  	if Len(mIsSysGroup) = 0 then
   78:  		mIsSysGroup = Request.Form("IsSysGroup")
   79:  	end if
   80:  'Confirm IsSysAdmin
   81:  if  mIsSysGroup <> "1" then
   82:  	userloginid = 3
   83:  else
   84:  	userloginid = 4
   85:  end if
   86:  
   87:  
   88:  	'test the connection.
   89:  	if not isobject(session("oConn")) then
   90:  		Set session("oConn") = Server.CreateObject("ADODB.Connection")
   91:  		Set session("rs") = Server.CreateObject("ADODB.RecordSet")
   92:  	end if
	
	connectionString = Request.Form("connectionString")
   93:  	if  session("oConn").state = 1 then
   94:  		' connection is open
   95:  	else
   96:  		connectionString = BuildNOSLConnString
   97:  		session("oConn").Open connectionString
   98:  	end if
	
   99:  
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   65:  <%
   66:  	err.clear
   67:  
   68:  	Set oConn = Server.CreateObject("ADODB.Connection")
   69:  	Set RS = Server.CreateObject("ADODB.RecordSet")
   70:  	Set RS_message = Server.CreateObject("ADODB.RecordSet")
   71:  
   72:  	if  oConn.state = 1 then
   73:  		' connection is open
   74:  		oConn.Close
   75:  	end if
   76:  
   77:  	err.clear
   78:  	oConn.Open ConnectString
   79:  
   80:  	if err.number <> 0 then
   81:  		Response.Write "Portal connection error detected:<br>" & ConnectString
   82:  	end if	
   83:  Response.Write "<a href=""TableEditor.asp"">[Table Editor]</a> &nbsp;&nbsp<a href=""Default.asp"">[Portal]</a>"
   84:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  103:  <INPUT TYPE="HIDDEN" NAME="firsttime" VALUE="not">
  104:  <TABLE WIDTH="100%" ALIGN="CENTER" BORDER=0 CELLPADDING=0 CELLSPACING=0 SUMMARY="<%=screenName%> Screen">
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
   88:  <INPUT TYPE="HIDDEN" NAME="firsttime" VALUE="not">
   89:  <INPUT TYPE="HIDDEN" NAME="userloginid" VALUE="<%=userloginid%>">
   90:  <TABLE WIDTH="100%" ALIGN="CENTER" BORDER=0 CELLPADDING=0 CELLSPACING=0 SUMMARY="<%=screenName%> Screen">
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  129:  		Set cmd = Server.CreateObject("ADODB.Command")
  130:  		Set cmd.ActiveConnection = session("oConn")	
  131:  		cmd.CommandType = adCmdStoredProc
  132:  		cmd.CommandText = "NOSLsp_AdminTable_List"
  133:  		cmd.Parameters.Refresh
		cmd("@SecurityUserID") = userloginid
  134:  		cmd("@AdminTableType") = 2	
  135:  		set session("rs") = cmd.Execute
  136:  		Response.Write "<TABLE summary=""" & screenName & " List""><TR>"
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  115:  		Set cmd = Server.CreateObject("ADODB.Command")
  116:  		Set cmd.ActiveConnection = oConn	
  117:  		cmd.CommandType = adCmdStoredProc
  118:  		cmd.CommandText = "NcPortalsp_AdminTable_List_Security"
  119:  		cmd.Parameters.Refresh
  120:  		cmd("@SecurityUserID") = userloginid
  121:  		cmd("@AdminTableType") = 2	
  122:  		set RS = cmd.Execute
  123:  		Response.Write "<TABLE summary=""" & screenName & " List""><TR>"
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  140:  		nFields = 1
  141:  		Do Until session("rs").EOF
  142:  			AdminTableID = session("rs")("AdminTableID")
  143:  			AdminTableName = session("rs")("AdminTableName")
  144:  			AdminTableType = session("rs")("AdminTableType")
  145:  			AdminKeyField = session("rs")("AdminKeyField")
  146:  			ShowStoredProcedure = session("rs")("ShowStoredProcedure")
  147:  			ListStoredProcedure = session("rs")("ListStoredProcedure")
  148:  			UpdateStoredProcedure = session("rs")("UpdateStoredProcedure")
  149:  			CreateStoredProcedure = session("rs")("CreateStoredProcedure")
  150:  			Table1 = session("rs")("Table1")
  151:  			Table2 = session("rs")("Table2")
  152:  			Table1KeyField = session("rs")("Table1KeyField")
  153:  			Table2KeyField1 = session("rs")("Table2KeyField1")
  154:  			Table2KeyField2 = session("rs")("Table2KeyField2")
  155:  			Response.Write "<TR>"
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  127:  		nFields = 1
  128:  		Do Until RS.EOF
  129:  			AdminTableID = RS("AdminTableID")
  130:  			AdminTableName = RS("AdminTableName")
  131:  			AdminTableType = RS("AdminTableType")
  132:  			AdminKeyField = RS("AdminKeyField")
  133:  			ShowStoredProcedure = RS("ShowStoredProcedure")
  134:  			ListStoredProcedure = RS("ListStoredProcedure")
  135:  			UpdateStoredProcedure = RS("UpdateStoredProcedure")
  136:  			CreateStoredProcedure = RS("CreateStoredProcedure")
  137:  			Table1 = RS("Table1")
  138:  			Table2 = RS("Table2")
  139:  			Table1KeyField = RS("Table1KeyField")
  140:  			Table2KeyField1 = RS("Table2KeyField1")
  141:  			Table2KeyField2 = RS("Table2KeyField2")
  142:  			Response.Write "<TR>"
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  165:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminKeyField" & cntlCount & """ VALUE=""" & AdminKeyField & """>" & vbcrlf
  166:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXShowStoredProcedure" & cntlCount & """ VALUE=""" & ShowStoredProcedure & ""
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  152:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminKeyField" & cntlCount & """ VALUE=""" & AdminKeyField & """>" & vbcrlf
  153:  
  154:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXShowStoredProcedure" & cntlCount & """ VALUE=""" & ShowStoredProcedure & ""
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  182:  			Response.Write "</TD></TR>" & vbcrlf
  183:  			session("rs").MoveNext
  184:  		Loop
  185:  		session("rs").Close
  186:  		set p = nothing
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  170:  			Response.Write "</TD></TR>" & vbcrlf
  171:  			RS.MoveNext
  172:  		Loop
  173:  		RS.Close
  174:  
  175:  		set p = nothing
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  228:  	if ShowStoredProcedure = "" _
  229:  	or Ucase(ShowStoredProcedure) = "NOSLSP_SHOW_" _
  230:  	or len(ShowStoredProcedure) = 0 then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  217:  	if ShowStoredProcedure = "" _
  218:  	or Ucase(ShowStoredProcedure) = "NCPORTALSP_SHOW_" _
  219:  	or len(ShowStoredProcedure) = 0 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  239:  		Set cmd = Server.CreateObject("ADODB.Command")
  240:  		Set cmd.ActiveConnection = session("oConn")	
  241:  		cmd.CommandType = adCmdStoredProc
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  228:  		Set cmd = Server.CreateObject("ADODB.Command")
  229:  		Set cmd.ActiveConnection = oConn	
  230:  		cmd.CommandType = adCmdStoredProc
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  242:  		if UpdateStoredProcedure = "" _
  243:  		or Ucase(UpdateStoredProcedure) = "NOSLSP_UPDATE_" then
  244:  			nFields = 0
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  231:  		if UpdateStoredProcedure = "" _
  232:  		or Ucase(UpdateStoredProcedure) = "NCPORTALSP_UPDATE_" then
  233:  			nFields = 0
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  259:  			for cntlCount = 1 to retainedCntlCount step 1
  260:  				change = false
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  248:  			for cntlCount = 1 to retainedCntlCount step 1
  249:  				collectParms = "<br>"
  250:  				change = false
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  265:  					holdName = prm.Name
  266:  					holdValue = prm.Value
  267:  					'---- DataTypeEnum Values ---- from adovbs.inc .... 
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  255:  					holdName = prm.Name
  256:  					holdValue = prm.Value 
  257:  					'---- DataTypeEnum Values ---- from adovbs.inc .... 
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  268:  					holdType = prm.Type
  269:  					if holdName = "RETURN_VALUE"  _
					or holdName = "@RETURN_VALUE" then
  270:  						'not me
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  258:  					holdType = prm.Type
  259:  					if holdName = "RETURN_VALUE"  _
  260:  					or holdName = "@RETURN_VALUE" then
  261:  						'not me
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  291:  							if Request.Form("CURRENTLYSELECTED").Count < cntlCount then
  292:  							   formValue = ""
  293:  							else
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  282:  							if Request.Form("CURRENTLYSELECTED").Count < cntlCount then
  283:  							   	formValue = ""
  284:  							else
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  339:  					end if
  340:  				next
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  330:  					end if
  331:  					collectParms = collectParms & holdName & " = '" & formValue & "'"
  332:  				next
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  345:  					changeCount = changeCount + 1
  346:  					set session("rs") = cmd.Execute
  347:  				end if
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  337:  					changeCount = changeCount + 1
  338:  					set RS_message = cmd.Execute
  339:  				end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  354:  		if CreateStoredProcedure = "" _
  355:  		or Ucase(CreateStoredProcedure) = "NOSLSP_CREATE_" _
  356:  		or len(CreateStoredProcedure) = 0 then
  357:  		' No msg here
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  346:  		if CreateStoredProcedure = "" _
  347:  		or Ucase(CreateStoredProcedure) = "NCPORTALSP_CREATE_" _
  348:  		or len(CreateStoredProcedure) = 0 _
  349:  or true then
  350:  		' No msg here
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  358:  		else
  359:  			cmd.CommandText = CreateStoredProcedure
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  351:  		else
  352:  response.Write vbcrlf & "<br>CreateStoredProcedure using '" & CreateStoredProcedure & "' passing a moveme of " & MoveMe
  353:  			cmd.CommandText = CreateStoredProcedure
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  371:  				holdType = prm.Type
  372:  				if holdName = "RETURN_VALUE"  _
				or holdName = "@RETURN_VALUE" then
  373:  					' result set, do not edit
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  365:  				holdType = prm.Type
  366:  				if holdName = "RETURN_VALUE"  _
  367:  				or holdName = "@RETURN_VALUE" then
  368:  					' result set, do not edit
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  411:  				addCount = addCount + 1
  412:  				set session("rs") = cmd.Execute
  413:  			end if
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  406:  				addCount = addCount + 1
  407:  				set RS = cmd.Execute
  408:  			end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  432:  		Set cmd = Server.CreateObject("ADODB.Command")
  433:  		Set cmd.ActiveConnection = session("oConn")	
  434:  		cmd.CommandType = adCmdStoredProc
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  427:  		Set cmd = Server.CreateObject("ADODB.Command")
  428:  		Set cmd.ActiveConnection = oConn	
  429:  		cmd.CommandType = adCmdStoredProc
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  446:  		if ListStoredProcedure = "" _
  447:  		or Ucase(ListStoredProcedure) = "NOSLSP_LIST_" then
  448:  			nFields = 0
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  441:  		if ListStoredProcedure = "" _
  442:  		or Ucase(ListStoredProcedure) = "NCPORTALSP_LIST_" then
  443:  			nFields = 0
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  454:  			Response.Write " List is unsupported for this table " & AdminTableName & ". The listed procedure is  " & ListStoredProcedure
  455:  			Response.Write "</TD></TR><TR><TD>" & vbcrlf
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  449:  			Response.Write " List is unsupported for this table " & AdminTableName & ". The listed procedure is  " & ListStoredProcedure
  450:  
  451:  			Response.Write "</TD></TR><TR><TD>" & vbcrlf
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  462:  				and len(Table2) > 0 _
  463:  				and Table2 <> "NOSLsp_Table2" then
  464:  					lookingAtTable2 = true
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  458:  				and len(Table2) > 0 _
  459:  				and Table2 <> "NcPortalsp_Table2" then
  460:  					lookingAtTable2 = true
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  478:  						holdType = prm.Type
  479:  						if holdName = "RETURN_VALUE" _
						or holdName = "@RETURN_VALUE"  then
  480:  						'not me
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  474:  						holdType = prm.Type
  475:  						if holdName = "RETURN_VALUE" _
  476:  						or holdName = "@RETURN_VALUE"  then
  477:  						'not me
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  482:  							SecurityUserID = true
  483:  							cmd.Parameters.Item(i).Value = userloginid
						else
  484:  							trimField = mid(holdName,2) 
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  479:  							SecurityUserID = true
  480:  							cmd.Parameters.Item(i).Value = userloginid
  481:  						else
  482:  							trimField = mid(holdName,2) 
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  502:  						holdName = prm.Name
  503:  						holdValue = prm.Value
						if holdName = "@SecurityUserID" then
  504:  							SecurityUserID = true
  505:  							cmd.Parameters.Item(i).Value = userloginid
						elseif holdName = "@" & AdminKeyField then
  506:  							AdminKeyValue = Request.Form(AdminKeyField)
  507:  							cmd("@" & AdminKeyField) = AdminKeyValue
						end if
					next
  508:  				end if
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  500:  						holdName = prm.Name
  501:  						holdValue = prm.Value
  502:  						if holdName = "@SecurityUserID" then
  503:  							SecurityUserID = true
  504:  							cmd.Parameters.Item(i).Value = userloginid
  505:  						elseif holdName = "@" & AdminKeyField then
  506:  							AdminKeyValue = Request.Form(AdminKeyField)
  507:  							cmd("@" & AdminKeyField) = AdminKeyValue
  508:  						end if
  509:  					next
  510:  				end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  513:  				and len(Table1) > 0 _
  514:  				and Table1 <> "NOSLsp_Table1" then
  515:  					lookingAtTable1 = true			
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  515:  				and len(Table1) > 0 _
  516:  				and Table1 <> "NcPortalsp_Table1" then
  517:  					lookingAtTable1 = true			
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  521:  						holdName = prm.Name
  522:  						holdValue = prm.Value
						if holdName = "@SecurityUserID" then
  523:  							SecurityUserID = true
  524:  							cmd.Parameters.Item(i).Value = userloginid
						elseif holdName = "@" & AdminKeyField then
  525:  							AdminKeyValue = Request.Form(AdminKeyField)
  526:  							cmd("@" & AdminKeyField) = AdminKeyValue
						end if
					next
  527:  				else
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  523:  						holdName = prm.Name
  524:  						holdValue = prm.Value
  525:  						if holdName = "@SecurityUserID" then
  526:  							SecurityUserID = true
  527:  							cmd.Parameters.Item(i).Value = userloginid
  528:  						elseif holdName = "@" & AdminKeyField then
  529:  							AdminKeyValue = Request.Form(AdminKeyField)
  530:  							cmd("@" & AdminKeyField) = AdminKeyValue
  531:  						end if
  532:  					next
  533:  				else
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  529:  					cmd.Parameters.Refresh
  530:  					if ListStoredProcedure = "NOSLsp_AdminTable_List" then
						cmd("@SecurityUserID") = userloginid
  531:  						cmd("@AdminTableType") = 0
					else
  532:  						nFields = cmd.Parameters.Count
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  535:  					cmd.Parameters.Refresh
  536:  					if ListStoredProcedure = "NcPortalsp_AdminTable_List_Security" then
  537:  						cmd("@SecurityUserID") = userloginid
  538:  						cmd("@AdminTableType") = 0
  539:  					else
  540:  						nFields = cmd.Parameters.Count
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  535:  							holdName = prm.Name
  536:  							holdValue = prm.Value
							if holdName = "@SecurityUserID" then
  537:  								SecurityUserID = true
  538:  								cmd.Parameters.Item(i).Value = userloginid
							elseif holdName = "@" & AdminKeyField then
  539:  								AdminKeyValue = Request.Form(AdminKeyField)
  540:  								cmd("@" & AdminKeyField) = AdminKeyValue
							end if
						next
  541:  					end if
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  543:  							holdName = prm.Name
  544:  							holdValue = prm.Value
  545:  							if holdName = "@SecurityUserID" then
  546:  								SecurityUserID = true
  547:  								cmd.Parameters.Item(i).Value = userloginid
  548:  							elseif holdName = "@" & AdminKeyField then
  549:  								AdminKeyValue = Request.Form(AdminKeyField)
  550:  								cmd("@" & AdminKeyField) = AdminKeyValue
  551:  							end if
  552:  						next
  553:  					end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  550:  			else
  551:  				set session("rs") = cmd.Execute
  552:  				nFields = session("rs").Fields.Count - 1
  553:  				Response.Write "" & vbcrlf & vbcrlf
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  562:  			else
  563:  				set RS = cmd.Execute
  564:  				nFields = RS.Fields.Count - 1
  565:  				Response.Write "" & vbcrlf & vbcrlf
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  556:  				for i=0 to nFields step 1
  557:  					fieldName = session("rs")(i).name
  558:  					fieldLength = session("rs")(i).DefinedSize
  559:  					if AdminKeyField = "" then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  568:  				for i=0 to nFields step 1
  569:  					fieldName = RS(i).name
  570:  					fieldLength = RS(i).DefinedSize
  571:  					if AdminKeyField = "" then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  583:  				saveunionSortField = ""
  584:  				Do Until session("rs").EOF
  585:  					cntlCount = cntlCount + 1
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  595:  				saveunionSortField = ""
  596:  				Do Until RS.EOF
  597:  					cntlCount = cntlCount + 1
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  591:  					for i=0 to nFields step 1
  592:  						fieldName = session("rs")(i).name
  593:  						fieldValue = session("rs")(i).value
  594:  						fieldLength = session("rs")(i).DefinedSize
  595:  						if AdminTableName = "AdminTableColumns" _
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  603:  					for i=0 to nFields step 1
  604:  						fieldName = RS(i).name
  605:  						fieldValue = RS(i).value
  606:  						fieldLength = RS(i).DefinedSize
  607:  						if AdminTableName = "AdminTableColumns" _
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  604:  								if (cntlCount = 1 _
  605:  								and session("rs")("unionSortField").value= "b") _
  606:  								or (cntlCount > 1 _
  607:  								and saveunionSortField <> session("rs")("unionSortField").value) then
									displayControlButtons = true
  608:  									Response.Write "</SELECT></TD>" & vbcrlf
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  616:  								if (cntlCount = 1 _
  617:  								and RS("unionSortField").value= "b") _
  618:  								or (cntlCount > 1 _
  619:  								and saveunionSortField <> RS("unionSortField").value) then
  620:  									displayControlButtons = true
  621:  									Response.Write "</SELECT></TD>" & vbcrlf
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  624:  							else
  625:  								Response.Write fieldValue & " " 
  626:  							end if
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  637:  							else
  638:  								Response.Write fieldValue & " "
  639:  							end if
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  645:  							'Select Box?
  646:  							sql = "Execute NOSLsp_AdminTableColumns_ListBox_Test '" & AdminTableName & "','" & fieldName & "'"
  647:  							Set ListBoxParmsRS = session("oConn").execute(sql)						
  648:  							AdminTableStoredProcedure = ""
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  658:  							'Select Box?
  659:  							sql = "Execute NcPortalsp_AdminTableColumns_ListBox_Test '" & AdminTableName & "','" & fieldName & "'"
  660:  							Set ListBoxParmsRS = oConn.execute(sql)						
  661:  							AdminTableStoredProcedure = ""
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  662:  						    elseif len(AdminTableStoredProcedure) > 0 then
  663:  								if ltrim(rtrim(AdminTableStoredProcedure)) = "NOSLsp_Table_Columns_ListBox" then
  664:  									if isnull(saveAdminTableColumns) _
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  675:  						    elseif len(AdminTableStoredProcedure) > 0 then
  676:  								if ltrim(rtrim(AdminTableStoredProcedure)) = "NcPortalsp_Table_Columns_ListBox" then
  677:  									if isnull(saveAdminTableColumns) _
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  665:  									or len(saveAdminTableColumns) = 0 then
  666:  										saveAdminTableColumns = ""
									else
										saveAdminTableColumns = trim(saveAdminTableColumns)
  667:  									end if
									sql = "Execute NOSLsp_AdminTable_Table_Key " & saveAdminTableColumns & ""
  668:  									Set ORS = nothing
  669:  									Set ORS = session("oConn").execute (sql)
  670:  									if ORS.EOF then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  678:  									or len(saveAdminTableColumns) = 0 then
  679:  										saveAdminTableColumns = ""
  680:  									else
  681:  										saveAdminTableColumns = trim(saveAdminTableColumns)
  682:  									end if
  683:  									sql = "Execute NcPortalsp_AdminTable_Table_Key " & saveAdminTableColumns & ""
  684:  									Set ORS = nothing
  685:  									Set ORS = oConn.execute (sql)
  686:  									if ORS.EOF then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  694:  					end if
  695:  					session("rs").MoveNext
  696:  				Loop
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  710:  					end if
  711:  					RS.MoveNext
  712:  				Loop
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  701:  		if lookingAtTable2 then
  702:  			Response.Write "</SELECT></TD></TR>"
  703:  		elseif lookingAtTable1 then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  717:  		if lookingAtTable2 then
  718:  			Response.Write vbcrlf & "</SELECT></TD></TR>" & vbcrlf
  719:  		elseif lookingAtTable1 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  705:  		elseif CreateStoredProcedure = "" _
  706:  		or Ucase(CreateStoredProcedure) = "NOSLSP_CREATE_" _
  707:  		or len(CreateStoredProcedure) = 0 then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  721:  		elseif CreateStoredProcedure = "" _
  722:  		or Ucase(CreateStoredProcedure) = "NCPORTALSP_CREATE_" _
  723:  		or len(CreateStoredProcedure) = 0 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  710:  			Response.Write "<TR><TH>&nbsp;</TH>"
  711:  			nFields = session("rs").Fields.Count - 1
  712:  			for i=0 to nFields step 1
  713:  				fieldName = session("rs")(i).name
  714:  				fieldLength = session("rs")(i).DefinedSize
  715:  				if AdminKeyField = fieldName then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  726:  			Response.Write "<TR><TH>&nbsp;</TH>"
  727:  			nFields = RS.Fields.Count - 1
  728:  			for i=0 to nFields step 1
  729:  				fieldName = RS(i).name
  730:  				fieldLength = RS(i).DefinedSize
  731:  				if AdminKeyField = fieldName then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  727:  						'Select Box?
  728:  					sql = "Execute NOSLsp_AdminTableColumns_ListBox_Test '" & AdminTableName & "','" & fieldName & "'"
  729:  					Set ListBoxParmsRS = session("oConn").execute(sql)						
  730:  
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  743:  						'Select Box?
  744:  					sql = "Execute NcPortalsp_AdminTableColumns_ListBox_Test '" & AdminTableName & "','" & fieldName & "'"
  745:  					Set ListBoxParmsRS = oConn.execute(sql)						
  746:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  736:  					if len(AdminTableStoredProcedure) > 0 then
  737:  						if ltrim(rtrim(AdminTableStoredProcedure)) = "NOSLsp_Table_Columns_ListBox" then
  738:  							gen_ListBox AdminTableStoredProcedure, "", "NEW_" & fieldName, fieldValue
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  752:  					if len(AdminTableStoredProcedure) > 0 then
  753:  						if ltrim(rtrim(AdminTableStoredProcedure)) = "NcPortalsp_Table_Columns_ListBox" then
  754:  							gen_ListBox AdminTableStoredProcedure, "", "NEW_" & fieldName, fieldValue
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  825:  	if UpdateStoredProcedure = "" _
  826:  	or Ucase(UpdateStoredProcedure) = "NOSLSP_UPDATE_" _
  827:  	or len(UpdateStoredProcedure) = 0 then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  841:  	if UpdateStoredProcedure = "" _
  842:  	or Ucase(UpdateStoredProcedure) = "NCPORTALSP_UPDATE_" _
  843:  	or len(UpdateStoredProcedure) = 0 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  833:  	if CreateStoredProcedure = "" _
  834:  	or Ucase(CreateStoredProcedure) = "NOSLSP_CREATE_" _
  835:  	or len(CreateStoredProcedure) = 0 then
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  849:  	if CreateStoredProcedure = "" _
  850:  	or Ucase(CreateStoredProcedure) = "NCPORTALSP_CREATE_" _
  851:  	or len(CreateStoredProcedure) = 0 then
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  876:  	{
  877:  		document.forms[0].elements["Submit"][0].click();
  878:  	}
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  892:  	{
  893:  		document.forms[0].elements["Submit"][1].click();
  894:  	}
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\RelationshipEditor.asp
  880:  	{
  881:  		document.forms[0].elements["Submit"][1].click();
  882:  	}
***** C:\SOURCE\PORTAL\RELATIONSHIPEDITOR.ASP
  896:  	{
  897:  		document.forms[0].elements["Submit"][2].click();
  898:  	}
*****

Comparing files C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp and C:\SOURCE\PORTAL\TABLEEDITOR.ASP
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
    1:  <%@ Language=VBScript %>
    2:  <%
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
    1:  <%@ Language=VBScript %>
    2:  
    3:  <!--#INCLUDE File="ADOVBS.INC" -->
    4:  <!--#INCLUDE File="EditorCommon.inc" -->
    5:  <!--#INCLUDE File="ConnectionString.inc" -->
    6:  
    7:  <%
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
    4:  	' if connectionString.inc has an application specific name, move it ConnectString
    5:  	Dim supportarray(10)
    6:  	Dim sitearray(10)
    7:  	Dim sitetitle(10)
    8:  	Dim dsnarray(10)
    9:  	Dim dsnarrayName(10)
   10:  	Dim adminemail
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
    9:  	' if connectionString.inc has an application specific name, move it ConnectString
   10:  
   11:  	Dim adminemail
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   11:  	Dim emailSystem 
   12:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
   12:  	Dim emailSystem 
   13:  	Dim AutoLogon
   14:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   17:  	
   18:  	PortalConnectString = ""
   19:  
   20:  	ConnectString = ""
   21:  	screenName = "TableEditor"
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
   19:  	
   20:  	screenName = "TableEditor"
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   29:  
   30:  const g_calendarDefaultNullYear = "01/01/1900"
   31:  const g_max_security_level = 99999
   32:  const g_TextToTextBoxLimit = 51	
   33:  const g_button_nave_td_width = 125
   34:  const g_submitText_Create = "Create"
   35:  const g_submitText_Delete = "Delete"
   36:  const g_submitText_ListItems="List Items"
   37:  const g_submitText_ListTables="List Tables"
   38:  const g_submitText_Refresh="Refresh"
   39:  const g_submitText_RefreshList="Refresh List"
   40:  const g_submitText_RemoveFromList=">"
   41:  const g_submitText_Save = "Save"
   42:  const g_submitText_Select = "Select"
   43:  const g_submitText_Show="Show Item"
   44:  const g_submitText_Submit = "Submit"
   45:  const g_submitText_Update="Update Items"
   46:  const g_submitText_IDPW = "IDPW"
   47:  const g_submitText_BACKHome = "BACKHOME"
   48:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
   28:  
   29:  	ConnectString = PortalConnectString 
   30:  
   31:  	username = Request.Form("username")
   32:  	userpw = Request.Form("userpw")
   33:  	userloginid = Request.Form("AdminLevelID")
   34:  	if isnull(username) or len(username) = 0 then
   35:  		username = ""
   36:  	end if 
   37:  	if isnull(userpw) or len(userpw) = 0 then
   38:  		userpw = ""
   39:  	end if 
   40:  
   41:  	if isnull(userloginid) or len(userloginid) = 0 then
   42:  		userloginid = g_max_security_level
   43:  	end if 
   44:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   49:  
   50:  const g_InputTextSize = 40
   51:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
   45:  
   46:  FIRSTTIME = Request.Form("FIRSTTIME")
   47:  if isnull(FIRSTTIME) or len(FIRSTTIME) = 0 then
   48:  	FIRSTTIME = "YES"
   49:  end if
   50:  
   51:  AutoLogon = Request.QueryString("AutoLogon")
   52:  if isnull(AutoLogon) or len(AutoLogon) = 0 then
   53:  	AutoLogon = ""
   54:  end if
   55:  if len(AutoLogon) > 0 and len(userpw) = 0 and len(userpw) = 0 then
   56:  	keep1 = Request.Cookies("keep1")
   57:  	keep2 = Request.Cookies("keep2")
   58:  	keep3 = Request.Cookies("keep3")
   59:  	if isnull(keep1) or len(keep1) = 0 then
   60:  		keep1 = ""
   61:  	end if 
   62:  	if isnull(keep2) or len(keep2) = 0 then
   63:  		keep2 = ""
   64:  	end if 
   65:  	if isnull(keep3) or len(keep3) = 0 then
   66:  		keep3 = g_max_security_level
   67:  	end if 
   68:  
   69:  	username = keep1 
   70:  	userpw = keep2 
   71:  	userloginid = keep3 
   72:  end if
   73:  
   74:  if len(username) > 0 and len(userpw) > 0 then
   75:  	Response.Cookies("keep1").Expires=date+365 
   76:  	Response.Cookies("keep1") = username
   77:  	Response.Cookies("keep2").Expires=date+365 
   78:  	Response.Cookies("keep2") = userpw
   79:  	Response.Cookies("keep3").Expires=date+365 
   80:  	Response.Cookies("keep3") = userloginid
   81:  end if
   82:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   53:  %>
   54:  
   55:  <!-- #INCLUDE file="ADOVBS.INC" -->
   56:  <!--#include File = "ConnectionString.inc" -->
   57:  <%
   58:  ConnectString = PortalConnectString 
   59:  %>
   60:  <HTML>
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
   84:  %>
   85:  <HTML>
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   76:  <!-- 
   77:  function MessageWindow(msg)
   78:  {
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  101:  <!-- 
  102:  function MessageWindow(title, msg)
  103:  {
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   79:  	popup = window.open("", 'displayMessage', 'scrollbars,resizable');
   80:  	popup.document.write(msg + "<br>");
   81:  	popup.focus();
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  104:  	popup = window.open("", 'displayMessage', 'scrollbars,resizable');
  105:  	popup.document.write('<H1>' + title + '</H1>');
  106:  	popup.document.write(msg + "<br>");
  107:  	popup.document.title = '<%=screenTitle%> ' + title;
  108:  	popup.focus();
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   82:  }
   83:  //--> 
   84:  </SCRIPT>
   85:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  109:  }
  110:  function DisplayHelp()
  111:  {
  112:  	var title = 'Help'
  113:  	var msg = '\r\n<table summary="Table editor help page" border="0" cellpadding="0" cellspacing="0" width="100%">';
  114:  	msg += '\r\n<CAPTION align="left"><font size="+1">Table editor usage documentation</font></CAPTION>'
  115:  
  116:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  117:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  118:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
   86:  
   87:  <%
   88:  	
   89:  %>
   90:  </HEAD>
   91:  <BODY ONLOAD="myOnLoad()">
   92:  <%
   93:  
   94:  	' On Error Resume next
   95:  	err.clear
   96:  
   97:  	Set oConn = Server.CreateObject("ADODB.Connection")
   98:  	Set RS = Server.CreateObject("ADODB.RecordSet")
   99:  
  100:  	if  oConn.state = 1 then
  101:  		' connection is open
  102:  		oConn.Close
  103:  	end if
  104:  
  105:  	err.clear
  106:  	oConn.Open ConnectString
  107:  
  108:  	if err.number <> 0 then
  109:  		Response.Write "Portal connection error detected:<br>" & ConnectString
  110:  	end if
  111:  %><FORM NAME="<%=screenName%>" METHOD="POST" ACTION="<%=screenName%>.asp" onSubmit="return submitMessage();">
  112:  <INPUT TYPE="HIDDEN" NAME="firsttime" VALUE="not">
  113:  <TABLE WIDTH="100%" ALIGN="CENTER" BORDER=0 CELLPADDING=0 CELLSPACING=0 SUMMARY="<%=screenName%> Screen">
  114:  <THEAD>
  115:  <TR>
  116:  	<TH COLSPAN="2" ALIGN="LEFT"><font size="+2">&nbsp;<%=screenName%></FONT>
  117:  	<BR>&nbsp;</TH>
  118:  </TR>
  119:  </THEAD>
  120:  <TR><TD>
  121:  <%
  122:  	cntlCount = 0
  123:  	
  124:  	submitText = Request.Form("Submit")
  125:  	if isnull(submitText) then
  126:  		submitText = ""
  127:  	end if
  128:  	if submitText = "" then
  129:  		submitText = g_submitText_IDPW 
  130:  	end if
  131:  
  132:  	if submitText = g_submitText_BACKHome then
  133:  		Response.Redirect "Default.asp"
  134:  	end if
  135:  	
  136:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  119:  
  120:  
  121:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>List Tables button:</B> </TD></TR>'
  122:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2"><B>Description:</B></TD></TR>'
  123:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  124:  	msg += '\r\nThis is also the default or Home button for the Table editor. It lists the tables.'
  125:  	msg += '\r\n</TD></TR>'
  126:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2"><B>Screen Usage:</B></TD></TR>'
  127:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  128:  	msg += '\r\nClick the radio button under the "Select" column for the table you want to view. '
  129:  	msg += '\r\n<br>This will auto click the "List Items" button and list the selected table.'
  130:  	msg += '\r\n</TD></TR>'
  131:  
  132:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  133:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
  137:  
  138:  
  139:  '------------------------------------------------------------Security 
  140:  
  141:  	username = Request.Form("username")
  142:  	userpw = Request.Form("userpw")
  143:  	userloginid = Request.Form("AdminLevelID")
  144:  	if isnull(userloginid) or len(userloginid) = 0 then
  145:  		userloginid = g_max_security_level
  146:  	end if 
  147:  
  148:  	forgotPW =  Request.Form("forgotPW")
  149:  	if isnull(forgotPW) or len(forgotPW) = 0 then
  150:  		forgotPW = "no"
  151:  	end if 
  152:  
  153:  	if isnull(username) or len(username) = 0 then
  154:  		submitText = g_submitText_IDPW 
  155:  	end if
  156:  
  157:  	if submitText = g_submitText_IDPW then
  158:  
  159:  		nci = Request.Form("nci")
  160:  		if isnull(nci) or len(nci) = 0 then
  161:  			nci = ""
  162:  		end if
  163:  
  164:  		ncp = Request.Form("ncp")
  165:  		if isnull(ncp) or len(ncp) = 0 then
  166:  			ncp = ""
  167:  		end if
  168:  
  169:  		if forgotPW = "yes" then
  170:  			if len(nci) = 0 then
  171:  				Response.Write "<br><font color=""#FF0000"">ID is required for this feature.</font><br>"
  172:  			elseif InStr(1, cstr(nci), ".") <= 0 then
  173:  				Response.Write "<br><font color=""#FF0000"">Given ID is an invalid format.</font><br>"
  174:  			else
  175:  				Set cmd = nothing
  176:  				Set p = nothing
  177:  				Set cmd = Server.CreateObject("ADODB.Command")
  178:  				Set cmd.ActiveConnection = oConn	
  179:  				cmd.CommandType = adCmdStoredProc
  180:  				cmd.CommandText = "NcPortalsp_Admin_ForgotPassword"
  181:  				cmd.Parameters.Refresh
  182:  				cmd("@UserName") = nci 
  183:  				myTextArray = Split(nci, ".")
  184:  	
  185:  				cmd("@FIRSTNAME") = myTextArray(0)
  186:  				cmd("@LASTNAME") = myTextArray(1)
  187:  			
  188:  				set RS = cmd.Execute
  189:  				securityFound = false
  190:  				err.clear
  191:  	
  192:  				Do Until RS.EOF or err.number <> 0
  193:  					securityFound = true
  194:  					UserPassword = RS("UserPassword")
  195:  					EMAIL = RS("EMAIL")
  196:  					RS.MoveNext
  197:  				Loop
  198:  				RS.Close
  199:  				set p = nothing
  200:  				set cmd = nothing
  201:  
  202:  				if securityFound then
  203:  	
  204:  					Set cmd = nothing
  205:  					Set cmd = Server.CreateObject("ADODB.Command")
  206:  					Set cmd.ActiveConnection = oConn	
  207:  					cmd.CommandType = adCmdStoredProc
  208:  					cmd.CommandText = "NcPortalsp_ContentControl_List"
  209:  					cmd.Parameters.Refresh
  210:  					set lbrs = cmd.Execute
  211:  					Do Until lbrs.EOF OR err.number <> 0
  212:  						myValue = lbrs("control")
  213:  						catchDetail = lbrs("detail") 
  214:  						if  Ucase(Trim(cstr(myValue))) = "ADMINEMAIL" then
  215:  							if isnull(catchDetail) or len(catchDetail) = 0 then
  216:  							' skip
  217:  							else
  218:  								adminemail = catchDetail
  219:  							end if
  220:  						end if
  221:  						if  Ucase(Trim(cstr(myValue))) = "EMAILSYS" then
  222:  							if isnull(catchDetail) or len(catchDetail) = 0 then
  223:  							' skip
  224:  							else
  225:  								emailSystem = catchDetail
  226:  							end if
  227:  						end if
  228:  						lbrs.MoveNext
  229:  					Loop
  230:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  134:  
  135:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>List Items button: </B> </TD></TR>'
  136:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Description:</B> </TD></TR>'
  137:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  138:  	msg += '\r\n This is a list of all the rows for a selected table.'
  139:  	msg += '\r\n</TD></TR>'
  140:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2"><B>Screen Usage:</B></TD></TR>'
  141:  
  142:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  143:  	msg += '\r\nClick the radio button to select an item for update. This will auto click "List Item" button.'
  144:  	msg += '\r\n<br>You will now see the row by itself with editable fields and related drop down select boxes.'
  145:  	msg += '\r\n</TD></TR>'
  146:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
  231:  
  232:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  147:  
  148:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  149:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
  233:  
  234:  					Response.Write "<br><b>Attempting to send forgotten password sent to your email: " & EMAIL & " </b><br>"
  235:  					SendNotification adminemail, EMAIL, "Portal System information", "Your password is " & UserPassword & "."
  236:  
  237:  				else
  238:  					Response.Write "<br><font color=""#FF0000"">Failure to find the given id.</font><br>"
  239:  				end if
  240:  			end if 
  241:  			
  242:  		elseif len(ncp) = 0 or len(nci) = 0 then
  243:  			Response.write "<br><font color=""#FF0000"">User id and Password are required.</font><br>"
  244:  		else
  245:  			Set cmd = nothing
  246:  			Set p = nothing
  247:  			Set cmd = Server.CreateObject("ADODB.Command")
  248:  			Set cmd.ActiveConnection = oConn	
  249:  			cmd.CommandType = adCmdStoredProc
  250:  			cmd.CommandText = "NcPortalsp_Admin_Login"
  251:  			cmd.Parameters.Refresh
  252:  			cmd("@UserName") = nci 
  253:  			cmd("@UserPassword") = ncp 
  254:  			
  255:  			set RS = cmd.Execute
  256:  			securityFound = false
  257:  			err.clear
  258:  
  259:  			Do Until RS.EOF or err.number <> 0
  260:  				securityFound = true
  261:  				username = nci
  262:  				userpw = ncp
  263:  
  264:  				userloginid = RS("AdminLevelID")
  265:  				if isnull(userloginid) or len(userloginid) = 0 then
  266:  					userloginid = g_max_security_level
  267:  				end if
  268:  				RS.MoveNext
  269:  			Loop
  270:  			RS.Close
  271:  			set p = nothing
  272:  			set cmd = nothing
  273:  			if securityFound then
  274:  				submitText = g_submitText_ListTables
  275:  				Response.Write " "  
  276:  			else
  277:  				Response.Write "<br><font color=""#FF0000"">Failure to find the given id and password.</font><br>"
  278:  			end if
  279:  			
  280:  		end if
  281:  	end if
  282:  
  283:  	if submitText = g_submitText_IDPW then
  284:  %>
  285:  		<center>
  286:  		<table summary="log in">
  287:  		<TR><TH colspan="2">Please sign in:</TH></TR>
  288:  		<TR><TH align="right"><b>ID:</b></TH><TD align="left"><input type="text" name="nci" value="<%=nci%>"></TD></TR>
  289:  		<TR><TH align="right"><b>PW:</b></TH><TD align="left"><input type="password" name="ncp" value="<%=ncp%>"></TD></TR>
  290:  		<TR><TH align="right"><b>Forgot Password:</b></TH><TD align="left"><input type="checkbox" name="forgotPW" value="yes">Check t
  291:   send to your email.</TD></TR>
  292:  
  293:  		</table>
  294:  		</center>
  295:  		</TD></TR>
  296:  		<TR><TD>
  297:  		<Table summary="details"><TR><TD><Table summary="details">
  298:  
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  150:  
  151:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>Show Item button: </B> </TD></TR>'
  152:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Description:</B> </TD></TR>'
  153:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  154:  	msg += '\r\nEnter edit mode for the selected item'
  155:  	msg += '\r\n</TD></TR>'
  156:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2"><B>Screen Usage:</B></TD></TR>'
  157:  
  158:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  159:  	msg += '\r\nThe Column of radio buttons. Click this radio button to auto click "List Item" button.'
  160:  	msg += '\r\n<br>You will now see the row by itself with editable fields and related drop down select boxes.'
  161:  	msg += '\r\n</TD></TR>'
  162:  
  163:  
  164:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  165:  
  166:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>Update Item button: </B> </TD></TR>'
  167:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Description:</B> </TD></TR>'
  168:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  169:  	msg += '\r\nChange the selected item'
  170:  	msg += '\r\n</TD></TR>'
  171:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2"><B>Screen Usage:</B></TD></TR>'
  172:  
  173:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  174:  	msg += '\r\nMake your changes to fields in the Show Item page. Then Click to Change the database.'
  175:  	msg += '\r\n</TD></TR>'
  176:  
  177:  
  178:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  179:  
  180:  
  181:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>Create button: </B> </TD></TR>'
  182:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Description:</B> </TD></TR>'
  183:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  184:  	msg += '\r\nCreate a new item'
  185:  	msg += '\r\n</TD></TR>'
  186:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2"><B>Screen Usage:</B></TD></TR>'
  187:  
  188:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  189:  	msg += '\r\n<li>Click the Create button first to get a blank row.</li>'
  190:  	msg += '\r\n<li>Place your new information into the fields in the Show Item page.</li>'
  191:  	msg += '\r\n<li>Then Click Create again to Add the new row to the database.</li>'
  192:  	msg += '\r\n</TD></TR>'
  193:  
  194:  
  195:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  196:  
  197:  
  198:  
  199:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>Delete button: </B> </TD></TR>'
  200:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Description:</B> </TD></TR>'
  201:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  202:  	msg += '\r\nDelete a current item from the list'
  203:  	msg += '\r\n</TD></TR>'
  204:  
  205:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Screen Usage: </B></TD></TR>'
  206:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  207:  	msg += '\r\nThe "Delete ?" Column is a checkbox used to select a row you wish to delete.'
  208:  	msg += '\r\n<br>You can select 1 or many items.'
  209:  	msg += '\r\n<br>Then you must click the "Delete" button for the rows to be removed.'
  210:  	msg += '\r\n</TD></TR>'
  211:  	
  212:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  213:  
  214:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3">&nbsp;</TD></TR>'
  215:  
  216:  
  217:  
  218:  	msg += '\r\n<TR width="100%"><TD COLSPAN="3"><B>Special considerations:</B></TD></TR>'
  219:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Description:</B> </TD></TR>'
  220:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  221:  	msg += '\r\nData default values'
  222:  	msg += '\r\n</TD></TR>'
  223:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD COLSPAN="2" nowrap><B>Field Usage: </B></TD></TR>'
  224:  	msg += '\r\n<TR width="100%"><TD width="40">&nbsp;</TD><TD width="40">&nbsp;</TD><TD>'
  225:  	msg += '\r\nIf a null or blank entry is made in a field for the editor, inserted values are based on the field type.' 
  226:  	msg += '\r\n<LI>case adTinyInt, adSmallInt, adInteger, adBigInt, adUnsignedTinyInt, adUnsignedSmallInt, adUnsignedInt,  adUnsi
  227:  nedBigInt'
  228:  	msg += '\r\n<br> = 0</li>'
  229:  	msg += '\r\n<LI>case adSingle, adDouble, adCurrency, adDecimal, adNumeric'
  230:  	msg += '\r\n<br> = 0</li>'
  231:  	msg += '\r\n<LI>case adBoolean' 
  232:  	msg += '\r\n<br> = 0 (False)</li>'
  233:  	msg += '\r\n<LI>case adDate, adDBDate, adDBTime, adDBTimeStamp'
  234:  	msg += '\r\n<br>01/01/1900</li>'
  235:  	msg += '\r\n<LI>else'
  236:  	msg += '\r\n<br>" " a single space</li>'
  237:  	msg += '\r\n</TD></TR>'
  238:  	msg +=  '\r\n</table>'
  239:  	MessageWindow(title, msg);
  240:  
  241:  }
  242:  //--> 
  243:  </SCRIPT>
  244:  
  245:  
*****

***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
  299:  <%
  300:  	end if
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  246:  <%
  247:  	
  248:  %>
  249:  </HEAD>
  250:  <BODY ONLOAD="myOnLoad()">
  251:  <%
  252:  
  253:  	' On Error Resume next
  254:  	err.clear
  255:  
  256:  	Set oConn = Server.CreateObject("ADODB.Connection")
  257:  	Set RS = Server.CreateObject("ADODB.RecordSet")
  258:  
  259:  	if  oConn.state = 1 then
  260:  		' connection is open
  261:  		oConn.Close
  262:  	end if
*****

Resync Failed.  Files are too different.
***** C:\SOURCE\PORTAL\TESTINGSAVEAREA\TableEditor.asp
  301:  
  302:  '------------------------------------------------------------Table list
  303:  	if submitText = g_submitText_ListTables then
  304:  		Set cmd = nothing
  305:  		Set p = nothing
  306:  		Set cmd = Server.CreateObject("ADODB.Command")
  307:  		Set cmd.ActiveConnection = oConn	
  308:  		cmd.CommandType = adCmdStoredProc
  309:  		cmd.CommandText = "NcPortalsp_AdminTable_List_Security"
  310:  		cmd.Parameters.Refresh
  311:  		cmd("@SecurityUserID") = userloginid
  312:  		if screenName = "TableEditor" then
  313:  			cmd("@AdminTableType") = 1
  314:  		else
  315:  			cmd("@AdminTableType") = 2
  316:  		end if
  317:  		set RS = cmd.Execute
  318:  		Response.Write "<TABLE summary=""" & screenName & " List""><TR>"
  319:  		Response.Write "<TH ID=""selectCntl"">Select</TH>"
  320:  		Response.Write "<TH ID=""TableName"">Table</TH>"
  321:  		Response.Write "</TR>" & vbcrlf
  322:  		nFields = 1
  323:  		err.clear
  324:  		Do Until RS.EOF or err.number <> 0
  325:  			AdminTableID = RS("AdminTableID")
  326:  			AdminTableName = RS("AdminTableName")
  327:  			AdminTableType = RS("AdminTableType")
  328:  			AdminKeyField = RS("AdminKeyField")
  329:  			ShowStoredProcedure = RS("ShowStoredProcedure")
  330:  			ListStoredProcedure = RS("ListStoredProcedure")
  331:  			UpdateStoredProcedure = RS("UpdateStoredProcedure")
  332:  			CreateStoredProcedure = RS("CreateStoredProcedure")
  333:  			DeleteStoredProcedure = RS("DeleteStoredProcedure")
  334:  			Table1 = RS("Table1")
  335:  			Table2 = RS("Table2")
  336:  			Response.Write "<TR>"
  337:  			cntlCount = cntlCount + 1
  338:  			If (cntlCount Mod 2) = 0 then
  339:  				modColor = "#66CCCC"
  340:  			else
  341:  				modColor = "#FFFFFF"
  342:  			end if 
  343:  			Response.Write "<TD HEADERS=""selectCntl"" COLOR="""& modColor & """><INPUT TYPE=""RADIO"" ID=""cntlkey"" NAME=""cntlkey"" V
  344:  LUE=""" & cntlCount & """ ONCLICK=""ButtonClick(this)""></TD>"
  345:  			Response.Write "<TD HEADERS=""TableName"" COLOR="""& modColor & """>" & AdminTableName  & vbcrlf
  346:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminTableID" & cntlCount & """ VALUE=""" & AdminTableID & """>" & vbcrlf
  347:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminTableName" & cntlCount & """ VALUE=""" & AdminTableName & """>" & vbcr
  348:  f
  349:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminTableType" & cntlCount & """ VALUE=""" & AdminTableType & """>" & vbcr
  350:  f
  351:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminKeyField" & cntlCount & """ VALUE=""" & AdminKeyField & """>" & vbcrlf
  352:  
  353:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXShowStoredProcedure" & cntlCount & """ VALUE=""" & ShowStoredProcedure & ""
  354:  >" & vbcrlf
  355:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXListStoredProcedure" & cntlCount & """ VALUE=""" & ListStoredProcedure & ""
  356:  >" & vbcrlf
  357:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXUpdateStoredProcedure" & cntlCount & """ VALUE=""" & UpdateStoredProcedure 
  358:   """>" & vbcrlf
  359:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXCreateStoredProcedure" & cntlCount & """ VALUE=""" & CreateStoredProcedure 
  360:   """>" & vbcrlf
  361:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXDeleteStoredProcedure" & cntlCount & """ VALUE=""" & DeleteStoredProcedure 
  362:   """>" & vbcrlf
  363:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXTable1" & cntlCount & """ VALUE=""" & Table1 & """>" & vbcrlf
  364:  			Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXTable2" & cntlCount & """ VALUE=""" & Table2 & """>" & vbcrlf
  365:  			Response.Write "</TD></TR>" & vbcrlf
  366:  			RS.MoveNext
  367:  		Loop
  368:  		RS.Close
  369:  		set p = nothing
  370:  		set cmd = nothing
  371:  	else
  372:  '------------------------------------------------------------
  373:  		cntlkey = Request.Form("cntlkey")
  374:  		AdminTableID = Request.Form("XXXAdminTableID" & cntlkey)
  375:  		AdminTableName = Request.Form("XXXAdminTableName"& cntlkey)
  376:  		AdminTableType = Request.Form("XXXAdminTableType"& cntlkey)
  377:  		AdminKeyField = Request.Form("XXXAdminKeyField"& cntlkey)
  378:  		ShowStoredProcedure = Request.Form("XXXShowStoredProcedure" & cntlkey)
  379:  		ListStoredProcedure = Request.Form("XXXListStoredProcedure" & cntlkey)
  380:  		UpdateStoredProcedure = Request.Form("XXXUpdateStoredProcedure"& cntlkey)
  381:  		CreateStoredProcedure = Request.Form("XXXCreateStoredProcedure"& cntlkey)
  382:  		DeleteStoredProcedure = Request.Form("XXXDeleteStoredProcedure"& cntlkey)
  383:  		Table1 = Request.Form("XXXTable1"& cntlkey)
  384:  		Table2 = Request.Form("XXXTable2"& cntlkey)
  385:  		Response.Write "<TR><TD>"
  386:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""cntlkey"" VALUE=""" & cntlkey & """>" & vbcrlf
  387:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminTableID" & cntlkey & """ VALUE=""" & AdminTableID & """>" & vbcrlf
  388:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminTableName" & cntlkey & """ VALUE=""" & AdminTableName & """>" & vbcrlf
  389:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminTableType" & cntlkey & """ VALUE=""" & AdminTableType & """>" & vbcrlf
  390:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXAdminKeyField" & cntlkey & """ VALUE=""" & AdminKeyField & """>" & vbcrlf
  391:  
  392:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXShowStoredProcedure" & cntlkey & """ VALUE=""" & ShowStoredProcedure & """>"
  393:  & vbcrlf
  394:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXListStoredProcedure" & cntlkey & """ VALUE=""" & ListStoredProcedure & """>"
  395:  & vbcrlf
  396:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXUpdateStoredProcedure" & cntlkey & """ VALUE=""" & UpdateStoredProcedure & "
  397:  ">" & vbcrlf
  398:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXCreateStoredProcedure" & cntlkey & """ VALUE=""" & CreateStoredProcedure & "
  399:  ">" & vbcrlf
  400:  		Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""XXXDeleteStoredProcedure" & cntlkey & """ VALUE=""" & DeleteStoredProcedure & "
***** C:\SOURCE\PORTAL\TABLEEDITOR.ASP
  263:  
  264:  	err.clear
  265:  	oConn.Open ConnectString
  266:  
  267:  	if err.number <> 0 then
  268:  		Response.Write "Portal connection error detected:<br>" & ConnectString
  269:  	end if
  270:  %><FORM NAME="<%=screenName%>" METHOD="POST" ACTION="<%=screenName%>.asp" onSubmit="return submitMessage();">
  271:  <INPUT TYPE="HIDDEN" NAME="firsttime" VALUE="not">
  272:  <TABLE WIDTH="100%" ALIGN="CENTER" BORDER=0 CELLPADDING=0 CELLSPACING=0 SUMMARY="<%=screenName%> Screen">
  273:  <THEAD>
  274:  <TR>
  275:  	<TH COLSPAN="2" ALIGN="LEFT"><font size="+2">&nbsp;<%=screenName%></FONT>
  276:  	<BR>&nbsp;</TH>
  277:  </TR>
  278:  </THEAD>
  279:  <TR><TD>
  280:  <a href="#" onclick="DisplayHelp()">[Help page]</a>
  281:  <%
  282:  if userloginid < 1 then
  283:  	Response.Write "&nbsp;&nbsp;<a href=""RelationshipEditor.asp?userloginid=" & userloginid & """ target=""_new"">Relationship Ed
  284:  tor</a>"
  285:  end if
  286:  
  287:  	cntlCount = 0
  288:  	
  289:  	submitText = Request.Form("Submit")
  290:  	if isnull(submitText) then
  291:  		submitText = ""
  292:  	end if
  293:  	if submitText = "" then
  294:  		if len(AutoLogon) > 0 then
  295:  			submitText = g_submitText_ListTables
  296:  		else
  297:  			submitText = g_submitText_IDPW 
  298:  		end if
  299:  	end if
  300:  
  301:  	if submitText = g_submitText_BACKHome then
  302:  		Response.Redirect "Default.asp"
  303:  	end if
  304:  	
  305:  
  306:  
  307:  
  308:  '------------------------------------------------------------Security 
  309:  
  310:  	forgotPW =  Request.Form("forgotPW")
  311:  	if isnull(forgotPW) or len(forgotPW) = 0 then
  312:  		forgotPW = "no"
  313:  	end if 
  314:  
  315:  	if isnull(username) or len(username) = 0 then
  316:  		submitText = g_submitText_IDPW 
  317:  	end if
  318:  
  319:  	if submitText = g_submitText_IDPW then
  320:  
  321:  		nci = Request.Form("nci")
  322:  		if isnull(nci) or len(nci) = 0 then
  323:  			nci = ""
  324:  		end if
  325:  
  326:  		ncp = Request.Form("ncp")
  327:  		if isnull(ncp) or len(ncp) = 0 then
  328:  			ncp = ""
  329:  		end if
  330:  
  331:  		if forgotPW = "yes" then
  332:  			if len(nci) = 0 then
  333:  				Response.Write "<br><font color=""#FF0000"">ID is required for this feature.</font><br>"
  334:  			elseif InStr(1, cstr(nci), ".") <= 0 then
  335:  				Response.Write "<br><font color=""#FF0000"">Given ID is an invalid format.</font><br>"
  336:  			else
  337:  				Set cmd = nothing
  338:  				Set p = nothing
  339:  				Set cmd = Server.CreateObject("ADODB.Command")
  340:  				Set cmd.ActiveConnection = oConn	
  341:  				cmd.CommandType = adCmdStoredProc
  342:  				cmd.CommandText = "NcPortalsp_Admin_ForgotPassword"
  343:  				cmd.Parameters.Refresh
  344:  				cmd("@UserName") = nci 
  345:  				myTextArray = Split(nci, ".")
  346:  	
  347:  				cmd("@FIRSTNAME") = myTextArray(0)
  348:  				cmd("@LASTNAME") = myTextArray(1)
  349:  			
  350:  				set RS = cmd.Execute
  351:  				securityFound = false
  352:  				err.clear
  353:  	
  354:  				Do Until RS.EOF or err.number <> 0
  355:  					securityFound = true
  356:  					UserPassword = RS("UserPassword")
  357:  					EMAIL = RS("EMAIL")
  358:  					RS.MoveNext
  359:  				Loop
  360:  				RS.Close
  361:  				set p = nothing
  362:  				set cmd = nothing
*****

