<<Refresh>>
Folders Permissions |
Physical Folder Location (Mapped From
config.asp): |
Description: |
Exist? |
Permissions |
Write: |
Delete: |
<%= dbCheckFolderPath %>\<%= dbCheckFolderName %> |
Database Location (MS Access) |
<%= dbExist %> |
<%= dbWrite %> |
<%= dbDelete %> |
<%= uploadCheckFolderPath %>\<%= uploadCheckFolderName %> |
Images Upload Folder |
<%= uploadExist %> |
<%= uploadWrite %> |
<%= uploadDelete %> |
<%= bannerCheckFolderPath %>\<%= bannerCheckFolderName %> |
Banners Location Folder |
<%= bannerExist %> |
<%= bannerWrite %> |
<%= bannerDelete %> |
Note: " Present" status only means that
this component is installed on the server. Even if present, component may still
not function (expired or disabled by server administrator)
<%
On Error Resume Next
err.clear
If Len(Request.Form("flag")) > 0 then
sendTo = Request.Form("T1")
sendFrom = notify_email
eSubject = "Test Email Using "
eFlag = Request.Form("flag")
eSubject = "Test Email form Administration Check page using " & Ucase(eFlag)
Select Case eFlag
Case "cdonts"
Set oEmail = Server.CreateObject("CDONTS.NewMail")
With oEmail
.From = web_name & "<" & sendFrom & ">"
.To = sendTo
.Subject = eSubject
If isHTML then
.MailFormat = 0
Else: .MailFormat = 1
End If
.BodyFormat = 0
.Body = eSubject
.Importance = 1
.Send
Set oEmail = Nothing
End With
Case "cdosys"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
If not mailHost = Empty then
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailHost
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
If not SMTPID = Empty then
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPID
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPAss
End If
.Fields.Update
End With
Set objCDOSYSMail.Configuration = objCDOSYSCon
End If
With objCDOSYSMail
.From = web_name & "<" & sendFrom & ">"
.Sender = notify_email
.To = sendTo
.Subject = eSubject
If isHTML then
.HTMLBody = eSubject
Else: .TextBody = eSubject
End If
.Send
End With
Set objCDOSYSMail = Nothing
Case "jmail"
Set jmail = Server.CreateObject("JMail.Message")
With jmail
.Logging = False
.Silent = True
.AddRecipient sendTo, "Test"
.FromName = web_name
.From = sendFrom
.Subject = eSubject
If isHTML then
.HTMLBody = eSubject
Else: .Body = eSubject
End If
.Priority = 3
If not SMTPID = Empty then
.MailServerUserName = SMTPID
.MailServerPassWord = SMTPPass
End If
.Send(mailHost)
End With
Set jmail = Nothing
Case "aspmail"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
With Mailer
.FromName = web_name
.FromAddress = sendFrom
.RemoteHost = mailHost
.AddRecipient "Test", sendTo
.ReturnReceipt = false
.ConfirmRead = false
.Subject = eSubject
If isHTML then .ContentType = "text/html"
.BodyText = eSubject
.SendMail
End With
Set Mailer = Nothing
Case "aspemail"
Set Mailer = Server.CreateObject("Persits.MailSender")
With Mailer
.FromName = web_name
.From = sendFrom
.Host = mailHost
.AddAddress sendTo, "Test"
.Subject = eSubject
If isHTML then .IsHTML = True
.Body = eSubject
If not SMTPID = Empty then
.Username = SMTPID
.Password = SMTPPass
End If
.Send
End With
Set Mailer = Nothing
Case "aspjpeg"
End Select
If eFlag = "aspjpeg" then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If err.number = 0 then
If CDate(Jpeg.Expires) > Now then isASPJpeg = True
End If
If isASPJpeg then
Set Jpeg = Nothing
%>
|
ASPJpeg Component Test
|
Original Image: |
|
Resized Image: |
|
<%
Else: Response.Write " ASPJpeg is not installed or Expired.
"
End If
Else
Response.Write " Email Test Status:
"
If err.number <> 0 then
Response.Write "Test Email using " & Ucase(eFlag) & " Failed. Error Number: "
Response.Write err.number & " Error Description: " & err.description & " "
Else
Response.Write "Test Email using " & Ucase(eFlag) & " has been sent to: " & sendTo & ""
Response.Write "If you did not receive this email in the next few minutes: "
End If
Response.Write " 1. Check the component ""Status"" in the table above as well as component Expiration Date."
Response.Write " 2. Check for proper email configuration at the ""Admin Preferences"" page."
Response.Write " 3. Some hosts require SMTP authentication - ID/Password specified. Make sure to indicate those in ""Admin Preferences"" page."
Response.Write " 4. Contact your host for further details about email components availability and status"
End If
End If
%>
|