dbWriter 760 Component Checker in an Access DB... asp code
Run DB component checker on dbWriter.com
click here
Download the Component access database click here
This code and database must be loaded on your server to test for the
components loaded there.
<<%@ Language=VBScript %>
<% Option Explicit %>
<%
DIM DBConnect_Con
DIM strSQL
DIM rs
DIM QArray
DIM Value
DIM I, J
DIM strbgcolor
DIM AccessDB_Path
DIM AccessDB_Name
DIM strCon
AccessDB_Path = "\db\" 'Access database directory
AccessDB_Name = "Comps.mdb" 'Access database name
Set DBConnect_Con = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
Server.MapPath(AccessDB_Path & AccessDB_Name) & ";"
DBConnect_Con.connectionstring = strCon
DBConnect_Con.Open
strSQL = "SELECT * FROM tbl_Comps order by comps"
Set rs = DBConnect_Con.Execute(strSQL)
if Err.Number <> 0 THEN
%>
<br>
<TABLE BORDER="0" CELLSPACING="1" CELLPADDING="1" BGCOLOR="#000080"
WIDTH="90%">
<tr>
<td BGCOLOR="#FFFFFF">Err.Source</td>
<td BGCOLOR="#FFFFFF"><%= Err.Source %></td>
</tr>
<tr>
<td BGCOLOR="#FFFFFF">Err.Number</td>
<td BGCOLOR="#FFFFFF"><%= Err.Number %></td>
</tr>
<tr>
<td BGCOLOR="#FFFFFF">Err.Description</td>
<td BGCOLOR="#FFFFFF"><%= Err.Description %></td>
</tr>
</table>
<%
response.end
end if
If Not rs.EOF Then
QArray = rs.GetRows()
%>
<P>Total number of components in database= <% Response.Write
CStr(UBound(QArray, 2))%>
<%
Response.Write "<br/><br/>"
On Error Resume Next
DIM strQ
DIM objCheck
err = 0
For I = 0 To UBound(QArray, 2)
strQ= trim(QArray(1, I))
set objCheck = Server.CreateObject(strQ)
If err = 0 then
Response.Write "Checking-- <b>" & QArray(1, I) & "</b> "
Response.Write "<font color=""0000FF"">Installed</font>"
Response.Write "<br/>"
End if
err = 0
next
Response.Write "<br/><br/>"
For I = 0 To UBound(QArray, 2)
Response.Write "Checking-- <b>" & QArray(1, I) & "</b> "
strQ= trim(QArray(1, I))
set objCheck = Server.CreateObject(strQ)
If err then
Response.Write "<font color=""FF0000"">Not available</font>"
Else
Response.Write "<font color=""0000FF"">Installed</font>"
End if
Response.Write "<br/>"
err = 0
next
End If
%>
|
|
