<% If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" On Error Resume Next Set dbCheckFull = objFile.GetFolder(dbfolder) dbCheckFolderName = dbCheckFull.Name dbCheckFolderPath = objFile.GetParentFolderName(dbCheckFull) If err.number <> 0 then dbExist = "NO" err.clear Else dbExist = "YES" End If Set uploadCheckFull = objFile.GetFolder(Server.MapPath(upload)) uploadCheckFolderName = uploadCheckFull.Name uploadCheckFolderPath = objFile.GetParentFolderName(uploadCheckFull) If err.number <> 0 then uploadExist = "NO" err.clear Else uploadExist = "YES" End If Set bannerCheckFull = objFile.GetFolder(Server.MapPath(bnrLocation)) bannerCheckFolderName = bannerCheckFull.Name bannerCheckFolderPath = objFile.GetParentFolderName(bannerCheckFull) If err.number <> 0 then bannerExist = "NO" err.clear Else bannerExist = "YES" End If writeFile dbCheckFull & "\check", "test" If err.number <> 0 then dbWrite = "Fail" dbDelete = "Fail" err.clear Else dbWrite = "OK" objFile.DeleteFile(dbCheckFull & "\check") If err.number <> 0 then dbDelete = "Fail" Else dbDelete = "OK" End If err.clear End If writeFile uploadCheckFull & "\check", "test" If err.number <> 0 then uploadWrite = "Fail" uploadDelete = "Fail" err.clear Else uploadWrite = "OK" objFile.DeleteFile(uploadCheckFull & "\check") If err.number <> 0 then uploadDelete = "Fail" Else uploadDelete = "OK" End If err.clear End If writeFile bannerCheckFull & "\check", "test" If err.number <> 0 then bannerWrite = "Fail" bannerDelete = "Fail" err.clear Else bannerWrite = "OK" objFile.DeleteFile(bannerCheckFull & "\check") If err.number <> 0 then bannerDelete = "Fail" Else bannerDelete = "OK" End If err.clear End If Set oEmail = Server.CreateObject("CDONTS.NewMail") Set oEmail = Nothing If Err.number <> 0 then statusCDONTS = "Fail" err.clear Else: statusCDONTS = "Present" End If Set oEmail = Server.CreateObject("CDO.Message") Set oEmail = Nothing If Err.number <> 0 then statusCDOSYS = "Fail" err.clear Else: statusCDOSYS = "Present" End If Set oEmail = Server.CreateObject("JMail.Message") If Err.number <> 0 then statusJMAIL = "Fail" err.clear Else statusJMAIL = "Present" versionJMAIL = " - v" & oEmail.Version End If Set oEmail = Nothing Set oEmail = Server.CreateObject("SMTPsvg.Mailer") If Err.number <> 0 then statusASPMAIL = "Fail" err.clear Else statusASPMAIL = "Present" versionASPMAIL = " - v" & oEmail.Version & ", Expires: " & "" & oEmail.expires & "" End If Set oEmail = Nothing Set oEmail = Server.CreateObject("Persits.MailSender") If Err.number <> 0 then statusASPEMAIL = "Fail" err.clear Else statusASPEMAIL = "Present" versionASPEMAIL = " - v" & oEmail.Version & ", Expires: " & "" & oEmail.expires & "" End If Set oEmail = Nothing Set Jpeg = Server.CreateObject("Persits.Jpeg") If Err.number <> 0 then statusASPJPEG = "Fail" err.clear Else statusASPJPEG = "Present" versionASPJPEG = " - v" & Jpeg.Version & ", Expires: " & "" & Jpeg.expires & "" End If Set Jpeg = Nothing On Error Goto 0 %>
Folders Permissions and Email Components Verification

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

Email and Image Resize Components
Component Name: Send To: Provider: Status:
CDONTS
Microsoft <%= statusCDONTS %>
CDOSYS
Microsoft <%= statusCDOSYS %>
JMAIL <%= versionJMAIL %>
http://www.dimac.net/ <%= statusJMAIL %>
ASPMAIL <%= versionASPMAIL %>
http://www.serverobjects.com <%= statusASPMAIL %>
ASPEMAIL <%= versionASPEMAIL %>
http://www.aspemail.com <%= statusASPEMAIL %>
ASPJPEG <%= versionASPJPEG %>
http://www.aspjpeg.com <%= statusASPJPEG %>
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 %>