clsDebug ver 3.1

Name

Value

Type

oUser("Debug")

False - False

String

*Links

[test_email.asp] [root default] [folder default] [Abandon session] [Clear Filter] [LinkTables] [Font Awesome]

⚲

String

bs media

Extra Small <768px

Small ≥768px to <992px

Medium ≥992px to <1200px

Large ≥992px to <1200px

⚲

String

{...}

Name

Value

Type

ClientCertificate

IRequestDictionary

TotalBytes

Long

{Count = 0}

Name	Value	Type

IRequestDictionary

{Count = 0}

Name	Value	Type

IRequestDictionary

{Count = 1}

Name	Value	Type
cmd	filter	IStringList

IRequestDictionary

{Count = 50}

Name	Value	Type
ALL_HTTP	HTTP_CACHE_CONTROL:max-age=0 HTTP_CONNECTION:keep-alive HTTP_VIA:1.1 squid-proxy-75b5465b89-l579r (squid/6.10) HTTP_ACCEPT:/ HTTP_ACCEPT_ENCODING:gzip, br, zstd, deflate HTTP_HOST:gladhillassociates.com HTTP_USER_AGENT:Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com) HTTP_X_FORWARDED_FOR:10.1.47.228	IStringList
ALL_RAW	Cache-Control: max-age=0 Connection: keep-alive Via: 1.1 squid-proxy-75b5465b89-l579r (squid/6.10) Accept: / Accept-Encoding: gzip, br, zstd, deflate Host: gladhillassociates.com User-Agent: Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com) X-Forwarded-For: 10.1.47.228	IStringList
APPL_MD_PATH	/LM/W3SVC/9/ROOT	IStringList
APPL_PHYSICAL_PATH	C:\Inetpub\vhosts\gladhillassociates.com\httpdocs\	IStringList
AUTH_PASSWORD		IStringList
AUTH_TYPE		IStringList
AUTH_USER		IStringList
CERT_COOKIE		IStringList
CERT_FLAGS		IStringList
CERT_ISSUER		IStringList
CERT_KEYSIZE		IStringList
CERT_SECRETKEYSIZE		IStringList
CERT_SERIALNUMBER		IStringList
CERT_SERVER_ISSUER		IStringList
CERT_SERVER_SUBJECT		IStringList
CERT_SUBJECT		IStringList
CONTENT_LENGTH	0	IStringList
CONTENT_TYPE		IStringList
GATEWAY_INTERFACE	CGI/1.1	IStringList
HTTPS	off	IStringList
HTTPS_KEYSIZE		IStringList
HTTPS_SECRETKEYSIZE		IStringList
HTTPS_SERVER_ISSUER		IStringList
HTTPS_SERVER_SUBJECT		IStringList
INSTANCE_ID	9	IStringList
INSTANCE_META_PATH	/LM/W3SVC/9	IStringList
LOCAL_ADDR	72.167.49.152	IStringList
LOGON_USER		IStringList
PATH_INFO	/res/tests/test_email.asp	IStringList
PATH_TRANSLATED	C:\Inetpub\vhosts\gladhillassociates.com\httpdocs\res\tests\test_email.asp	IStringList
QUERY_STRING	cmd=filter	IStringList
REMOTE_ADDR	216.73.216.213	IStringList
REMOTE_HOST	216.73.216.213	IStringList
REMOTE_USER		IStringList
REQUEST_METHOD	GET	IStringList
SCRIPT_NAME	/res/tests/test_email.asp	IStringList
SERVER_NAME	gladhillassociates.com	IStringList
SERVER_PORT	80	IStringList
SERVER_PORT_SECURE	0	IStringList
SERVER_PROTOCOL	HTTP/1.1	IStringList
SERVER_SOFTWARE	Microsoft-IIS/10.0	IStringList
URL	/res/tests/test_email.asp	IStringList
HTTP_CACHE_CONTROL	max-age=0	IStringList
HTTP_CONNECTION	keep-alive	IStringList
HTTP_VIA	1.1 squid-proxy-75b5465b89-l579r (squid/6.10)	IStringList
HTTP_ACCEPT	/	IStringList
HTTP_ACCEPT_ENCODING	gzip, br, zstd, deflate	IStringList
HTTP_HOST	gladhillassociates.com	IStringList
HTTP_USER_AGENT	Mozilla/5.0 AppleWebKit/537.36 (KHTML, like Gecko; compatible; ClaudeBot/1.0; +claudebot@anthropic.com)	IStringList
HTTP_X_FORWARDED_FOR	10.1.47.228	IStringList

IRequestDictionary

IRequest

{...}

Name	Value	Type
Buffer	True	Boolean
CacheControl	no-cache	String
CharSet		String
ContentType	text/html	String
Expires	-2879	Long
ExpiresAbsolute	5/20/2025 3:50:32 PM	Date
Status	200 OK	String
LCID	0	Long

IResponse

{...}

Name

Value

Type

CodePage

1252

Long

LCID

1033

Long

SessionID

1023406155

String

Timeout

Long

{Count = 8}

Name	Value	Type
start	5/22/2025 3:50:32 PM	Date
logged_in	False	Boolean
NavMenuRows	5	Integer
ChangeImage	False	Boolean
SMTPServer	relay-hosting.secureserver.net	String
SendUsingPort	2	Integer
Email_From_Name	Burt Gold	String
Email_From_Address	admin@gladhillassociates.com	String

IVariantDictionary

ISessionObject

{...}

Name

Value

Type

{Count = 20}

Name	Value	Type
data	\_data\	String
pages	\_data\pages\	String
images	\_data\images\	String
DBPath	\_data\db\	String
MainDB	\_data\db\gladhill_14.1.mdb	String
ClientData	\_data\Clients\client_	String
UserData	\_data\Users\User_	String
LogDB	C:\Inetpub\vhosts\gladhillassociates.com\httpdocs\_data\db\gladhill_14.1.mdb	String
Templates	\res\html\	String
Login	/login/login.asp	String
login_proc	LoginUser_CS	String
SiteTitle	Gladhill Associates International	String
DBDriver	Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0; Data Source=	String
max_login_trys	3	Integer
Email_From_Name	Burt Gold	String
Email_From_Address	admin@gladhillassociates.com	String
smtpserver	dedrelay.secureserver.net	String
smtpserverport	25	Integer
sendusing	2	Long
smtpconnectiontimeout	2	Integer

IVariantDictionary

IApplicationObject

{Count = 3}

Name	Value	Type
oUser("GroupID")	6	Integer
oUser("Debug")	False	Boolean
oUser("localhost")	False	Boolean

Dictionary

tmp

1, 2, 3, 4, 5

String

tmp

1 = ascii 49, 2 = ascii 50, 3 = ascii 51, 4 = ascii 52, 5 = ascii 53

String

getSaveCommand

'==============================================================================
Public Function save_record_EMAILLOG()
cDebug "6save_record_EMAILLOG()", "===[ " & Request.ServerVariables("PATH_INFO") & " ]==="
 Dim sCMD, objConn, objCmd, objParam
 '--------------------------------------------------------------------------
 ' Table Name: EMAILLOG
 ' DB Path: \_data\db\gladhill_14.1.mdb
 ' Created by: Private Function getSaveCommand(sTableName, sDBPath), found in DBFunc.asp
 ' On: 5/22/2025 3:50:32 PM
 '--------------------------------------------------------------------------

if request("eID") <> "" then
 '---[ Exsiting record. Use UPDATE command ]---
 sCMD = "UPDATE emaillog SET eFrom=@eFrom, eTo=@eTo, eCC=@eCC, eBCC=@eBCC, eSubject=@eSubject, eHTMLBody=@eHTMLBody, eTextBody=@eTextBody, eDate=@eDate, eError=@eError, eErrorDesc=@eErrorDesc "&_
 "WHERE (((emaillog.eID)=@eID));"
 else
 '---[ New record! Use INSERT command ]---
 sCMD = "INSERT INTO emaillog (eFrom, eTo, eCC, eBCC, eSubject, eHTMLBody, eTextBody, eDate, eError, eErrorDesc) "&_
 "VALUES(@eFrom, @eTo, @eCC, @eBCC, @eSubject, @eHTMLBody, @eTextBody, @eDate, @eError, @eErrorDesc);"
 end if
 'cDebug "sCMD",sCMD

set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open application("DBDriver") & MapPath(application("MainDB"))
  
    Set objCmd = Server.CreateObject("ADODB.Command")
    objCmd.CommandText = sCMD
    objcmd.ActiveConnection = objConn 
    objCmd.CommandType = adCmdText

objCmd.Parameters.Append objCmd.CreateParameter ("@eFrom", adVarWChar, adParamInput, 255, cStr(request("eFrom")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eTo", adVarWChar, adParamInput, 255, cStr(request("eTo")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eCC", adVarWChar, adParamInput, 255, cStr(request("eCC")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eBCC", adVarWChar, adParamInput, 255, cStr(request("eBCC")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eSubject", adVarWChar, adParamInput, 250, cStr(request("eSubject")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eHTMLBody", adLongVarWChar, adParamInput, 536870910, cStr(request("eHTMLBody")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eTextBody", adLongVarWChar, adParamInput, 536870910, cStr(request("eTextBody")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eDate", adDate, adParamInput, 8, cDate(request("eDate")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eError", adBoolean, adParamInput, 2, cBool(request("eError")))
    objCmd.Parameters.Append objCmd.CreateParameter ("@eErrorDesc", adVarWChar, adParamInput, 255, cStr(request("eErrorDesc")))

if len(request("eID")) <> 0 then 
 '---[ Existing record. Add the "eID"parameter ]---
 objCmd.Parameters.Append objCmd.CreateParameter ("@eID", adInteger, adParamInput, 4, cInt(request("eID")))
 else
 '---[ New record. Move any paramaters to here that are for New records only ]---

end if
    cDebug "ObjCmd",ObjCmd

'---[ Uncomment the next line after confirming all configurations are valid ]---
 'on error resume next
 ' ObjCmd.Execute
 ' if err.number <> 0 then 
 ' cDebug "ERROR!", err.Description & "(" & err.number & ")"
 ' end if
 'on error goto 0

if request("eID")="" then
        '---[ New record!  Get the "eID" of the INSERT'ed record ]-----------
        Dim oRecSet
        set oRecSet = Server.CreateObject("ADODB.Recordset")

oRecSet.open "SELECT @@IDENTITY", objConn, adOpenStatic, adLockReadOnly, adCmdText
        oConfig("eID") = oRecSet.Fields(0).value
    else
        '---[ Existing record.  Get "eID" from the request object ]----------
        oConfig("eID") = request("eID")
    end if

set objCmd = nothing
    set objConn = nothing

cDebug "5save_record_EMAILLOG()", "===[ " & Request.ServerVariables("PATH_INFO") & " ]==="
'response.end
End Function
'==============================================================================

⚲

String

From:
To:
Subject:
Body:

Testing sending email