Set oAccessDatabase = New AccessDatabase
oAccessDatabase.Filename = Server.MapPath("..") & "\db\mydb.mdb"
Set oRecordset = oAccessDatabase.Retrieve("SELECT * FROM [MyTable]")
Please see the example at http://libraries.cathmhaol.com/examples/calendar-class.asp
Set oCrypto = New Crypto
MyEncryptedString = oCrypto.Encrypt(MyPlainTextString, "Base64")
Dim oSender
Set oSender = New EmailAddress
oSender.Name = "My Mailbot"
oSender.Address = "mailbot@my-domain.com"
Dim oEmail
Set oEmail = New Email
oEmail.From = oSender
oEmail.Recipient = oRecipient
oEmail.SmtpServer.Authentication = "basic"
oEmail.SmtpServer.Name = "smtp.my-domain.com"
oEmail.SmtpServer.Password = "n0-rep1y"
oEmail.SmtpServer.Username = "no-reply@my-domain.com"
oEmail.SmtpServer.IsLocal = False
oEmail.SmtpServer.ReplyTo = oSender
oEmail.SmtpServer.Sender = oSender
oEmail.SmtpServer.Port = 25
oEmail.Subject = "Test subject"
oEmail.Message = "The AutomatedEmail has initialized. The triggering event was: " & vbCrLf & vbCrLf & "Request from webmaster."
oEmail.Send
Set oRecipient = New EmailAddress
oRecipient.Name = LastName & ", " & FirstName
oRecipient.Address = "my-email@my-domain.com"
Set oSmtpServer = New EmailServer
oSmtpServer.Authentication = "basic"
oSmtpServer.Name = "smtp.my-domain.com"
oSmtpServer.Password = "n0-rep1y"
oSmtpServer.Username = "no-reply@my-domain.com"
oSmtpServer.IsLocal = False
oSmtpServer.ReplyTo = oSender
oSmtpServer.Sender = oSender
oSmtpServer.Port = 25
Set oHome = new Location
oHome.Latitude.degrees = 33
oHome.Latitude.minutes = 29
oHome.Latitude.seconds = 20
oHome.Longitude.degrees = -111
oHome.Longitude.minutes = 56
oHome.Longitude.seconds = 42
Set oWork = new Location
oWork.Latitude.degrees = 33
oWork.Latitude.minutes = 31
oWork.Latitude.seconds = 52
oWork.Longitude.degrees = 112
oWork.Longitude.minutes = 0
oWork.Longitude.seconds 16
oWork.Longitude.direction = "W"
Set oGps = new Gps
double_miles = oGps.miles(oGps.distance(oHome, oWork))