<%
' Comersus Diagnostics
' e-commerce ASP Open Source
' CopyRight Rodrigo S. Alhadeff, Comersus
' September 2004
' http://www.comersus.com
' Diagnostics for Comersus store
%>
<%
on error resume next
dim connTemp, rsTemp
' get settings
pDefaultLanguage = getSettingKey("pDefaultLanguage")
pStoreFrontDemoMode = getSettingKey("pStoreFrontDemoMode")
pCurrencySign = getSettingKey("pCurrencySign")
pDecimalSign = getSettingKey("pDecimalSign")
pCompany = getSettingKey("pCompany")
pCompanyLogo = getSettingKey("pCompanyLogo")
pEmailSender = getSettingKey("pEmailSender")
pEmailAdmin = getSettingKey("pEmailAdmin")
pSmtpServer = getSettingKey("pSmtpServer")
pEmailComponent = getSettingKey("pEmailComponent")
pDebugEmail = getSettingKey("pDebugEmail")
%>
Email test form
Checking email settings for this store...
Admin email: <%=pEmailAdmin%>
Sender email account: <%=pEmailSender%>
SMTP Server: <%=pSmtpServer%>
Email component: <%=pEmailComponent%>
<%call closeDb()%>