File Uploads

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

<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> ] &nbsp;
[ <a href="check.asp?check=upload_component">Upload component</a> ] &nbsp;
[ <a href="check.asp?check=image_component">Image component</a> ] &nbsp;
<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! ")
ELSE
 Response.Write("CDONTS is installerad on this server! ")
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! ")
ELSE
 Response.Write("JMAILis installerad on this server! ")
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! ")
ELSE
 response.write("ASPMAIL is installerad on this server! ")
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! ")
ELSE
 Response.Write("Persits ASPEMAIL is installerad on this server! ")
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! ")
ELSE
 Response.Write("Bamboo is installerad on this server! ")
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! ")
ELSE
 Response.Write("SMTPsvg is installerad on this server! ")
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! ")
ELSE
 Response.Write("SoftArtisans FileUpload is installerad on this server! ")
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! ")
ELSE
 Response.Write("aspSmartUpload SmartUpload is installerad on this server! ")
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! ")
ELSE
 Response.Write("Persits Upload is installerad on this server! ")
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! ")
ELSE
 Response.Write("w3 upload is installerad on this server! ")
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! ")
ELSE
 Response.Write("Persits Jpeg is installerad on this server! ")
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! ")
ELSE
 Response.Write("aspSmartImage is installerad on this server! ")
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! ")
ELSE
 Response.Write("AspImage is installerad on this server! ")
END IF

END IF
%>
</body>
</html>