' $System.Access Read Address $Office.Name - Address Book ' Init $CID = 1 ' Set $Items = $Address.Items ' Set $View = $Login.Address.View ' Init $Com = $Login.Address.Com ' If $Com ' Set $Cards = $Address.Companies ' Else ' Set $Cards = $Address.Cards ' EndIf
' If $Com ' Else ' EndIf
 
Group
[More Search Options]

' Set $Cap = $System.CreateObject Record Office ' $Cap.Put 1 A ' $Cap.Put 2 B ' $Cap.Put 3 C ' $Cap.Put 4 D ' $Cap.Put 5 E ' $Cap.Put 6 F ' $Cap.Put 7 G ' $Cap.Put 8 H ' $Cap.Put 9 I ' $Cap.Put 10 J ' $Cap.Put 11 K ' $Cap.Put 12 L ' $Cap.Put 13 M ' $Cap.Put 14 N ' $Cap.Put 15 O ' $Cap.Put 16 P ' $Cap.Put 17 Q ' $Cap.Put 18 R ' $Cap.Put 19 S ' $Cap.Put 20 T ' $Cap.Put 21 U ' $Cap.Put 22 V ' $Cap.Put 23 W ' $Cap.Put 24 X ' $Cap.Put 25 Y ' $Cap.Put 26 Z ' $Cap.Put 27 "Numbers & Other Characters" ' For $i = 1 to 27 ' If ($i = 27) and ($CID = $i) [$Cap.$i] ' Elif $i = 27 [$Cap.$i] ' Elif $CID = $i [$Cap.$i]\\ ' Else [$Cap.$i]\\ ' EndIf ' Next ' If ! $Web [Register] [Display Settings] ' EndIf
' $Lines = $Login.Address.Lines ' If ! $Lines ' $Lines = 20 ' EndIf ' Set $r = $Cards.$CID ' $r.GID = $GID ' $r.First = $First ' $r.Rows = $Lines ' For Each $Card in $r ' Next
' If $r.Prev or ($r.Prev = 0) First $Lines record(s) | << Prev. $Lines record(s) | ' Else First $Lines record(s) | << Prev. $Lines record(s) | ' EndIf ' If $r.Next Next $Lines record(s) >>

' Else Next $Lines record(s) >>

' EndIf ' If $Web ' Else ' EndIf
[Back to Email][Top Page][Top Page] [Settings] [Help]