<%
strQuery = "SELECT * from DEV_AvailableObjects"
strConn = "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=True;" & _
"Data Source=aSQLServer;" & _
"Initial Catalog=aDatabase;"
Set objConn = Server.CreateObject("ADODB.Connection")
With objConn
.ConnectionString = strConn
.ConnectionTimeout = 3000
.CommandTimeout = 3000
.Open
Set objRS = .Execute(strQuery)
objRS.MoveFirst
End With
lngRC = 0
While Not objRS.EOF
lngRC = lngRC + 1
objRS.MoveNext
Wend
objRS.MoveFirst
%>
Available Components Routine
Server-side Components on the <% =Request.ServerVariables("SERVER_NAME") %> Server
<%
response.write("Available
")
While Not objRS.EOF
On Error Resume Next
Set AnObject = Server.CreateObject(objRS("ProgID").Value)
If Err.Number = 0 then
On Error Goto 0
response.write("* " & objRS("LibName").Value & "
")
Set AnObject = Nothing
Else
On Error Goto 0
End If
objRS.MoveNext
Wend
objRS.MoveFirst
response.write("
Unavailable
")
FailedCounter = 0
While Not objRS.EOF
On Error Resume Next
Set AnObject = Server.CreateObject(objRS("ProgID").Value)
If Err.Number = 0 then
On Error Goto 0
Set AnObject = Nothing
Else
On Error Goto 0
response.write("* " & objRS("LibName").Value & "
")
FailedCounter = FailedCounter + 1
End If
objRS.MoveNext
Wend
If FailedCounter =0 then Response.Write("Hah! :)")
objRS.MoveFirst
%>