Ok, here's some code taken from my website that I wrote to help some people out, let me know if you'd like anything added to it.
Save the following as Test.asp

<% 
' ## ServerTest v2
' ## By Dave hope, http://davehope.digitalrice.com
' ## Copyright (C) 2002-2003 David Hope
' ##
' ## This program is free software; you can modify it under the terms 
' ## of the GNU General Public License as published by
' ## the Free Software Foundation; either version 2 of the License, or
' ## any later version. You may NOT re-distribute this software.
' ##                                                                        
' ## This program is distributed in the hope that it will be useful,
' ## but WITHOUT ANY WARRANTY; without even the implied warranty of
' ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' ## GNU General Public License for more details.
' ##
' ## You should have received a copy of the GNU General Public License
' ## along with this program; if not, write to the Free Software
' ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA

'### BEGIN TIMER CODE ###
Dim StopWatch(19) 

Sub StartTimer(x)
	StopWatch(x) = timer
End Sub

Function StopTimer(x)
	EndTime = Timer

If EndTime < StopWatch(x) Then
		EndTime = EndTime + (86400)
	End If

StopTimer = EndTime - StopWatch(x)
End Function
'### END TIMER CODE ###
%>

<HTML>
<HEAD>
<TITLE>Daves ServerTest</TITLE>

<style type="text/css">
<!--
}
select, option, textarea, input, button{
	background-color: #cococo;
	font-family: verdana;
	font-size: 8pt;
	color: #000000;
	font-weight: plain;
	border-left: 1px solid #000000;
	border-right: 1px solid #000000;
	border-top: 1px solid #000000;
	border-bottom: 1px solid #000000;
}
-->
</style>
</HEAD>

<BODY bgColor="#C0C0C0">

<table border="0" width="750" cellspacing="0" cellpadding="0" align="Center">

<tr>
<td style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF">
<center><b><font face="Verdana" size="2">Installed Components</font></b></center>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">

<Font Face="Verdana" Size="2"><B>Server Processors:</B><%=Request.ServerVariables("Number_OF_Processors")%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>Server Architecture:</B><%=Request.ServerVariables("PROCESSOR_ARCHITECTURE")%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>Server Software:</B><%=Request.ServerVariables("SERVER_SOFTWARE")%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>Server Port:</B><%=Request.ServerVariables("SERVER_PORT")%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>Server Name:</B><%=Request.ServerVariables("SERVER_NAME")%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>Protocall:</B><%=Request.ServerVariables("SERVER_PROTOCOL")%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>VBScript Engine Version:</B><%=Trim("" & ScriptEngineMajorVersion() & "." & ScriptEngineMinorVersion())%></Font>
<BR>
<Font Face="Verdana" Size="2"><B>VBScript Engine Build:</B><%=ScriptEngineBuildVersion()%></Font>
<BR>

<BR>
<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MSWC.AdRotator")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS AddRotator:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ADODB.Connection")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS ADOB:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("CDONTS.Session")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS CDONTS:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MSWC.Counters")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS Counter:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Scripting.FileSystemObject")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS FSO:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MSXML2.ServerXMLHTTP")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS Server XMLHTTP:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Microsoft.XMLHTTP")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MS XMLHTTP:</B> <%=sInstalled%></Font>
<BR>

<% 
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Persits.MailSender")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>Persists ASPEmail:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Persits.Jpeg")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>Persists ASPJpeg:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Persits.Upload.1")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>Persists ASPUpload:</B> <%=sInstalled%></Font>
<BR>

<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("InetCtls.Inet")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>Internet transfer Control:</B> <%=sInstalled%></Font>
<BR>

<Center><Font Face="Verdana" Size="2"><B>Mail Components</B></Font></Center>
<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ABMailer.Mailman")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>AABMailer v2.2+:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SMTPsvg.Mailer")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>ASPMail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("CDO.Configuration")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>CDOSYS:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("dkQmail.Qmail")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>dkQMail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Dundas.Mailer")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>Dundas Mail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Geocel.Mailer")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>GeoCel:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("iismail.iismail.1")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>IISMail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("Jmail.smtpmail")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>JMail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("MDUserCom.MDUser")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>MDaemon:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ASPMail.ASPMailCtrl.1")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>OCXMail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("ocxQmail.ocxQmailCtrl.1")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>OCXQMail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SoftArtisans.SMTPMail")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>SA-Smtp Mail:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("SmtpMail.SmtpMail.1")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>SMTP:</B> <%=sInstalled%></Font>

<BR>
<%
Err.Clear
On Error Resume Next
Set obj = Server.CreateObject("VSEmail.SMTPSendMail")
	If Err.Number <> 0 Then
		sInstalled = "<font color=red>Not Installed</font>"
	Else
        	sInstalled = "<font color=Green>Installed</font>"
    	End If
Set obj = Nothing
On Error Goto 0
%>
<Font Face="Verdana" Size="2"><B>VSEMAIL:</B> <%=sInstalled%></Font>

</td>
</tr>

</table>

<BR>
<BR>

<table border="0" width="750" cellspacing="0" cellpadding="0" align="Center">

<tr>
<td style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-width: 1" bordercolor="#000000" bgcolor="#FFFFFF">
<center><b><font face="Verdana" size="2">Server Processing Time</font></b></center>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" style="border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">
<% StartTimer 1 %>
<Center>
<Textarea Rows="10" Cols="50">
<%
X = 0
Do Until X = 10000
X = X + 1
Response.Write X
Loop
%>
</Textarea>
<BR>
<BR>
<BR>
<Font Size=2 Face=verdana><B>Numbers 1 to 10,000 Processed In:</B> <%= round(StopTimer(1), 4) %> Seconds.</Font>
</Center>

</td>
</tr>
</table>
<BR>
<BR>
<Center>
<Font size="1" Face="Verdana" Color="GRAY">© 2002-<%=Year(Now())%>  David Hope.</Font>
</Center>

</BODY>
</HTML>