Server Stuff
<%
function datatest
dim conn
set conn = server.CreateObject("adodb.connection")
'-----------------------------
conn.ConnectionString = application("Sql")
on error resume next
conn.Open
if Conn.errors.count = 0 then
response.write "![]()
"
conn.Close
else
response.write "![]()
"
end if
response.write "Sql Server
"
set conn = nothing
on error goto 0
set conn = server.CreateObject("adodb.connection")
conn.ConnectionString = application("MySql")
on error resume next
conn.Open
if Conn.errors.count = 0 then
response.write "![]()
"
conn.Close
else
response.write "![]()
"
end if
response.write "MySQL
"
set conn = nothing
on error goto 0
end function
%>