; ###############################################################################################
;
; Kixstart Script - Client Mailing List
;
; Script purpose : Extract email addresses from database
; Disgard duplicate entires
; Disgard invalid email address (i.e. anything without an @ in it)
; Disgard spaces due to typos (beginning, middle and end of address)
; Output to a file each email address in a string delimited by a semicolon (;)
;
; Kix32 Version : 4.53.0.0
;
; Script Date : 27/03/07
; Script Version : 1.0
;
; ###############################################################################################
; #### Set Variables ####
DIM $DSN
DIM $SQLQueryRS
$DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=ActinicCatalog.mdb"
$SQLQueryRS = "SELECT 'Email Address' FROM 'Person'"
; #### Open Database Connection ####
$objConn = DBConnOpen("$DSN")
? "@ERROR"
; #### Open Database Recordset ####
$recordset = DBGetRecordset("$objConn, $SQLQueryRS")
? "@ERROR"
; #### Close Database Connection ####
$retcode = DBConnClose($objConn)
? "@ERROR"