Below you find a script sample on how to open a recordset of the Aloaha Database. Please check database.html for further details. You could use a recordset to browse through the mailarchive.

'Copyright 2005 by www.aloaha.com
'furhter questions please send to info@aloaha.com or visit our Forum at:
'http://www.aloaha.com/html/portal

'declare ADO2.5 constants
Const adOpenStatic = 3
Const adLockOptimistic = 3

'declare Variables
dim database
dim conn 'as ADODB.Connection
dim oRecordSet 'as ADODB.Recordset
dim sSQLStatement

'Create Objects
Set database = CreateObject("dbfunctions.dba")
set conn = database.open_database("")
Set oRecordSet = CreateObject("ADODB.Recordset")

'open mailarchive ordered by time
sSQLStatement = "SELECT * FROM marchive order by tstamp desc"
oRecordSet.Open sSQLStatement, conn, adOpenStatic, adLockOptimistic

'make sure you point to the first recordset
oRecordSet.MoveFirst

'display mailheader
msgbox oRecordSet("mailheader")

'close & unload database
oRecordSet.Close
Set oRecordSet = Nothing
set conn = Nothing
set database = Nothing

Back to Index