123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
System Detector

--------------------------------------------------------------------------------

Description : This file detects the most popular email components and if the Scripting.FileSystemObject is supported or not on the server.

<!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>

 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG