<% dim strDBType, ELetter_String, strSecPass, mlConn, hexTimeout, hexLevel, hexExtraText, hexDomainDot, hexDomainLiterals, hexMX, hexVrfy, cfgDate '###################################################################### '## SELECT YOUR DATABASE TYPE AND CONNECTION TYPE (access or sql server) '###################################################################### strDBType = "access" 'strDBType = "sql" '###################################################################### '# Make sure to uncomment the line that will point to your database. '###################################################################### 'ELetter_String = "dsn=DSNName;uid=;pwd=;" 'ELetter_String = "dsn=DSNName;uid=USERNAME;pwd=PASSWORD;" 'ELetter_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mailinglist/spd_eletter.mdb") ELetter_String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mailinglist/spd_eletter.mdb") 'ELetter_String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\yoursite\mailinglist\spd_eletter.mdb" '####################################################################### '# This is the special password you will need to setup your database. '# You will need this to setup or uninstall the program. '####################################################################### strSecPass = "theranreed" '####################################################################### '# These are the Hexillicon email validator settings '####################################################################### hexTimeout = 9000 ' Timeout value for the component hexLevel = 3 ' Level of validation, 1 = syntax, 2 = DNS, 3 = Full SMTP hexExtraText = false ' Allow Extra Text - leave false since Spd E-Letter doesn't allow this hexDomainDot = false ' Don't require domain dot - leave false hexDomainLiterals = false ' Disallow domain literals - leave false hexMx = true ' Require MX records - leave true for best protection hexVrfy = false ' Try VRFY and EXPN - leave false baseDirectory = "/" '###################################################################### '# DO NOT MODIFY ANYTHING BELOW THIS LINE! '###################################################################### set mlConn = Server.CreateObject("ADODB.Connection") mlConn.Open(ELetter_String) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'forceSetup = "dsnless" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if (strDBType = "access") then delHeader = " *" else delHeader = "" cfgDate = "1/1/1980" : cfgDate = CDate(cfgDate) : cfgDate = DateDiff("s", cfgDate, Now) strDBType = lcase(strDBType) %>