<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny sida 1</title>
</head>
<body>
With this litle script can you check what kind of component your server has installed.<br><br>
[ <a href="check.asp?check=mail_component">E-mail component</a> ]
[ <a href="check.asp?check=upload_component">Upload component</a> ]
[ <a href="check.asp?check=image_component">Image component</a> ]
<br><br>
<%
' This will check you e-mail components on your server
IF Request.QueryString("check") = "mail_component" THEN
Err.Clear
On error resume next
Set objcdonts = Server.CreateObject("cdonts.session")
IF err.number <> 0 then
Response.Write("CDONTS is not installed on this server! <br>")
ELSE
Response.Write("CDONTS is installerad on this server! <br>")
END IF
err.clear
on error resume next
Set objjmail = Server.CreateObject("jmail.smtpmail")
IF err.number <> 0 then
Response.Write("JMAIL is not installed on this server! <br>")
ELSE
Response.Write("JMAILis installerad on this server! <br>")
END IF
err.clear
on error resume next
Set objaspmail = Server.CreateObject("smtpsvg.mailer")
IF err.number <> 0 then
Response.Write("ASPMAIL is not installed on this server! <br>")
ELSE
response.write("ASPMAIL is installerad on this server! <br>")
END IF
err.clear
on error resume next
Set objaspemail = Server.CreateObject("persits.mailsender")
IF err.number <> 0 then
Response.Write("Persits ASPEMAIL is not installed on this server! <br>")
ELSE
Response.Write("Persits ASPEMAIL is installerad on this server! <br>")
END IF
err.clear
on error resume next
Set objbamboo = Server.CreateObject("bamboo.smtp")
IF err.number <> 0 then
Response.Write("Bamboo is not installed on this server! <br>")
ELSE
Response.Write("Bamboo is installerad on this server! <br>")
END IF
err.clear
on error resume next
Set objbamboo = Server.CreateObject("SMTPsvg.Mailer")
IF err.number <> 0 then
Response.Write("SMTPsvg is not installed on this server! <br>")
ELSE
Response.Write("SMTPsvg is installerad on this server! <br>")
END IF
SMTPsvg.Mailer
END IF
' Check your Upload componets on your server
IF Request.QueryString("check") = "upload_component" THEN
Err.Clear
On error resume next
Set objFileUp = Server.CreateObject("SoftArtisans.FileUp")
IF err.number <> 0 then
Response.Write("SoftArtisans FileUpload is not installed on this server! <br>")
ELSE
Response.Write("SoftArtisans FileUpload is installerad on this server! <br>")
END IF
Err.Clear
On error resume next
Set objaspsmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
IF err.number <> 0 then
Response.Write("SmartUpload is not installed on this server! <br>")
ELSE
Response.Write("aspSmartUpload SmartUpload is installerad on this server! <br>")
END IF
Err.Clear
On error resume next
Set objPersitUpload = Server.CreateObject("Persits.Upload")
IF err.number <> 0 then
Response.Write("Persits Upload is not installed on this server! <br>")
ELSE
Response.Write("Persits Upload is installerad on this server! <br>")
END IF
Err.Clear
On error resume next
Set objw3Upload = Server.CreateObject("w3.upload")
IF err.number <> 0 then
Response.Write("w3 upload is not installed on this server! <br>")
ELSE
Response.Write("w3 upload is installerad on this server! <br>")
END IF
END IF
' Check your image components on your server
IF Request.QueryString("check") = "image_component" THEN
Err.Clear
On error resume next
Set objPersitJPEG = Server.CreateObject("Persits.Jpeg")
IF err.number <> 0 then
Response.Write("Persits Jpeg is not installed on this server! <br>")
ELSE
Response.Write("Persits Jpeg is installerad on this server! <br>")
END IF
Err.Clear
On error resume next
Set objAspSmartImage = Server.CreateObject("aspSmartImage.SmartImage")
IF err.number <> 0 then
Response.Write("aspSmartImage is not installed on this server! <br>")
ELSE
Response.Write("aspSmartImage is installerad on this server! <br>")
END IF
Err.Clear
On error resume next
Set objAspSmartImage = Server.CreateObject("AspImage.Image")
IF err.number <> 0 then
Response.Write("AspImage is not installed on this server! <br>")
ELSE
Response.Write("AspImage is installerad on this server! <br>")
END IF
END IF
%>
</body>
</html>