Mark McKibben
Associate Professor
Department of Mathematics
West Chester University

Please check back later.

 
<% connStr = "provider=SQLNCLI10;Uid=informationservices_dbo;Pwd=trU9uPHu;Server=WCUSQL1\WCUPAWEB;Failover Partner=WCUSQL2\WCUPAWEB;Database=InformationServices" ' Check if database is available Set conn = CreateObject("ADODB.Connection") conn.ConnectionTimeout = 3 ' Wait 3 seconds for database to respond On Error Resume Next conn.Open (connStr) If err.number = 0 Then conn.Close() ' Close test connection Set dbconn = Server.CreateObject("ADODB.Connection") dbconn.Open(connstr) Set objStatus = dbconn.Execute("SELECT status FROM myWCUstat") myWCUstatus = objStatus("status") Set objD2LStatus = dbconn.Execute("SELECT status FROM D2Lstat") D2Lstatus = objD2LStatus("status") ' For testing ' myWCUstatus = false ' D2Lstatus = false If (myWCUstatus = false AND D2Lstatus = false) Then ' Take care of both tabs in widget bar at same time Response.Write("" &_ "") ElseIf (myWCUstatus = false) Then ' myWCU Tab is 2nd Response.Write("" &_ "") ElseIf (D2Lstatus = false) Then ' D2L Tab is 3rd Response.Write("" &_ "") End If dbconn.Close() End If %>