System Detector - Components Source Code in ASP

Special : Web Developer's Collection CD-ROM
50,000+ Web Templates, Logos, Cliparts, Scripts. Order Now!

Add to Favorites Make Home Page

8461 Online

Language Categories

Source Codes Home
Project Ideas New!
Interview Questions
FAQs Home
ASP Home: ASP Source Codes; ASP Script Directory New!; ASP .Net Script Directory New!; ASP Interview Questions; ASP FAQs; ASP How Tos
C Home: C Source Codes; C Script Directory New!; C Interview Questions; C FAQs; C How Tos
C++ Home: C++ Source Codes; C++ Script Directory New!; C++ Interview Questions; C++ FAQs; C++ How Tos
Java Home: Java Source Codes; Java Directory New!; Java Interview Questions; Java FAQs; Java How Tos
JavaScript Home: JavaScript Directory New!; JavaScript Source Codes; JavaScript FAQs; JavaScript How Tos
COBOL Home: COBOL Source Codes; COBOL FAQs; COBOL How Tos
Pascal Home: Pascal Source Codes; Pascal FAQs; Pascal How Tos
PHP Script Directory New!
Python Script Directory New!
Perl & CGI Script Directory New!
Flash Script Directory New!
CFML Script Directory New!
Remotely Hosted Scripts New!
Tools & Utilities Directory New!
XML Script Directory New!
Best Programmers: Amit Mathur; Vishal Bhardwaj; Deepesh Jain
Vyom NetWork

Our Services

Get 9,000 Interview Questions & Answers in an eBook.

9500+ Pages
9000 Question & Answers
All Tech. Categories

14 MB Content

Get it now !!

Home » ASP Home » Components Home » System Detector

A D V E R T I S E M E N T

Title	System Detector
Description	This file detects the most popular email components and if the Scripting.FileSystemObject is supported or not on the server.
Category	ASP » Components
Hits	364454
Code	Select and Copy the Code
<!DOCTYPE HTML Public "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254"> <TITLE>Detecting System Components</TITLE> </HEAD> <BODY BGCOLOR="#FFFFFF" Text="#000000" TOPMARGIN="0" LEFTMARGIN="0" MARGINHEIGHT="0" MARGINWIDTH="0"><TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="25%" BGCOLOR="#465697"> </TD> <TD WIDTH="100%" BGCOLOR="#465697"><FONT FACE="Verdana" SIZE="2" COLOR="#FFFFFF"><B>Detecting Email Components...</B> </FONT> </TD> <TD WIDTH="25%" BGCOLOR="#465697"> </TD> </TR> <TR><TD COLSPAN="3" WIDTH="100%"> </TD> </TR> <TR><TD WIDTH="25%"> </TD> <TD WIDTH="50%"><FONT FACE="Verdana" SIZE="2"><% 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: <B><FONT COLOR=""#009900"">VSEmail</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">ASPEmail</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">CDONTS</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">ASPMail</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">JMail 3.7</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">JMail 4.1</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">Dynu Mail</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">Simple Mail</FONT></B><BR>" & 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: <B><FONT COLOR=""#009900"">OCXMail</FONT></B><BR>" & vbCrLf sql_con_trol = sql_con_trol + 1 End If Err.Clear If sql_con_trol > 0 Then Response.Write "<BR><BR>Found <B>" & sql_con_trol & "</B> components." & vbCrLf Response.Write "<BR>" & vbCrLf Response.Write "<BR>Please inform your Mail-Robot administrator about the installed components." & vbCrLf Response.Write "<BR>" & vbCrLf Response.Write "<BR><B><A HREF=""mailto:info@asprobots.com"">info@asprobots.com</A></B>" & vbCrLf Else Response.Write "<BR>" & vbCrLf Response.Write "<BR>Your sever has Not installed any of the email components spidered by this program." & vbCrLf Response.Write "<BR>" & vbCrLf Response.Write "<BR>Please contact your web server administrator to be informed" & vbCrLf Response.Write "<BR>about the installed <B>email components</B> on your server." & vbCrLf End If %></FONT> </TD> <TD WIDTH="25%"> </TD> </TR> </TABLE> <BR> <BR> <TABLE BORDER="0" WIDTH="100%" CELLSPACING="0" CELLPADDING="0"><TR><TD WIDTH="25%" BGCOLOR="#465697"> </TD> <TD WIDTH="100%" BGCOLOR="#465697"><FONT FACE="Verdana" SIZE="2" COLOR="#FFFFFF"><B>Detecting FileSystem Components...</B> </FONT> </TD> <TD WIDTH="25%" BGCOLOR="#465697"> </TD> </TR> <TR><TD COLSPAN="3" WIDTH="100%"> </TD> </TR> <TR><TD WIDTH="25%"> </TD> <TD WIDTH="50%"><FONT FACE="Verdana" SIZE="2"><% 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 & "<BR>Creating of files supported..." & vbCrLf Else OutHTML = OutHTML & "<BR>Creating of files <B>Not</B> supported..." & vbCrLf End If fso.DeleteFile(Server.MapPath("testfile.txt")) If Err = 0 Then OutHTML = OutHTML & "<BR>Deleting and Modifying of files supported..." & vbCrLf Else OutHTML = OutHTML & "<BR>Deleting and Modifying of files <B>Not</B> supported..." & vbCrLf OutHTML = OutHTML & "<BR>This causes Mail-Robot Not To work propperly." & vbCrLf End If Set FSO = Nothing If Err > 0 Then Response.Write "<B>Scripting.FileSystemObject Not full supported.</B>" & vbCrLf Else Response.Write "Detected: <B><FONT COLOR=""#009900"">Scripting.FileSystemObject</FONT></B><BR><BR>" & vbCrLf c1 = c1 + 1 End If Err.Clear Response.Write OutHTML If c1 > 0 Then Response.Write "<BR>Found <B>" & c1 & "</B> components." & vbCrLf Response.Write "<BR>" & vbCrLf Response.Write "<BR>Please inform your Mail-Robot administrator about the installed components." & vbCrLf Response.Write "<BR>" & vbCrLf Response.Write "<BR><B><A HREF=""mailto:info@asprobots.com"">info@asprobots.com</A></B>" & vbCrLf Else Response.Write "<BR>" & vbCrLf Response.Write "<BR>Please inform your Mail-Robot administrator about the installed components." & vbCrLf Response.Write "<BR>" & vbCrLf Response.Write "<BR>Please contact your web server administrator to be informed" & vbCrLf Response.Write "<BR>about the installed <B>FileSystemObjects</B> on your server." & vbCrLf End If %></FONT> </TD> <TD WIDTH="25%"> </TD> </TR> </TABLE> </BODY> </HTML>

Related Source Codes

Script Name Author

�� VyomWorld

Resistor color code reader A.Chermarajan.

Telephone Directory dhivya

card swapping game (Mini Project) nityanand

simple hangman-pascalsource Seabert

college dirtectory (Mini Project) msridhar

Poll Application John van Meter

ASP Daily Hit Counter. Tejaskumar Gandhi

To avoid null in asp environment using sql Sami

Maklumbalas webmaster

poll John van Meter

EasyASP Template Engine. TjoekBezoer

Basic Calculator using HTML & Javascript. Patrick M. D Souza

What servers support ASP ? VyomWorld

What is ASP? VyomWorld

A D V E R T I S E M E N T

Google Groups Subscribe to SourceCodesWorld - Techies Talk

Email:

Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

Free Tutorials - HTML, Java, SQL, PHP, ASP, Perl, SQL Tutorials
Discuss Programming Problems and Freshers Jobs related issues here.
Discuss Final Year Project Ideas here.