<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
DMXReady Server Compatibility Test
<%
function DetectDMXReadyComponent
Dim objMDAC, objCDONTS, objCDOSYS
on error resume next
'Check for our own Picture Processor
err.clear
Set objMDAC = Server.CreateObject("ADODB.Recordset")
if err.number = 0 then
Set objMDAC = nothing
Response.Write "MS ACCESS is supported
"
MDAC = "yes"
else
Response.Write "MS ACCESS is NOT supported
"
MDAC = "no"
end if
'Check for AspJpeg
err.clear
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
if err.number = 0 then
Set objCDONTS = nothing
Response.Write "CDONTS is supported
"
CDONTS = "yes"
else
Response.Write "CDONTS is NOT supported (DMXReady apps require CDONTS or CDOSYS)
"
CDONTS = "no"
end if
'Check for objCDOSYS
err.clear
Set objCDOSYS = Server.CreateObject("CDO.MESSAGE")
if err.number = 0 then
Set objCDOSYS = nothing
Response.Write "CDOSYS is supported
"
CDOSYS = "yes"
else
Response.Write "CDOSYS is NOT supported (DMXReady apps require CDONTS or CDOSYS)
"
CDOSYS = "no"
end if
on error goto 0
end function
If CDOSYS = "no" AND CDONTS = "no" THEN
comptest= "fail"
end if
If MDAC = "no" THEN
comptest= "fail"
end if
%>
<!--This page must be uploaded to your webserver and viewed
using your web browser i.e. http://www.yourdomain.com/dmxready_server_test.asp-->
DMXReady Server Compatibility Test
Test Results :
<% det = DetectDMXReadyComponent%>
<% if not comptest = "failed" then %>
<% Response.Write "Congratulations! ... DMXReady apps can be fully used on this server!
" %>
<% else %>
Sorry but your server is not compatible with DMXReady apps. If you require
ASP web hosting that is 100% compatible with DMXReady, click
here
<% end if %>