Detecting Email Components...
	<% Dim sql_control Dim sql_con_trol sql_con_trol = 0 On Error Resume Next Set sql_control = CreateObject("VSEmail.SMTPSendMail") If Err Then Else Response.Write "Detected: VSEmail " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = CreateObject("Persits.MailSender") If Err Then Else Response.Write "Detected: ASPEmail " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("CDONTS.NewMail") If Err Then Else Response.Write "Detected: CDONTS " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("SMTPsvg.Mailer") If Err Then Else Response.Write "Detected: ASPMail " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("JMail.SMTPMail") If Err Then Else Response.Write "Detected: JMail 3.7 " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("JMail.Message") If Err Then Else Response.Write "Detected: JMail 4.1 " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("Dynu.Email") If Err Then Else Response.Write "Detected: Dynu Mail " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("ADISCON.SimpleMail.1") If Err Then Else Response.Write "Detected: Simple Mail " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear Set sql_control = Server.CreateObject("ASPMail.ASPMailCtrl.1") If Err Then Else Response.Write "Detected: OCXMail " & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear If sql_con_trol > 0 Then Response.Write " Found " & sql_con_trol & " components." & vbCrLf Response.Write " " & vbCrLf Response.Write " Please inform your Mail-Robot administrator about the installed components." & vbCrLf Response.Write " " & vbCrLf Response.Write " yellowbaris@yahoo.com" & vbCrLf Else Response.Write " " & vbCrLf Response.Write " Your sever has Not installed any of the email components spidered by this program." & vbCrLf Response.Write " " & vbCrLf Response.Write " Please contact your web server administrator to be informed" & vbCrLf Response.Write " about the installed email components on your server." & vbCrLf End If %>

	Detecting FileSystem Components...
	<% On Error Resume Next OutHTML = "" Set FSO = CreateObject("Scripting.FileSystemObject") Set act = FSO.CreateTextFile(Server.MapPath("testfile.txt"), True) act.WriteLine("TestLine") act.Close Set act = Nothing If Err = 0 Then OutHTML = OutHTML & " Creating of files supported..." & vbCrLf Else OutHTML = OutHTML & " Creating of files Not supported..." & vbCrLf End If fso.DeleteFile(Server.MapPath("testfile.txt")) If Err = 0 Then OutHTML = OutHTML & " Deleting and Modifying of files supported..." & vbCrLf Else OutHTML = OutHTML & " Deleting and Modifying of files Not supported..." & vbCrLf OutHTML = OutHTML & " This causes Mail-Robot Not To work propperly." & vbCrLf End If Set FSO = Nothing If Err > 0 Then Response.Write "Scripting.FileSystemObject Not full supported." & vbCrLf Else Response.Write "Detected: Scripting.FileSystemObject " & vbCrLf c1 = c1 + 1 End If Err.Clear Response.Write OutHTML If c1 > 0 Then Response.Write " Found " & c1 & " components." & vbCrLf Response.Write " " & vbCrLf Response.Write " Please inform your Mail-Robot administrator about the installed components." & vbCrLf Response.Write " " & vbCrLf Response.Write " yellowbaris@yahoo.com" & vbCrLf Else Response.Write " " & vbCrLf Response.Write " Please inform your Mail-Robot administrator about the installed components." & vbCrLf Response.Write " " & vbCrLf Response.Write " Please contact your web server administrator to be informed" & vbCrLf Response.Write " about the installed FileSystemObjects on your server." & vbCrLf End If %>