HEX

File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/recoverdb.asp
<!-- #INCLUDE VIRTUAL="includes/inc_default.asp" -->
<html>

<head>
  <link href="/menu_assets/styles.css" rel="stylesheet" type="text/css">
  <link rel="stylesheet" type="text/css" href="css/background.css">
</head>

<body>
<div class="content">
<h1>DB</h1>
<%
dim connState, commState
TryRecoverDB("manual")
on error resume next
	txtLog "CheckDB()"
	If Not Session("blnInTransaction") Then 
		Set Session("objDB") = Server.CreateObject("ADODB.Connection")
		Session("objDB").Open Application("stoeligans_ConnectionString")
	End If	
	
	select case Session("objDB").State
	  case 0:	connState = "The Connection object is closed"
	  case 1:	connState = "The Connection object is open"
	  case 2:	connState = "The Connection object is connecting"
  	  case 4:	connState = "The Connection object is executing a command"
      case 8:	connState = "The rows of the Connection object are being retrieved"
	  case else connState = "Connection:" & Session("objDB").State
    End Select 
	
	txtLog "CheckDB() connstate  = " & connState
	
	set comm=Server.CreateObject("ADODB.Command")
	select case comm.State
	  case 0:	commState = "The Command object is closed"
	  case 1:	commState = "The Command object is open"
	  case 2:	commState = "The Command object is connecting"
  	  case 4:	commState = "The Command object is executing a command"
      case 8:	commState = "The rows of the Command object are being retrieved"
	  case else commState = "Command:" & comm.State
    End Select 
	
	Response.Write(connState)
	Response.Write("<br/>")
	Response.Write(commState)
	
%>			
</div>
</body>
</html>